(for Internet Explorer)
Sub  Dictionary::Add( Key as string, Item as variant )
要素を追加します。
すでに Key がある時は、エラー 0x1C9 になります。
すでに Key があるかどうかに関わらず設定するときは、
を使って
ください。
Function  Dictionary::Keys() as array of string
Dictionary の中にある要素のうち、キーを集めた配列を返す
Dictionary
Key  Item
Key  Item
Key  Item
  For Each key in dic.Keys
    WScript.Echo key & " " & dic.Item(key)
  Next
次のようにすれば、Key と Item の両方を参照できます。
Count (Dictionary)
Property Get  Dictionary::Count() as integer
要素の数
Function  Dictionary::Items() as array of variant
Dictionary の中にある要素のうち、アイテムを集めたコレクションを返す
Dictionary
Key  Item
Key  Item
Key  Item
Default Property Get  Dictionary::Item( Key as string ) as variant
引数 key をキーとした item を返します。

登録したくないときは Exists で調べてください。
Item はデフォルト・プロパティです。 .Item を省略できます。
dic.Item("key1") = 1
Set  dic.Item("key2") = New Class
ただし、次のようにしても、item は変更できません
item = dic.Item("key1")
item = 1
item <> dic.Item("key1")
登録されていないときは、新規に登録します。
関連
返した item は参照返しなので、下記のように設定することができます。
dic("key1") = 1  '// dic.Item("key1") = 1
Function  Dictionary::Exists( Key as string ) as boolean
指定したキーに対応する要素が入っているかどうかを返します。
Property  Dictionary::CompareMode  as integer
キーの種類。 同じキーとして扱う条件。
0
バイナリ比較、大文字小文字を区別
1
文字列比較、大文字小文字を区別しない
他にもあります
  Const  NotCaseSensitive = 1
  Dim  dic : Set dic = CreateObject( "Scripting.Dictionary" )
  dic.CompareMode = NotCaseSensitive
