我如何在傳統的ASP

Question

轉換日期字符串是正確的，現在有點blockheaded ...

我在歐洲格式日期字符串DD.MM.YYYY，並需要將其轉換爲毫米。 dd.yyyy與經典的ASP。任何快速的想法？

Answer 1

如果它總是以這種格式，你可以使用拆分

d = split(".","dd.mm.yyyy") 
s = d(1) & "." & d(0) & "." & d(2) 

這將允許像99年1月2日以及

日期

Answer 2

OK，我只是找到了解決自己：

payment_date = MID(payment_date,4,3) & LEFT(payment_date,3) & MID(payment_date,7) 

Answer 3

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") 

Answer 4

我有我自己的日期操作函數，我用在所有的應用程序中，但它最初是基於這個樣本E：

http://www.adopenstatic.com/resources/code/formatdate.asp

Answer 5

這是一種具有內置的完整性檢查的日期做到這一點：

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