문제
나 지금 좀 멍하니 있어...
유럽 형식의 날짜 문자열이 있습니다. dd.mm.yyyy 그리고 그것을 다음과 같이 변환해야 합니다. mm.dd.yyyy 클래식 ASP.빠른 아이디어가 있나요?
해결책
항상 해당 형식이라면 분할을 사용할 수 있습니다.
d = split(".","dd.mm.yyyy")
s = d(1) & "." & d(0) & "." & d(2)
이는 1.2.99와 같은 날짜도 허용합니다.
다른 팁
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")
알겠습니다. 방금 직접 해결책을 찾았습니다.
payment_date = MID(payment_date,4,3) & LEFT(payment_date,3) & MID(payment_date,7)
이는 날짜에 대해 내장된 온전성 검사를 사용하여 이를 수행하는 방법입니다.
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
내 모든 앱에서 사용하는 자체 날짜 조작 기능이 있지만 원래는 다음 샘플을 기반으로 했습니다.
제휴하지 않습니다 StackOverflow