我如何在传统的ASP
问题描述:
转换日期字符串是正确的,现在有点blockheaded ...我如何在传统的ASP
我在欧洲格式日期字符串DD.MM.YYYY,并需要将其转换为毫米。 dd.yyyy与经典的ASP。任何快速的想法?
答
如果它总是以这种格式,你可以使用拆分
d = split(".","dd.mm.yyyy")
s = d(1) & "." & d(0) & "." & d(2)
这将允许像99年1月2日以及
日期
答
OK,我只是找到了解决自己:
payment_date = MID(payment_date,4,3) & LEFT(payment_date,3) & MID(payment_date,7)
答
Dim arrParts() As String
Dim theDate As Date
arrParts = Split(strOldFormat, ".")
theDate = DateTime.DateSerial(parts(2), parts(1), parts(0))
strNewFormat = Format(theDate, "mm.dd.yyyy")
答
这是一种具有内置的完整性检查的日期做到这一点:
Dim OldString, NewString
OldString = "31.12.2008"
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Global = True
myRegExp.Pattern = "(0[1-9]|[12][0-9]|3[01])[- /.](0[1-9]|1[012])[- /.]((19|20)[0-9]{2})"
If myRegExp.Test Then
NewString = myRegExp.Replace(OldString, "$2.$1.$3")
Else
' A date of for instance 32 December would end up here
NewString = "Invalid date"
End If
分裂,必须调用这种方式: 分裂(“DD.MM.YYYY” ,“。”) 要小心。 – 2014-08-07 14:36:09