サンプル:
注意
すでにデータが入っているときは、エラーになります。
Sub  Dictionary::Remove( Key as string )
Sub  Dictionary::RemoveAll()
c = a Mod b
剰余。 あまり。 9 Mod 4 = 1, -9 Mod 4 = -1
&h1F
16進数の 1F (10進数の値は 31)
&h8000 〜 &hFFFF、&h80000000 〜 &hFFFFFFFF は、マイナス
-32767〜+32767 は、Integer です。 -32768 は Long です。
Const  Err_TestSkip = 2
定数。 参照する場所より上に記述する必要がある
Execute されるコードには再度記述が必要
→ クラスの定数
c = a And b
c = a Or b
論理積
論理和、1 にするビット演算
c = a \ b
商(割った結果を整数にする)
If は、0以外で真になります
hex_str = Hex( 16 )
CInt(1.9) = 2, Int(1.9) = 1, Fix(1.9) = 1
CInt(1.9) = -2, Int(-1.9) = -2, Fix(-1.9) = -1
c = a Xor b
c = a And Not b
排他的論理和
0 にするビット演算
キーワード:
関連
参考
Sub main()
  Dim  folder, fnames()
  Dim  fname, f
  Dim  key_date

  key_date = CDate( "2008/06/16" )
  ExpandWildcard  "sub\*", F_File Or F_SubFolder, folder, fnames
  For Each fname in fnames
    Set  f = g_fs.GetFile( folder + "\" + fname )
    If f.DateLastModified > key_date Then  echo f.Path & " - " & f.DateLastModified
  Next
End Sub
年月日時分秒の文字列を Date 型に変換します
サンプル:
現在の年月日時分秒を返します
Date 型の扱いの基本
ミリ秒単位の計測
タイムゾーン
Date型を文字列に変換します
文字列型に変換すると、地域に合わせたフォーマットの文字列を返します。
日本:
2008/06/11 14:28:01
文字列型への変換
文字列型から Date クラスへの変換
代入は Set 不要
Date 型はクラスではないので、Set d = CDate(...) のような Set は不要です。
参考
2008/06/11
= CStr( Date() )
= CStr( Now() )
= CStr( Time() )
14:28:01
  t = CDate( "2008/06/16" )
西暦 100年 1月 1日〜 9999年 12月31日まで表せます。
Date 型の値のタイムゾーンは、その定義によります。
a = CDate("12:00") のとき、a がローカル・タイムゾーンの日時を格納するという定義であったら、
ローカル・タイムゾーンでの 12:00 になり、
b = CDate("3:00") のとき、b が UTC の日時を格納するという定義であったら、
UTC での 3:00 になります。
Date 型の値に、タイムゾーンの定義を追加したら、世界共通の絶対的な時刻になります。
Date 型のタイムゾーン
Function  Now() as Date
現在の年月日時分秒を返します。
OSに設定している地域=「日本」なら、CStr( Now() ) は次のようになります。
2007/08/10 12:26:21
関連
WScript.Echo  "Now = " & Now()
サンプル:
Function  Date() as Date
現在の年月日を返します。
OSに設定している地域=「日本」なら、CStr( Date() ) は次のようになります。
2007/08/10
時刻は、0:00:00 になります。
Function  Time() as Date
現在の時分秒を返します。
OSに設定している地域=「日本」なら、CStr( Time() ) は次のようになります。
9:15:04
年月日は、1899年 12月 30日(土) になります。
Function  Timer() as Single
今日の 0:00 から経過した時間を返します。(単位は秒、小数あり)
WScript.Echo  Timer
サンプル:
出力例:
46529.59
精度は、約16ミリ秒のようです。(WinXP)
  Dim  i, t0 : t0 = Timer
  For i=1 To 1000
    WScript.Echo  i & " " & (Timer - t0) & "(sec)"
  Next
計測スクリプト:
    :
56 0(sec)
57 0(sec)
58 0(sec)
59 0.015625(sec)
60 0.015625(sec)
61 0.015625(sec)
    :
出力例:
  Dim  t0, t1

  t0 = Timer()
    WScript.Sleep 30
  t1 = Timer() - t0
  WScript.Echo  FormatNumber( t1, 3 ) & "(sec)"
サンプル: t0= から t1= の間の時間を表示する
0.031(sec)
出力例:
Function  CDate( Date as variant ) as Date
Date が文字列のときの例
CDate("July 1, 2008")
アメリカ:
CDate("2008/7/1")
日本:
年月日を Date 型に変換します。
CDate("2008/7/1 12:29")
時分秒が省略されると 0時、0分、0秒のように、各位の値が 0 になります。
年が省略されると、今年になります。
年月日が省略されると、1899年、12月、30日になります。
CDate("7/1 12:29")
2008/7/1 0:00:00
2008/7/1 12:29:00
(今年)/7/1 12:29:00
格納される値
CDate("12:29")
1899/12/30 12:29:00
#7/1 12:00# のように # で囲んだものは、リテラル日時です。
タイムゾーンは、その定義によります。
a = #12:00# のとき、a がローカル・タイムゾーンの日時を格納するという定義であったら、
ローカル・タイムゾーンでの 12:00 になり、
b = #3:00# のとき、b が UTC の日時を格納するという定義であったら、
UTC での 3:00 になります。
CDate("7/1")
(今年)/7/1 0:00:00
Function  DateSerial( Year as integer, Month as integer, Day as integer ) as Date
年月日から Date 型を返します。
Function  FormatDateTime( aDateTime as Date [, NamedFormat as integer] ) as string
Date型を文字列に変換します。
vbGeneralDate
地域の日付か時刻、または両方を表示します。 CStr と同じです。
(デフォルト)
vbLongDate
vbLongTime
vbShortDate
vbShortTime
地域の日付(長い形式)
地域の日付(短い形式)
24 時間形式
地域の時刻
NamedFormat 引数
12:41
12:41:25
2010/12/03
2010年12月3日
2010/12/03 12:41:25
Function  GetLocale() as integer
現在の地域を表す番号を返します。
Function  Month( d as Date ) as integer
Function  Day( d as Date ) as integer
Day("October 19, 1962") = 19
Function  Hour( d as Date ) as integer
Function  Minute( d as Date ) as integer
Function  Second( d as Date ) as integer
Function  Weekday( d as Date ) as integer
Function  Year( d as Date ) as integer
vbSunday
1
vbMonday
vbSaturday
vbTuesday
vbWednesday
vbThursday
vbFriday
2
3
4
5
6
7
11月なら 11
0〜23
Function  WeekdayName( w as integer ) as string
Function  MonthName( Month as integer [, IsAbbreviate as boolean ] ) as string
1=日、2=月、…、7=土
If Now() >= CDate("2008/7/1 13:30") Then
  '// 2008/7/1 13:30 以後なら
End If
比較するときは、Date 型同士を比較してください。
年が省略されると、今年になります。
時分秒が省略されると 0時、0分、0秒になります。
その日の終わりと比較するときは、その日ではなく次の日にするか、
時分(23:59:59) も指定してください。
年月日が省略されると、0年、0月、0日になります。
現在の時刻と比較するときは、現在の時刻を
で取得してください。
7/1
7/2
サンプル: 7/1が〆切のときに、〆切前かどうか
If Now() <= CDate("7/1 23:59:59") Then
If Now() < CDate("7/2") Then
← 厳密には1秒異なるが十分
サンプル: 昼休みかどうか
If Time() >= CDate("12:00") and Time() < CDate("13:00") Then
7/2
7/1
12:00
13:00
13:00
12:00
ただし、等しいかどうかの判定は、浮動小数型のように誤差を考慮してください。
If Abs(DateDiff("s", Now(), CDate("2008/7/1 13:30") )) < 1 Then
  '// 現在が 2008/7/1 13:30 丁度なら
End If
関連
VBScript では、時間の間隔を表す TimeSpan 型がありません。
時間の加算や減算を行う
2つ日付や時間の差を計算する
Function  DateAdd( Unit as string, Number as integer, Base as Date or string ) as Date
日付を加算または減算します。
【引数】
Unit
Number
単位をあらわす文字列
加算、または減算する値
Base
加算、または減算される日付
計算結果の日付
返り値
サンプル:
  Dim  d : d = CDate("2008/7/1")
  d = DateAdd( "m", +1, d )
Unit 引数
"yyyy"
"m"
"d"
"h"
"n"
"s"
"ww"
d = CDate("2008/8/1")
d = DateAdd( "n", +1, Now() )
今から 1分後
関連
d = DateAdd( "d", +185-1, CDate("2010/1/1") )
年始から185日目 = "2010/07/04"
185
Function  DateDiff( Unit as string, DateB as Date or string, DateA as Date or string ) as Date
日付の差(DateA - DateB)を数値で返します。
【引数】
Unit
DateB
差の単位をあらわす文字列
日付、時刻 (通常、DateA より過去)
DateA
日付、時刻 (通常、DateB より未来)
日付や時刻の差。 正=DateA が大きい(未来)、負=DateB が大きい
返り値
Unit 引数
"yyyy"
"m"
"d"
"h"
"n"
"s"
"ww"
サンプル:
  Dim  m : m = DateDiff( "m", "2008/7/1", "2009/8/1" )
m = 13 (ヶ月)
  Dim  d : d = DateDiff( "d", "2010/1/1", "2010/7/4" ) + 1
d = 185 (日目)年始から
7/4
参考
文字数を調べる
Len( s )
文字列を取り出す
Left( s, n ), Mid( s, i [, n] ), Right( s, n )
UCase, LCase, StrConv
変換、大文字小文字
文字コード
Asc, AscB, AscW, Chr, ChrB, ChrW
InStr( [i,] s, key ), Replace( s, from, to )
InStrRev( s, key [,i] )
StrComp( a, b )
連続
"a ""b"" c"
vbCR+vbLF
改行文字など
関連
vbCRLF
vbTab
vbNewLine
vbNullChar
Join( array, delimiter )
比較
バイナリ操作
LeftB, MidB, RightB, LenB, AscB, ChrB