TEXT _tTxt
TIME _t
BEGIN
; conversion of monotonic standard time in text form to time
; for standard time
_t := %StrMonoToTime("04:00:00 01-01-2005", "hh:mi:ss dd-mm-rrrr", 3600)
_tTxt := %TimeToStrEx(_t, "hh:mi:ss dd-mm-rrrr") ; gets the value of "04:00:00 01-08-2005"
; for day-light saving time
_t := %StrMonoToTime("04:00:00 01-08-2005", "hh:mi:ss dd-mm-rrrr", 3600)
_tTxt := %TimeToStrEx(_t, "hh:mi:ss dd-mm-rrrr") ; gets the value of "05:00:00 01-08-2005"
END
Pridať komentár