Dim hex_str As String
hex_str = BC.HexFromBytes(CurrentDateTime)
DWIN_YEAR = BC.StringFromBytes(BC.SubString2(hex_str, 0, 2))
DWIN_MONTH = BC.StringFromBytes(BC.SubString2(hex_str, 2, 4))
DWIN_DAY = BC.StringFromBytes(BC.SubString2(hex_str, 4, 6))
DWIN_WEEK_DAY = BC.StringFromBytes(BC.SubString2(hex_str, 6, 8))
DWIN_HOUR = BC.StringFromBytes(BC.SubString2(hex_str, 8, 10))
DWIN_MINUT = BC.StringFromBytes(BC.SubString2(hex_str, 10, 12))
DWIN_SECOND = BC.StringFromBytes(BC.SubString2(hex_str, 12, 14))
Log(hex_str) '16092103154817
Log(DWIN_YEAR,DWIN_MONTH,DWIN_DAY,DWIN_WEEK_DAY,DWIN_HOUR,DWIN_MINUT,DWIN_SECOND) '169213154817