cambiar configuracion de fecha

17/05/2005 - 19:51 por Fabian | Informe spam
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.
 

Leer las respuestas

#1 KL
17/05/2005 - 20:43 | Informe spam
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.


Preguntas similares