asp-classic - net - formato fecha visual basic

Cómo transformar una cadena de fecha en asp clásico

Question

Estoy un poco bloqueado en este momento ...

Tengo una cadena de fecha en formato europeo dd.mm.yyyy y necesito transformarlo a mm.dd.aaaa con ASP clásico. ¿Alguna idea rápida?

Answer 1

OK, acabo de encontrar una solución:

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

Answer 2

Si siempre está en ese formato, podrías usar split

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

esto permitiría fechas como 1.2.99 también

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

Esta es una forma de hacerlo con un control de cordura incorporado para las fechas:

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

Tengo mis propias funciones de manipulación de fechas que utilizo en todas mis aplicaciones, pero originalmente estaba basado en esta muestra:

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