在ASP(VB)中自定义日期格式的函数

Posted 2021-10-15 Snowdust

代码如下：

Function  AddZero(val, digit)
     Dim  Ret
    Ret  =   CStr (val)
    Ret  =   Replace ( Space (digit  -   Len (val)),  "   " ,  " 0 " )  &  Ret        
    AddZero  =  ret
End Function
Function  FormatDataTime(dt, format)
     Dim  ret
    ret  =   Replace (format,  " MM " , AddZero( Month (dt),  2 ))
    ret  =   Replace (ret,  " M " ,  Month (dt))
    ret  =   Replace (ret,  " mm " , AddZero( Minute (dt),  2 ))
    ret  =   Replace (ret,  " m " ,  Minute (dt))
    ret  =   UCase (ret)
    ret  =   Replace (ret,  " YYYY " ,  Year (dt))
    ret  =   Replace (ret,  " DD " ,  Day (dt))
    ret  =   Replace (ret,  " D " , AddZero( Day (dt),  2 ))
    ret  =   Replace (ret,  " HH " ,  Hour (dt))
    ret  =   Replace (ret,  " H " , AddZero( Hour (dt),  2 ))
    ret  =   Replace (ret,  " SS " , AddZero( Second (dt),  2 ))
    ret  =   Replace (ret,  " S " ,  Second (dt))
    FormatDataTime  =  ret
End Function
Response.Write FormatDataTime( Now ,  " yyyy-MM-dd hh:mm:ss " )

显示结果：

2006-12-31 11:37:27