asp有没有函数可以把文本框中输入的的2007-1-2的短时间格式 转化成2007-01-02的格式阿
如题
[解决办法]
没有，自己写 function FormatStdDateTime(byval sD) dim m dim d dim dt dt = CDate(sD) m = month(dt) d = day(dt) if(m) < 10 then m = "0 "& m end if if d < 10 thend = "0 "&d end if FormatStdDateTime = year(dt)& "- " & m & "- " & d end function
[解决办法]
Function ToLongDate(dateStr)
d=split(dateStr, "- ")
if len(d(1))=1 then d(1)= "0 " & d(1)
if len(d(2))=1 then d(2)= "0 " & d(2)
ToLongDate =d(0) & "- " & d(1) & "- " & d(2)
end function
[解决办法]
没有，这个得自己写代码来处理
[解决办法]
楼上几位都可以用下，ＭＫ
[解决办法]
自己寫一個.
[解决办法]
FormatDateTime(Date[, NamedFormat])
FormatDateTime 函数的语法有以下参数：
参数 描述
Date 必选项。要被格式化的日期表达式。
NamedFormat 可选项。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。
设置
NamedFormat 参数可以有以下值：
常数 值 描述
vbGeneralDate 0 显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。
vbLongDate 1 使用计算机区域设置中指定的长日期格式显示日期。
vbShortDate 2 使用计算机区域设置中指定的短日期格式显示日期。
vbLongTime 3 使用计算机区域设置中指定的时间格式显示时间。
vbShortTime 4 使用 24 小时格式 (hh:mm) 显示时间。
说明
下面例子利用 FormatDateTime 函数把表达式格式化为长日期型并且把它赋给 MyDateTime:
Function GetCurrentDate
"FormatDateTime 把日期型格式化为长日期型。
GetCurrentDate = FormatDateTime(Date, 1)
End Function
[解决办法]
php里的date()函数不错，模仿了一个
Public Function IIf(blnExp, varTrue, varFalse)
If blnExp Then
IIf = varTrue
Else
IIf = varFalse
End If
End Function
Private Function INT_FMT(ByVal iValue)
INT_FMT = IIf(iValue < 10, "0 ", " ") & iValue
End Function
Function TimeFormat(ByVal dtmIn, ByVal strFmt)
Dim pWeek
Dim pWeekFull
Dim pMonth
Dim pMonthFull
Dim ret, tmp
Dim i
Dim y, m, d, h, n, s, w
pWeek = Array( "Sun ", "Mon ", "Tue ", "Wed ", "Thu ", "Fri ", "Sat ")
pWeekFull = Array( "Sunday ", "Monday ", "Tuesday ", "Wednesday ", "Thursday ", "Friday ", "Saturday ")
pMonth = Array( "Jan ", "Feb ", "Mar ", "Apr ", "May ", "Jun ", "Jul ", "Aug ", "Sep ", "Oct ", "Nov ", "Dec ")
pMonthFull = Array( "January ", "February ", "March ", "April ", "May ", "June ", "July ", "August ", "September ", "October ", "November ", "December ")
y = Year(dtmIn)
m = Month(dtmIn)
d = Day(dtmIn)
h = Hour(dtmIn)
n = Minute(dtmIn)
s = Second(dtmIn)
w = Weekday(dtmIn)
For i = 1 To Len(strFmt)
tmp = Mid(strFmt, i, 1)
Select Case tmp
Case "a ":
ret = ret & IIf(h < 12, "am ", "pm ") 'a 小写的上午和下午值 am 或 pm
Case "A ":
ret = ret & IIf(h < 12, "AM ", "PM ") 'A 大写的上午和下午值 AM 或 PM
Case "B ":
'B Swatch Internet 标准时 000 到 999
Case "d ":
ret = ret & INT_FMT(d) 'd 月份中的第几天，有前导零的 2 位数字 01 到 31
Case "D ":
ret = ret & pWeek(w - 1) 'D 星期中的第几天，文本表示，3 个字母 Mon 到 Sun
Case "F ":
ret = ret & pMonthFull(m - 1) 'F 月份，完整的文本格式，例如 January 或者 March January 到 December
Case "g ":
ret = ret & (h Mod 12) 'g 小时，12 小时格式，没有前导零 1 到 12
Case "G ":
ret = ret & h 'G 小时，24 小时格式，没有前导零 0 到 23
Case "h ":
ret = ret & INT_FMT(h Mod 12) 'h 小时，12 小时格式，有前导零 01 到 12
Case "H ":
ret = ret & INT_FMT(h) 'H 小时，24 小时格式，有前导零 00 到 23
Case "i ":
ret = ret & INT_FMT(n) 'i 有前导零的分钟数 00 到 59>
Case "I ":
'ret = ret & tt-> tm_isdst 'I 是否为夏令时 如果是夏令时为 1，否则为 0
Case "j ":
ret = ret & d 'j 月份中的第几天，没有前导零 1 到 31
Case "l ":
ret = ret & pWeekFull(w - 1) 'l（“L”的小写字母） 星期几，完整的文本格式 Sunday 到 Saturday
Case "L ":
ret = ret & IIf((y Mod 4 = 0 And y Mod 100 <> 0) Or y Mod 400 = 0, 1, 0) 'L 是否为闰年 如果是闰年为 1，否则为 0
Case "m ":
ret = ret & INT_FMT(m) 'm 数字表示的月份，有前导零 01 到 12
Case "M ":
ret = ret & pMonth(m - 1) 'M 三个字母缩写表示的月份 Jan 到 Dec
Case "n ":
ret = ret & m 'n 数字表示的月份，没有前导零 1 到 12
Case "O ":
'O 与格林威治时间相差的小时数 例如：+0200
Case "r ":
'r RFC 822 格式的日期 例如：Thu, 21 Dec 2000 16:01:07 +0200
Case "s ":
ret = ret & INT_FMT(s) 's 秒数，有前导零 00 到 59>
Case "S ":
'S 每月天数后面的英文后缀，2 个字符 st，nd，rd 或者 th。可以和 j 一起用。
Case "t ":
If m = 1 Or m = 3 Or m = 5 Or m = 7 Or m = 8 Or m = 10 Or m = 12 Then
ret = ret & 31
ElseIf m = 4 Or m = 6 Or m = 9 Or m = 11 Then
ret = ret & 30
Else
ret = ret & IIf((y Mod 4 = 0 And y Mod 100 <> 0) Or y Mod 400 = 0, 29, 28)
End If 't 给定月份所应有的天数 28 到 31
Case "T ":
'时区
Case "U ":
'U 从 Unix 纪元（January 1 1970 00:00:00 GMT）开始至今的秒数 参见 time()
Case "w ":
ret = ret & w 'w 星期中的第几天，数字表示 0（表示星期天）到 6（表示星期六）
Case "W ":
'W ISO-8601 格式年份中的第几周，每周从星期一开始（PHP 4.1.0 新加的） 例如：42（当年的第 42 周）
Case "Y ":
ret = ret & y 'Y 4 位数字完整表示的年份 例如：1999 或 2003
Case "y ":
ret = ret & Right(y, 2) 'y 2 位数字表示的年份 例如：99 或 03
Case "z ":
'z 年份中的第几天 0 到 366
ret = ret & DateDiff( "d ", y & "-01-01 ", dtmIn) + 1
Case "Z ":
'Z 时差偏移量的秒数。UTC 西边的时区偏移量总是负的，UTC 东边的时区偏移量总是正的。
Case Else
ret = ret & tmp
End Select
Next
TimeFormat = ret
End Function
Public Function GTimeFormat(ByVal dtmIn, ByVal strFmt)
GTimeFormat = TimeFormat(DateAdd( "h ", -8, dtmIn), strFmt) & " GMT "
End Function
WScript.Echo TimeFormat(Now(), "Y-m-d H:i:s ")
WScript.Echo GTimeFormat(Now(), "D, d-M-Y H:i:s ")
[解决办法]
无私，顶
[解决办法]
LongDate = Year(Date())& "- "&Right( "0 "&Month(Date()),2)& "- "&Right( "0 "&Day(Date()),2)
