时间和日期相关函数

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

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