格式化输出

1，2010-10-10 00：00：00
2，2010-10-10
3，2010/10/10
4，2010年10月10 00小时00分钟00秒
5，10-10 00:00:00
6，10/10
7，10月10日
其他变换根据程序要自行添加即可
 

 
    
     
         
  1. '格式化时间函数  
    2.  
         
  2. public function formatdate(dateandtime,para)  
    3.  
         
  3.     on error resume next  
    4.  
         
  4.     dim y, m, d, h, mi, s, strdatetime  
    5.  
         
  5.     formatdate = dateandtime 
    6.  
         
  6.     if not isnumeric(para) then exit function  
    7.  
         
  7.     if not isdate(dateandtime) then exit function  
    8.  
         
  8.     y = cstr(year(dateandtime))  
    9.  
         
  9.     m = cstr(month(dateandtime))  
    10.  
         
  10.     if len(m) = 1 then m = "0" & m  
    11.  
         
  11.     d = cstr(day(dateandtime))  
    12.  
         
  12.     if len(d) = 1 then d = "0" & d  
    13.  
         
  13.     h = cstr(hour(dateandtime))  
    14.  
         
  14.     if len(h) = 1 then h = "0" & h  
    15.  
         
  15.     mi = cstr(minute(dateandtime))  
    16.  
         
  16.     if len(mi) = 1 then mi = "0" & mi  
    17.  
         
  17.     s = cstr(second(dateandtime))  
    18.  
         
  18.     if len(s) = 1 then s = "0" & s  
    19.  
         
  19.     select case para  
    20.  
         
  20.         case "1"  
    21.  
         
  21.             strdatetime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s  
    22.  
         
  22.         case "2"  
    23.  
         
  23.             strdatetime = y & "-" & m & "-" & d  
    24.  
         
  24.         case "3"  
    25.  
         
  25.             strdatetime = y & "/" & m & "/" & d  
    26.  
         
  26.         case "4"  
    27.  
         
  27.             strdatetime = y & "年" & m & "月" & d & "日 " & h & ":" & mi & ":" & s  
    28.  
         
  28.         case "5"  
    29.  
         
  29.             strdatetime = m & "-" & d & " " & h & ":" & mi  
    30.  
         
  30.         case "6"  
    31.  
         
  31.             strdatetime = m & "/" & d  
    32.  
         
  32.         case "7"  
    33.  
         
  33.             strdatetime = m & "月" & d & "日"  
    34.  
         
  34.         case "8"  
    35.  
         
  35.             strdatetime = y & "年" & m & "月"  
    36.  
         
  36.         case "9"  
    37.  
         
  37.             strdatetime = y & "-" & m  
    38.  
         
  38.         case "10"  
    39.  
         
  39.             strdatetime = y & "/" & m  
    40.  
         
  40.         case "11"  
    41.  
         
  41.             strdatetime = right(y,2) & "-" &m & "-" & d & " " & h & ":" & mi  
    42.  
         
  42.         case "12"  
    43.  
         
  43.             strdatetime = right(y,2) & "-" &m & "-" & d  
    44.  
         
  44.         case "13"  
    45.  
         
  45.             strdatetime = m & "-" & d  
    46.  
         
  46.         case else  
    47.  
         
  47.             strdatetime = dateandtime 
    48.  
         
  48.     end select  
    49.  
         
  49.     formatdate = strdatetime 
    50.  
         
  50. end function 
    51.