【VBS】時刻関係の処理
時刻関係の処理。だいたいこのぐらいあれば事足りそう。
ちなみにFormat文的なのはないみたいなので、自分で書くしかない。
'現在日付 MsgBox Date '2021/04/20 MsgBox Day(date) '20 MsgBox Month(date) '4 MsgBox Year(date) '2021 '現在時刻の取得 MsgBox Time '13:49:08 MsgBox Hour(time) '13 MsgBox Minute(time) '49 MsgBox Second(time) '8 '任意の日付を生成する 2020年3月15日9時15分35秒を Dim d Dim t Dim dayTime d = DateSerial(2020,3,15) t = TimeSerial(15,15,35) dayTime = d + t MsgBox dayTime '2020/03/15 15:15:35 '任意の時間から任意の時間を足し引きする dayTime = DateAdd("h",-9,dayTime) '上で作った時間から9時間を引く '第一引数 何を引くか(主なもの) 'yyyy : 年 'm : 月 'd : 日 'ww : 1週間 'h : 時 'n : 分 's : 秒 MsgBox dayTime '2020/03/15 6:15:35 '時間差を求める MsgBox DateDiff("h", Date, dayTime) '第2引数は上と同じ この場合時間で出てくる。 MsgBox date-dayTime 'この場合、差が日付で出てくるので処理を自分で書く事もできる