'====================================================================
'Format Time (Display)
'Параметр: n_flag
'1: "yyyy-mm-ddhh: mm: ss"
'2: "yyyy-mm-dd"
'3: "HH: MM: SS"
4: "Yyyyy Year MM Month DD Day"
'5: "yyyymmdd"
'====================================================================
Functionformat_time (s_time, n_flag)
Dimy, M, D, H, Mi, S.
Format_time = ""
Ifisdate (s_time) = falsethenexitfunction
y = cstr (год (s_time))
m = cstr (месяц (s_time))
Iflen (m) = 1thenm = "0" & m
d = cstr (day (s_time))
Iflen (d) = 1then = "0" & d
h = cstr (час (s_time))
Iflen (h) = 1thenh = "0" & h
mi = cstr (минута (s_time))
Iflen (mi) = 1thenmi = "0" & mi
S = CSTR (Second (S_TIME))
Iflen (s) = 1thens = "0" & s
SELECTCASEN_FLAG
Case1
'yyyy-mm-ddhh: mm: ss
Format_time = y & "-" & m & "-" & d & "" & h & ":" & mi & ":" & s
Case2
yyyy-mm-dd
Format_time = y & "-" & m & "-" & d
Случай 3
'HH: MM: SS
Format_time = h & ":" & mi & ":" & s
Случай 4
'Yyyy Year Mm Month DD День DD
Format_time = y & "Год" & "M &" Month "& D &" День "
Case5
'yyyymmdd
Format_time = y & m & d
Endselect
Конечная функция