MsgBox Year(Now) MsgBox Year(#10/19/62#)

MsgBox WeekdayName(vbSunday) MsgBox WeekdayName(vbMonday) MsgBox WeekdayName(vbTuesday) MsgBox WeekdayName(vbWednesday) MsgBox WeekdayName(vbThursday) MsgBox WeekdayName(vbFriday) MsgBox WeekdayName(vbSaturday) MsgBox WeekdayName(vbSunday,…

MsgBox Weekday(Now) MsgBox Weekday(Now, vbWednesday) MsgBox vbUseSystemDayOfWeek MsgBox vbSunday MsgBox vbMonday MsgBox vbTuesday MsgBox vbWednesday MsgBox vbThursday MsgBox vbFriday MsgBox vbSaturday

MsgBox UCase("abc") MsgBox UCase("ABC") MsgBox UCase("Abc123") MsgBox UCase("ａｂｃ")

Dim array1(3) Dim array2(3,4) MsgBox UBound(array1) ' 3 MsgBox UBound(array2, 1) ' 3 MsgBox UBound(array2, 2) ' 4

MsgBox TypeName("abc") ' String MsgBox TypeName(1) ' Integer MsgBox TypeName(1.2) ' Double MsgBox TypeName(Now) ' Date MsgBox TypeName(#10/19/62#) ' Date MsgBox TypeName(x) ' Empty ary = Split("a,b,c", ",") MsgBox TypeName(ary) ' Variant()

MsgBox TimeValue("0:00:00") MsgBox TimeValue("00:00:00") MsgBox TimeValue("01:59:59") MsgBox TimeValue("01:59:59 PM") MsgBox TimeValue(Now) MsgBox TimeValue(#10/19/62#)

MsgBox TimeSerial(0, 0, 0) MsgBox TimeSerial(0, 0, 1) MsgBox TimeSerial(0, 1, 0) MsgBox TimeSerial(1, 0, 0) MsgBox TimeSerial(1, 0, -1)

MsgBox Timer MsgBox Timer

MsgBox Time MsgBox Now

MsgBox Tan(0) MsgBox Tan(0.78)

MsgBox StrReverse("abc") ' cba

MsgBox String(2, "abc") ' aa マニュアルリンクが変？

MsgBox StrComp("abc", "abc") ' 0 MsgBox StrComp("Abc", "abc") ' -1 MsgBox StrComp("abc", "Abc") ' 1

MsgBox Sqr(2) MsgBox Sqr(4) MsgBox Sqr(5)

ary = Split("a,b,c", ",") MsgBox ary(0) ary = Split("a b c") MsgBox ary(0) ary = Split("a,b,c", ",", 2) MsgBox ary(0) & "|" & ary(1) & "|" ' & ary(2) ary = Split("a b c", " ") MsgBox ary(0) & "|" & ary(1) & "|" & ary(2) ary = Split("a b c"…

MsgBox "*" & Space(2) & "*" MsgBox Len(Space(10)) スペースだけに限らない関数を用意すればよかったのでは？ないんだっけ？？？ String がそうみたいだ

MsgBox Sin(0) MsgBox Sin(1.57)

MsgBox Sgn(10) ' 1 MsgBox Sgn(0) ' 0 MsgBox Sgn(-10) ' -1

MsgBox Second(Now) MsgBox Second(#4:45:23 PM#) MsgBox Second(#10/19/62#)

MsgBox ScriptEngine MsgBox ScriptEngineBuildVersion MsgBox ScriptEngineMajorVersion MsgBox ScriptEngineMinorVersion

MsgBox Round(1.2) ' 1 MsgBox Round(1.5) ' 2 MsgBox Round(-1.2) ' -1 MsgBox Round(-1.5) ' -2 MsgBox Round(1.234, 2) ' 1.23

'Randomize MsgBox Rnd(1) MsgBox Rnd(10) MsgBox Rnd(0) MsgBox Rnd(0) upperbound = 10 lowerbound = 2 MsgBox Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

MsgBox Right("abc", 1) ' c MsgBox Right("abc", 2) ' bc MsgBox Right("abc", 3) ' abc MsgBox Right("abc", 4) ' abc MsgBox Right("abc", 0) '

MsgBox RGB( 0, 0, 0) ' 0 MsgBox RGB(255, 0, 0) ' 255 MsgBox RGB( 0, 255, 0) ' 65280 MsgBox RGB( 0, 0, 255) ' 16711680

MsgBox Replace("abc", "a", "A") ' Abc MsgBox Replace("abc", "ab", "AB") ' ABc MsgBox Replace("abcabc", "ab", "AB", 2) ' bcABc MsgBox Replace("abcabc", "ab", "AB") ' ABcABc MsgBox Replace("abcabc", "ab", "AB", 1, 1) ' ABcabc MsgBox Replace(…

MsgBox Oct(1) ' 1 MsgBox Oct(7) ' 7 MsgBox Oct(8) ' 10 MsgBox Oct(&O10) ' 10

MsgBox Now

MsgBox "Message", vbOKCancel, "Title" MsgBox MsgBox("Message", vbOKCancel, "Title")

For i = 1 To 12 MsgBox MonthName(i) Next For i = 1 To 12 MsgBox MonthName(i, Flase) Next 「○月」で表示される。英語で出力するには？ 省略形は「月」なしで表示