nalyc - 2005-7-5 09:50:00
要的日期格式：YYYY年MM月DD日，有吗，怎样弄
nalyc - 2005-7-5 10:44:00
2005.1.1
2005.11.13
2005.1.1
2005.11.13
2005.1.1
2005.11.13
左对齐居中对齐右对齐，干吗不来个
2005.01.01
2005.11.13
图片传不上来~
zhougang - 2008-10-4 17:26:00
解决方法如下:
约38行 代码如下:'请整段覆盖,实现月,日,时,分小于10的时候系统自动补入0
Function DateFormat(DateStr,Types)
Dim DateString,FData,MonthFormat,DayFormat,HourFormat,MinuteFormat
if IsDate(DateStr) = False then
DateString = ""
end if
MonthFormat = Month(DateStr)
DayFormat = Day(DateStr)
HourFormat = Hour(DateStr)
MinuteFormat = Minute(DateStr)
if Month(DateStr) < 10 then
MonthFormat = "0"&Month(DateStr)
end if
if Day(DateStr) < 10 then
DayFormat = "0"&Day(DateStr)
end if
if Hour(DateStr) < 10 then
HourFormat = "0"&Hour(DateStr)
end if
if Minute(DateStr) < 10 then
MinuteFormat = "0"&Minute(DateStr)
end if
Select Case Types
Case "1"
'下面蓝色部分,为实现如:[2005-07-08]的样式.要实现其他样式请自己修改
DateString ="["& Year(DateStr)&"-"&MonthFormat&"-"&DayFormat&"]"
Case "2"
DateString = Year(DateStr)&"."&MonthFormat&"."&DayFormat
Case "3"
DateString = Year(DateStr)&"/"&MonthFormat&"/"&DayFormat
Case "4"
DateString = MonthFormat&"/"&DayFormat&"/"&Year(DateStr)
Case "5"
DateString = DayFormat&"/"&MonthFormat&"/"&Year(DateStr)
Case "6"
DateString = MonthFormat&"-"&DayFormat&"-"&Year(DateStr)
Case "7"
DateString = MonthFormat&"."&DayFormat&"."&Year(DateStr)
Case "8"
DateString = MonthFormat&"-"&DayFormat
Case "9"
DateString = MonthFormat&"/"&DayFormat
Case "10"
DateString = MonthFormat&"."&DayFormat
Case "11"
DateString =MonthFormat&"月"&DayFormat&"日"
Case "12"
DateString = DayFormat&"日"&HourFormat&"时"
case "13"
DateString = DayFormat&"日"&HourFormat&"点"
Case "14"
DateString = HourFormat&"时"&MinuteFormat&"分"
Case "15"
DateString = HourFormat&":"&MinuteFormat
Case "16"
DateString = Year(DateStr)&"年"&MonthFormatt&"月"&DayFormat&"日"
Case Else
DateString = DateStr
End Select
DateFormat = DateString
End Function
献给新手们,老鸟别笑哦....
jxspace - 2008-10-5 20:28:00
:default5: