2011-06-01から1ヶ月間の記事一覧
MsgBox Eval("1+2") ' 3 MsgBox Eval("1 = 1") ' True 「=」は代入と解釈されないらしい
MsgBox Day("2011-06-29") ' 29 MsgBox Day(#6/29/2011#) ' 29
MsgBox DateValue("2011-06-28") ' 2011/06/28 'MsgBox DateValue("2011-06-31") ' Error MsgBox DateValue("2011/06/28") ' 2011/06/28 MsgBox DateValue("平成 23 年 6 月 28 日") ' 2011/06/28 MsgBox DateValue("6 月 28 日") ' 2011/06/28 MsgBox DateV…
MsgBox DateSerial(2011, 6, 27) MsgBox DateSerial(2011, 6, 31) ' 2011/07/01 MsgBox DateSerial(2011, 6, 0) ' 2011/05/31 MsgBox DateSerial(2011, 13, 1) ' 2012/01/01 MsgBox DateSerial(99, 6, 27) ' 1999/06/27 いまいち使い道が分かったような分か…
MsgBox DatePart("yyyy", Date) MsgBox DatePart("q", Date) MsgBox DatePart("m", Date) MsgBox DatePart("y", Date) MsgBox DatePart("d", Date) MsgBox DatePart("w", Date) MsgBox DatePart("ww", Date) MsgBox DatePart("h", Date) MsgBox DatePart("n"…
MsgBox DateDiff("d", "31-Jan-95", "30-Jan-95") MsgBox DateDiff("yyyy", "31-Jan-95", "30-Jan-95") MsgBox DateDiff("yyyy", "31-Jan-95", "31-Jan-96") 'MsgBox DateDiff("yyyy", "31-Feb-95", "31-Feb-96") MsgBox DateDiff("yyyy", "31-Dec-95", "1-J…
MsgBox DateAdd("d", 1, Date) MsgBox DateAdd("d", -1, Date) MsgBox DateAdd("m", 1, "31-Jan-95")
MsgBox Date
MsgBox CStr(123) MsgBox CStr(True) MsgBox CStr(CDate("October 19, 1962")) MsgBox CStr(#4:45:23 PM#)
まんま MsgBox CSng(75.3421115) ' 75.34211 MsgBox CSng(75.3421555) ' 75.34216 範囲を超える場合ってどういうとき？
ほぼ、まんま Set ExcelSheet = CreateObject("Excel.Application") ExcelSheet.Application.Quit Set ExcelSheet = Nothing WScript.CreateObject としなくても良かったのか〜
MsgBox Cos(0) MsgBox Cos(3.14/2)
略す必要あるのか？？？ 32ビットの範囲のようだ MsgBox CLng(123.456) MsgBox CLng(123.5) MsgBox CLng(2147483647) ' 2**31-1 'MsgBox CLng(2147483648) ' 2**31
整数型というのは、16ビットの範囲のようだ MsgBox CInt(123.456) MsgBox CInt(123.5) MsgBox CInt(32767) ' 2**15-1 'MsgBox CInt(32768) ' 2**15
ほぼ、まんま MsgBox Chr(65) ' A MsgBox Chr(97) ' a MsgBox Chr(62) ' > MsgBox Chr(37) ' % MsgBox Chr(33440) ' あ
まんま MsgBox CCur(234.456784) MsgBox CDbl(CCur(234.456784)) MsgBox CDbl(CCur(234.456784) * 8.2 * 0.01) MsgBox CDbl(234.456784 * 8.2 * 0.01)
ほぼ、まんま MsgBox CDate("October 19, 1962") MsgBox CDate("4:35:47 PM") MsgBox IsDate("a") MsgBox IsDate("12:00:00") MsgBox #10/19/1962# MsgBox #4:45:23 PM#
ほぼ、まんま MsgBox CCur(1) MsgBox CCur(123.45) MsgBox (543.214588 * 2) ' 1086.429176 MsgBox (CCur(543.214588) * 2) ' 1086.4292 'MsgBox (0.1 + 0.1) 'MsgBox (0.1 * 2) 'MsgBox (CCur(0.1) + CCur(0.1))
MsgBox VarType(1) ' 2 MsgBox VarType(CByte(1)) ' 17 MsgBox CByte(1) ' 1 MsgBox CByte(1.2) ' 1 MsgBox CByte(123.45) ' 123 MsgBox CByte(123.5) ' 124
MsgBox CBool(0) MsgBox CBool(1) MsgBox CBool(2) MsgBox CBool(False) MsgBox CBool(True) MsgBox CBool("0") MsgBox CBool("1")
ほぼ、まんま MsgBox 4 * Atn(1)
MsgBox Asc("A") ' 65 MsgBox Asc("a") ' 97 MsgBox Asc("Apple") ' 65 MsgBox Asc("表") ' -27300 MsgBox AscB("A") ' 65 MsgBox AscW("表") ' -30616 MsgBox Asc(1) ' 49
x = Array(10, 11, 12) MsgBox x(0) y = Array() ReDim y(2) y(0) = 100 MsgBox y(0) z = Array(1, "foo") MsgBox z(0) & " " & z(1)
MsgBox Abs(1) MsgBox Abs(-1) MsgBox Abs("1") MsgBox Abs("-1")
まんま Class TestClass Private Sub Class_Initialize MsgBox("TestClass started") End Sub Private Sub Class_Terminate MsgBox("TestClass terminated") End Sub End Class Set X = New TestClass Set X = Nothing
MsgBox "vbEmpty: " & vbEmpty & " " & VarType(not_assign) MsgBox "vbNull: " & vbNull & " " & VarType(Null) MsgBox "vbInteger: " & vbInteger & " " & VarType(1) MsgBox "vbLong: " & vbLong & " " & VarType(2147483647) MsgBox "vbDouble: " & vbDo…
MsgBox vbUseDefault MsgBox vbTrue MsgBox vbFalse
MsgBox "vbCr: " & Asc(vbCr) MsgBox "vbCrLf: " & Asc(vbCrLf) MsgBox "vbFormFeed: " & Asc(vbFormFeed) MsgBox "vbLf: " & Asc(vbLf) MsgBox "vbNewLine: " & Asc(vbNewLine) MsgBox "vbNullChar: " & Asc(vbNullChar) 'MsgBox "vbNullString: " & Asc(vb…
MsgBox "vbOK: " & vbOK MsgBox "vbCancel: " & vbCancel MsgBox "vbAbort: " & vbAbort MsgBox "vbRetry: " & vbRetry MsgBox "vbIgnore: " & vbIgnore MsgBox "vbYes: " & vbYes MsgBox "vbNo: " & vbNo ret = MsgBox("vbOKOnly", vbOKOnly) MsgBox "ret: …
MsgBox "vbOKOnly", vbOKOnly MsgBox "vbOKCancel", vbOKCancel MsgBox "vbAbortRetryIgnore", vbAbortRetryIgnore MsgBox "vbYesNoCancel", vbYesNoCancel MsgBox "vbYesNo", vbYesNo MsgBox "vbRetryCancel", vbRetryCancel MsgBox "vbCritical", vbCritic…
