トッカンソフトウェア

WSH 日付、時間

				
'日時をyyyymmddhhmmss形式に変換
Function getDateTime(date)
	getDateTime = Year(date)
	getDateTime = getDateTime & Right("0" & Month(date) , 2)
	getDateTime = getDateTime & Right("0" & Day(date) , 2)
	getDateTime = getDateTime & Right("0" & Hour(date) , 2)
	getDateTime = getDateTime & Right("0" & Minute(date) , 2)
	getDateTime = getDateTime & Right("0" & Second(date) , 2)
End Function

'日時をyyyymmdd形式に変換
Function getDate(date)
	getDate = Year(date)
	getDate = getDate & Right("0" & Month(date) , 2)
	getDate = getDate & Right("0" & Day(date) , 2)
End Function

'日時をyyyymmddhhmmss形式に変換
Function getTime(date)
	getTime = Right("0" & Hour(date) , 2)
	getTime = getTime & Right("0" & Minute(date) , 2)
	getTime = getTime & Right("0" & Second(date) , 2)
End Function

'日時を指定形式で表示
wscript.echo getDateTime(Now())
wscript.echo getDate(Now())
wscript.echo getTime(Now())

dim dt1,dt2
dt1 = Now()

'日時の加算("yyyy":年、"m":月、"d":日、"h":時、"n":分、"s":秒)
dt2 = DateAdd("yyyy",1,dt1)
wscript.echo dt1 & "_" & dt2

'日時の差("yyyy":年、"m":月、"d":日、"h":時、"n":分、"s":秒)
wscript.echo DateDiff("yyyy",dt1,dt2)