怎样只读取日期格式的月日?
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
