ASP日期补0函数

一个版本是日期,另外一个是日期+时间。
'ASP日期补零函数  
程序代码 程序代码

Function FStime(times)  
    Dim years,months,days  
    if not isdate(times) then exit function  
    years=year(times)  
    months=right("0"&month(times),2)  
    days=right("0"&day(times),2)  
    times=years&"-"&months&"-"&days  
    FStime=times  
End Function
  
程序代码 程序代码

Function FLtime(times)  
'ASP时间补零函数  
    Dim years,months,days,hours,minutes,seconds  
    if not isdate(times) then exit function  
    years=year(times)  
    months=right("0"&month(times),2)  
    days=right("0"&day(times),2)  
    hours=right("0"&hour(times),2)  
    minutes=right("0"&minute(times),2)  
    seconds=right("0"&second(times),2)  
    FLtime=years&"-"&months&"-"&days&" "&hours&":"&minutes&":"&seconds  
End Function
  


文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.