-
'เวลารูปแบบ (จอแสดงผล)
'พารามิเตอร์: 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"
-
funcyFormat_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
กรณีที่ 1
'yyyy-mm-ddhh: mm: ss
format_time = y & "-" & m & "-" & d & "" & h & ":" & mi & ":" & s
กรณีที่ 2
'yyyy-mm-dd
format_time = y & "-" & m & "-" & d
กรณีที่ 3
'HH: MM: SS
format_time = h & ":" & mi & ":" & s
กรณีที่ 4
'Yyyy Year Mm Month Dd Day
format_time = y & "year" & m & "month" & d & "day"
CASE5
'yyyymmdd
format_time = y & m & d
endelect
endfunction