关闭

转换日期时间函数

735人阅读 评论(0) 收藏 举报

function ConvertDate(sdate)
'转换时间格式
 on error resume next
 S_Date = right(year(sdate),2)
 if len(month(sdate))=1 then
  S_Date =S_Date&"0"&month(sdate)
 else
  S_Date =S_Date&month(sdate) 
 end if
 if len(day(sdate))=1 then
  S_Date =S_Date&"0"&day(sdate)
 else
  S_Date =S_Date&day(sdate)
 end if
 if len(hour(sdate))=1 then
  S_Date =S_Date&"0"&hour(sdate)
 else
  S_Date =S_Date&hour(sdate)
 end if
 if len(minute(sdate))=1 then
  S_Date =S_Date&"0"&minute(sdate)
 else
  S_Date =S_Date&minute(sdate)
 end if
 if len(second(sdate))=1 then
  S_Date =S_Date&"0"&second(sdate)
 else
  S_Date =S_Date&second(sdate)
 end if     
 ConvertDate = S_Date
end function

示例:

s_Date=ConvertDate(Date)

s_Date 的值为20060101这样格式。

s_DateTime=ConvertDate(Now)

s_Date 的值为20060101010101这样格式。

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:266811次
    • 积分:3344
    • 等级:
    • 排名:第10091名
    • 原创:67篇
    • 转载:78篇
    • 译文:2篇
    • 评论:46条
    文章分类
    最新评论