| 以下是代码片段: - - '格式化时间 (显示) '参数: 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 & "日" สิ้นสุดเลือก ฟังก์ชันสิ้นสุด - |