Conversione di data in formato DMTF (MySQL)
'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