＜記述形式＞
Variant(Date) = FormatDateTime(Date [,NamedFormat])
Date
日付フォーマットを指定します。Date、Time、Now関数など。
Now -> 2008/11/06 0:29:47
Date -> 2008/11/06
Time -> 0:29:47
NamedFormat
0 ： 指定した値によって、正規／短縮の日付／時刻の表示
1 ： システムのロケール設定に従った正規の日付表示
2 ： システムのロケール設定に従った短縮の日付表示
3 ： システムのロケール設定に従った正規の時刻表示
4 ： システムのロケール設定に従った短縮の時刻表示
※とは言っても、設定するDateにより編集が変わりますので、サンプルの結果をまずは参考にしてみてください。
＜説明＞
日付／時刻表示のフォーマットへ変換します。
＜ソース＞
ec Now
'[2008/11/06 0:29:47]2008/11/06 0:29:47
ec FormatDateTime(Now(),0)
'[2008/11/06 0:29:47]2008/11/06 0:29:47
ec FormatDateTime(Now(),1)
'[2008/11/06 0:29:47]2008年11月6日
ec FormatDateTime(Now(),2)
'[2008/11/06 0:29:47]2008/11/06
ec FormatDateTime(Now(),3)
'[2008/11/06 0:29:47]0:29:47
ec FormatDateTime(Now(),4)
'[2008/11/06 0:29:47]00:29
ec Date
'[2008/11/06 0:29:47]2008/11/06
ec FormatDateTime(Date())
'[2008/11/06 0:29:47]2008/11/06
ec FormatDateTime(Date(),0)
'[2008/11/06 0:29:47]2008/11/06
ec FormatDateTime(Date(),1)
'[2008/11/06 0:29:47]2008年11月6日
ec FormatDateTime(Date(),2)
'[2008/11/06 0:29:47]2008/11/06
ec FormatDateTime(Date(),3)
'[2008/11/06 0:29:47]0:00:00
ec FormatDateTime(Date(),4)
'[2008/11/06 0:29:47]00:00
ec Time
'[2008/11/06 0:29:47]0:29:47
ec FormatDateTime(Time(),0)
'[2008/11/06 0:29:47]0:29:47
ec FormatDateTime(Time(),1)
'[2008/11/06 0:29:47]1899年12月30日
ec FormatDateTime(Time(),2)
'[2008/11/06 0:29:47]1899/12/30
ec FormatDateTime(Time(),3)
'[2008/11/06 0:29:47]0:29:47
ec FormatDateTime(Time(),4)
'[2008/11/06 0:29:47]00:29
'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub
