vbscript Formato DMTF（MySQL）中的转换数据

Posted 2021-05-22

'Conversione di data in formato DMTF (MySQL) (20121231224530.595959+120 = 31/12/2012 22:45:30) in data leggibile:
Function dmtfTovbDate(WbemDateTimeValue)
	dim y, mon, d, h, min, sec
	y = CLng( Left(WbemDateTimeValue, 4) )
	mon = CLng( Mid(WbemDateTimeValue, 5, 2) )
	d = CLng( Mid(WbemDateTimeValue, 7, 2) )
	h = CLng( Mid(WbemDateTimeValue, 9, 2) )
	min = CLng( Mid(WbemDateTimeValue, 11, 2) )
	sec = CLng( Mid(WbemDateTimeValue, 13, 2) )
	dmtfTovbDate = CDate( _
	CDBl( DateSerial(y, mon, d) ) _
	+ ( (sec/60 + min)/60 + h )/24 _
	)
End function