パソコン・ガジェット・プログラミング・映像編集・フリーソフト・無線・電子工作・天気予報等・・・etc やりたいことやったこといろいろ書きます。

【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 'この場合、差が日付で出てくるので処理を自分で書く事もできる