时间和日期相关函数

Private Function GetLongDate(Value)
'函数名称: GetLongDate
'功能描述: '把时间转换为长日期格式格式 与 FormatDateTime函数相似
'使用方法:GetLongDate(Value)
    Dim strYear, strMonth, strDate
    strYear = Year(Value)
    strMonth = Month(Value)
 strDate = Day(Value)
 if strMonth<10 then
    strMonth="0"&strMonth
 end if
 if strDate<10 then
    strDate="0"&strDate
 end if
   
    GetLongDate = strYear & "/" & strMonth & "/" & strDate
End Function

////////////////////////////////////////////////////////////////////////////////
Private Function GetLongDate2(Value)
'函数名称: GetLongDate
'功能描述: '把时间转换为长日期格式格式 与 FormatDateTime函数相似
'使用方法:GetLongDate(Value)
   
    Dim strYear, strMonth, strDate,strhour
 strhour=Hour(Value)
    strYear = Year(Value)
    strMonth = Month(Value)
 strDate = Day(Value)
 if strMonth<10 then
    strMonth="0"&strMonth
 end if
 if strDate<10 then
    strDate="0"&strDate
 end if
 if strhour<=12 then
    strhour=strhour&":00 am "
 else
    strhour=strhour&":00 pm "
 end if
   
    GetLongDate2 = strhour&strDate & "." & strMonth & "." & strYear
End Function

//////////////////////////////////////////////////////////////////////////////////

转载于:https://www.cnblogs.com/houbusheng123/archive/2010/07/30/1788680.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值