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
//////////////////////////////////////////////////////////////////////////////////