|
|
主题: 如何去掉日期格式??
|
sghwj
职务：普通成员
等级：1
金币：0.0
发贴：98
|
#12004/7/5 17:08:53
小"吓"有个问题想请教大家?
我现在输入一个文件标题后,日期形式为:yy/mm/dd/hh/mm/ss
我想只输出:yy/mm/dd
请问怎么做????
|
浮尘
职务：普通成员
等级：3
金币：7.0
发贴：1258
|
#22004/7/5 18:08:21
在输出时截取一下就可以了。
|
janlay
职务：管理员
等级：7
金币：28.0
发贴：7244
|
#32004/7/6 9:28:56
response.write FormatDateTime(mytime,2)
|
dreamexpress_5d
职务：普通成员
等级：1
金币：10.0
发贴：2229
|
#42004/7/9 12:46:42
取出的日期可能显示04-3-5,04-12-26.
但我想统一取作二位数，如04-03-05.这如何格式化呢？
如何写这个处理函数？提示一下吧，大侠们
|
Alexa.M.GonDuo
职务：普通成员
等级：1
金币：0.0
发贴：38
|
#52004/7/9 16:15:53
Function FormatMyStandardDate(dtmDate)
Dim strYear
Dim strMonth
Dim strDay
If IsNULL(dtmDate) Or dtmDate = "" Or (Not IsDate(dtmDate)) Then
FormatMyStandardDate = ""
Exit Function
End If
strYear = Right(CStr(Year(dtmDate)),2)
strMonth = CStr(Month(dtmDate))
If CInt(strMonth) < 10 Then strMonth = "0" & strMonth
strDay = CStr(Day(dtmDate))
If CInt(strDay) < 10 Then strDay = "0" & strDay
FormatMyStandardDate = strYear & "-" & strMonth & "-" & strDay
End Function
改改就可以了!
编辑历史:[此帖最近一次被 Alexa 编辑过(编辑时间:2004-07-09 16:30:04)]
|
Alexa.M.GonDuo
职务：普通成员
等级：1
金币：0.0
发贴：38
|
#62004/7/9 16:20:39
碰巧我以前写了,所以贴出来.
编辑历史:[此帖最近一次被 Alexa 编辑过(编辑时间:2004-07-09 16:30:36)]
|
dreamexpress_5d
职务：普通成员
等级：1
金币：10.0
发贴：2229
|
#72004/7/9 17:56:16
真是感谢啊。我就想达到这样的效果！谢谢~
|
dreamexpress_5d
职务：普通成员
等级：1
金币：10.0
发贴：2229
|
#82004/7/9 17:58:24
Alexa在上个帖子中说 引用:
Function FormatMyStandardDate(dtmDate)
Dim strYear
Dim strMonth
Dim strDay
If IsNULL(dtmDate) Or dtmDate = "" Or (Not IsDate(dtmDate)) Then
FormatMyStandardDate = ""
Exit Function
End If
strYear = Right(CStr(Year(dtmDate)),2)
strMonth = CStr(Month(dtmDate))
If CInt(strMonth) < 10 Then strMonth = "0" & strMonth
strDay = CStr(Day(dtmDate))
If CInt(strDay) < 10 Then strDay = "0" & strDay
FormatMyStandardDate = strYear & "-" & strMonth & "-" & strDay
End Function
改改就可以了!
几乎不用改。实际上还是我的函数运用不熟。再次感谢。。。
|
