Wie ein Datum-String in klassischen Asp verwandeln

Question

Ich bin ein wenig blockheaded jetzt ...

ich ein Datum Zeichenfolge im europäischen Format haben tt.mm.jjjj und müssen es zu transformieren mm.dd.yyyy mit klassischen ASP. Jede schnelle Ideen?

Answer 1

Wenn sein immer in diesem Format Sie Split verwenden könnte

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

Dies würde für Termine wie 1.2.99 erlaubt auch

Answer 2

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 3

OK, ich habe gerade eine Lösung ich:

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

Answer 4

Dies ist eine Möglichkeit, es zu tun mit in Plausibilitätsprüfung für Termine gebaut:

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

Answer 5

ich meine eigene Datum Manipulation Funktionen, die ich in all meinem Apps nutzen, aber es war auf dieser Probe ursprünglich zugrunde:

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