caca - 2005-6-5 14:06:00
标签的日期格式没有类似2005-06-06、2005/06/06、2005年06月06日这样的格式啊？
酷疯子 - 2005-6-5 14:50:00
新建立标签 里边有2005/6/5 2005-6-5 等日期 可以选择
caca - 2005-6-5 14:54:00
以下是引用酷疯子在2005-6-5 14:50:00的发言：新建立标签 里边有2005/6/5 2005-6-5 等日期 可以选择
可是如果有2005-6-12、2005-12-10和2005-6-6这样的日期同时存在，排列起来很不整齐啊？
老六 - 2005-6-5 16:48:00
俺可能没说清楚，2005/6/5 俺指的是存放路径，
比如http：//www.xxxx.com/get/class/2005/06/2536555.html 可以实现吗？
caca - 2005-6-5 16:55:00
以下是引用酷疯子在2005-6-5 14:55:00的发言：
不明白你的意思 能给一个图解吗？
我没说明白，我指的是在终极列表里，如果把日期右对齐，就会出现日期长度不一的情况。如下图：
[upload=gif]UploadFile/2005-6/2005651655896187.gif[/upload]
附件: 518.gif
hotla - 2005-6-5 18:06:00
哈哈,这个问题我很早就提出了.不过没有改过来.
我也郁闷ing
zhougang - 2008-10-4 17:19: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
献给新手们,老鸟别笑哦....