ฟังก์ชั่นการจัดรูปแบบเวลา

-

-

'格式化时间 (显示)

'参数： n_flag

'1: "YYYY-MM-DD HH: MM: SS"

'2: "yyyy-mm-dd"

'3: "HH: MM: SS"

'4: "yyyy 年 mm 月 dd 日"

-

FUNCTION FORMAT_TIME (S_TIME, N_FLAG)

Dim y, m, d, h, mi, s

format_time = ""

ถ้า isdate (s_time) = false จากนั้นออกจากฟังก์ชัน

y = cstr (ปี (s_time))

M = CSTR (เดือน (s_time))

ถ้า len (m) = 1 จากนั้น m = "0" & ​​m

d = cstr (วัน (s_time))

ถ้า len (d) = 1 ดังนั้น d = "0" & ​​d

H = CSTR (ชั่วโมง (s_time))

ถ้า len (h) = 1 ดังนั้น h = "0" & ​​h

mi = cstr (นาที (s_time))

ถ้า len (mi) = 1 จากนั้น mi = "0" & ​​mi

S = CSTR (วินาที (s_time))

ถ้า len (s) = 1 ดังนั้น s = "0" & ​​s

เลือกกรณี n_flag

กรณีที่ 1

'YYYY-MM-DD HH: 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 年 mm 月 dd 日

format_time = y & "年" & m & "月" & d & "日"

สิ้นสุดเลือก

ฟังก์ชันสิ้นสุด

-