| 以下是代码片段 <% '============================================== '格式化时间 (显示) '参数 ： n_flag '1: "AAAA-MM-DD HH: MM: SS" '2: "AAAA-MM-DD" '3: "hh: mm: ss" '4: "AAYYY 年 MM 月 DD 日" '============================================== Função format_time (s_time, n_flag) Dim y, m, d, h, mi, s Format_time = "" Se Isdate (S_TIME) = FALSO FUNÇÃO ENTÃO y = cstr (ano (s_time)) m = cstr (mês (s_time)) Se Len (m) = 1 então M = "0" & M d = cstr (dia (s_time)) Se len (d) = 1 então d = "0" & d h = cstr (hora (s_time)) Se len (h) = 1 então h = "0" & h mi = cstr (minuto (s_time)) Se Len (mi) = 1 então mi = "0" & mi s = cstr (segundo (s_time)) Se len (s) = 1 então s = "0" & s Selecione Case n_flag Caso 1 'yyyy-mm-dd hh: mm: ss Format_time = y & "-" & m & "-" & d & "" & h & ":" & mi & ":" & s Caso 2 'AAAA-MM-DD Format_time = y & "-" & m & "-" & d Caso 3 'HH: MM: SS Format_time = h & ":" & mi & ":" & s Caso 4 'yyyy 年 mm 月 dd 日 Format_time = y & "年" & m & "月" & d & "日" Final Selecione Função final %> |