'=========================================================
وقت التنسيق (العرض)
المعلمة: 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 (اليوم (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 (الثاني (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
Case3
'HH: MM: SS
format_time = h & ":" & mi & ":" & s
Case4
'Yyyy Year Mm Month Day Day
format_time = y & "year" & m & "month" & d & "day"
Case5
yyyymmdd
format_time = y & m & d
endselect
الوظيفية