TEXT_tTxt
TIME _t
BEGIN
; prevod textového vyjadrenia monotónneho zimného času na čas v zime
; v zime
_t := %StrMonoToTime("04:00:00 01-01-2005", "hh:mi:ss dd-mm-rrrr", 3600)
_tTxt := %TimeToStrEx(_t, "hh:mi:ss dd-mm-rrrr";) ; nadobudne hodnotu "04:00:00 01-08-2005"
; v lete
_t := %StrMonoToTime("04:00:00 01-08-2005", "hh:mi:ss dd-mm-rrrr", 3600)
_tTxt := %TimeToStrEx(_t, "hh:mi:ss dd-mm-rrrr") ; nadobudne hodnotu "05:00:00 01-08-2005"
END
Pridať komentár