'=====================================================================.
'Temps de format (affichage)
'Paramètre: n_flag
'1: "Yyyy-mm-ddhh: mm: ss"
'2: "Yyyy-mm-dd"
'3: "HH: MM: SS"
'4: "Yyyyy Year Mm Moids DD Day"
'5: "Yyyymmdd"
'=====================================================================.
Functionformat_time (s_time, n_flag)
Dimy, M, D, H, MI, S
Format_time = ""
Ifisdate (s_time) = falsethenexitfunction
y = cSTR (année (s_time))
M = CSTR (mois (S_time))
Iflen (m) = 1Thenm = "0" & m
D = CSTR (Day (S_time))
Iflen (d) = 1Then = "0" & d
H = CSTR (Hour (S_time))
Iflen (h) = 1Thenh = "0" & h
mi = cstr (minute (s_time))
Iflen (mi) = 1Thenmi = "0" & mi
S = CSTR (deuxième (S_time))
Iflen (s) = 1Thens = "0" & s
Selectcasen_flag
Cas1
'yyyy-mm-ddhh: mm: ss
Format_time = y & "-" & m & "-" & d & "" & h & ":" & mi & ":" & s
Cas2
'Yyyy-mm-dd
Format_time = y & "-" & m & "-" & d
Cas3
'HH: MM: SS
Format_time = h & ":" & mi & ":" & s
Cas4
'Yyyy Year Mm Mois DD Day
Format_time = y & "année" & m & "mois" & d & "day"
Cas5
'Yyyymmdd
Format_time = y & m & d
Se licez
Finition de fin