now()这样存在数据库里的是长日期格式2007-3-29 23:25:33,如果我要月和日的格式,如:03-31或03/31,这个怎么格式化?
------解决方案--------------------
'日期格式化
Function FormatDate(DateString,SpaceMark,Format)
TempYear =Right(Year(DateString),2) ' ' '年 ' ' '
TempMonth =Right( "0 "&Month(DateString),2) ' ' '月 ' ' '
TempDay =Right( "0 "&Day(DateString),2) ' ' '日 ' ' '
TempHour =Right( "0 "&Hour(DateString),2) ' ' '时 ' ' '
TempMinute =Right( "0 "&Minute(DateString),2) ' ' '分 ' ' '
IF Format= "hour " Then '只显示小时分钟
FormatDate =TempHour& ": "&TempMinute
ElseIF Format= "mm dd " Then '只显示月日
FormatDate =TempMonth& SpaceMark &TempDay
ElseIF Format= "mm dd hour " Then '只显示月日小时分钟
FormatDate =TempMonth& SpaceMark &TempDay& " "&TempHour& ": "&TempMinute
ElseIF Format= "yy mm dd " Then '只显示两位年月日
FormatDate =TempYear& SpaceMark &TempMonth& SpaceMark &TempDay
ElseIF Format= "yy mm dd hour " Then '只显示两位年月日小时分钟
FormatDate =TempYear& SpaceMark &TempMonth& SpaceMark &TempDay& " "&TempHour& ": "&TempMinute
ElseIF Format= "yyyy mm dd " Then '只显示四位年月日
FormatDate =Year(DateString)& SpaceMark &TempMonth& SpaceMark &TempDay
End IF
End Function