cambiar configuracion de fecha

Hola Fabian

A ver, vayamos por partes.

En primer lugar decirte que hay una contradiccion en tu codigo y es que
declaras la variable Contador como fecha y luego le asignas cadenas de
texto. Es que la funcion Format() devuelve texto no fecha.

Por otro lado, la mejor comparacion que puedes hacer con fechas es usando el
numero de fecha, p.ej. 38480, porque sera igual en todas las versiones y no
depende de la configuracion regional. O sea que tu codigo podria ser asi:

Sub Test()
Dim Contador As Date
Contador = 38480
Do Until Contador = Date
'Mi codigo
Contador = Contador + 1
Loop
End Sub

Si hay algo que, como dice el amigo Hector Miguel, ha quedado en el tintero,
comentas?

Saludos,
KL


"Fabian" wrote in message
news:

Sub Test()
Dim Contador As Date
Contador = 38480
Do Until Contador = Date
Contador = Format(Contador, "m/d/yy;@")
'Mi codigo
Contador = Format(Contador, "d/m/yy;@")
Contador = Contador + 1
Loop
End Sub
Necesito la fecha con la configuracion en ingles, pero para hacer la
comparacion tiene que volver a la configuracion en español, alguien sabe
como se hace.

Gracias KL
Me falto decir que es una consulta web, y las fechas estan con la
configuracion al reves, creo que necesito en formato texto, porque utilizo
la variable para descargar dia por dia, la variable va en una direccion web.
Gracias

Hola Fabian,

?Que tal esto? En vez de Contador usa la variable Fecha en tu consulta.

Saludos,
KL

Sub Test()
Dim Contador As Date
Dim Fecha As String
Contador = 38480
Do Until Contador = Date
Fecha = Format(Contador, "m/d/yy;@")
'Mi codigo
Fecha = Format(Contador, "d/m/yy;@")
Contador = Contador + 1
Loop
End Sub

Habia transformado la variable en string y estaba tratando de hacerla
funcionar, ahora pruebo lo que sugeriste. Gracias.
"KL" escribió en el mensaje
news:

Hola Fabian,

?Que tal esto? En vez de Contador usa la variable Fecha en tu consulta.

Saludos,
KL

Sub Test()
Dim Contador As Date
Dim Fecha As String
Contador = 38480
Do Until Contador = Date
Fecha = Format(Contador, "m/d/yy;@")
'Mi codigo
Fecha = Format(Contador, "d/m/yy;@")
Contador = Contador + 1
Loop
End Sub

Funciona perfecto. Gracias.