"===============================================================================================================
'Formatzeit (Anzeige)
'Parameter: n_flag
'1: "yyyy-mm-ddhh: mm: ss"
'2: "yyyy-mm-dd"
'3: "HH: MM: SS"
'4: "Yyyyy Year Mm Monat DD Day"
'5: "Yyyymmdd"
"===============================================================================================================
FunktionFormat_Time (S_Time, N_flag)
Dimy, M, D, H, Mi, s
Format_time = ""
IfisDate (s_time) = falsethenexitfunction
y = cstr (Jahr (s_time))
m = cstr (monat (s_time))
Iflen (m) = 1Thenm = "0" & m
d = cstr (tag (s_time))
Iflen (d) = 1Then = "0" & d.
H = CSTR (Stunde (S_Time))
Iflen (h) = 1Thenh = "0" & h
mi = cstr (minute (s_time))
Iflen (mi) = 1Thenmi = "0" & mi
S = CSTR (Sekunde (S_Time))
Iflen (s) = 1Thens = "0" & s
SelectCasen_flag
Fall1
'yyyy-mm-ddhh: mm: ss
Format_time = y & "-" & m & "-" & d & "" & h & ":" & mi & ":" & s
Fall2
'yyyy-mm-dd
Format_time = y & "-" & m & "-" & d
Fall3
'HH: MM: SS
Format_time = h & ":" & mi & ":" & s
Fall4
'Yyyy Year Mm Monat DD Day
Format_time = y & "Jahr" & m & "Monat" & D & "Day"
Fall 5
'Yyyymmdd
Format_time = y & m & d
Endauswahl
Endfunktion