[VBA]Convertir un string a fecha Resuelto

Question

Hola,

tengo un problema con las fechas en vba...

Supongamos que tengo una cadena st = "12/03/2009" y que quiero convertirla a Date...

¿Alguien sabría cómo hacerlo?

PD: soy novato en VBA

Saludos,

green

Configuración: Windows 2000 Firefox 3.0.7

lermite222 · Accepted Answer

solo útil cuando...
MyDate = "12 de febrero de 1969" ' Define la fecha.
MyShortDate = CDate(MyDate) ' Convierte al tipo Date.
De lo contrario, las fechas escritas en literal 12/12/2008 por ejemplo, se consideran automáticamente como una fecha.
--
La experiencia instruye más seguramente que el consejo. (André Gide)
Si te das un golpe con un tarro y suena hueco, no necesariamente es el tarro el que está vacío. ;-) (Confucio)

lermite222 · Answer

Hola,
No hace falta hacer nada, es automáticamente una fecha con la que puedes trabajar

¡Hasta luego!
--
La experiencia enseña más seguro que el consejo. (André Gide)
Si te chocas con una olla y suena hueca, no necesariamente es la olla la que está vacía. ;-)(Confucio)

lami20j · Answer

Hola,  Hay la función CDate -- 106485010510997108

greenthumb · Answer

Re,

muchas gracias por la función CDate, ¡es lo que necesitaba! ;)

Lermite, ¿quiere decir que una cadena con la forma "12/02/2009" puede ser comparada directamente con una variable en formato fecha?

greenthumb · Answer

De acuerdo, no lo sabía... siempre es bueno saberlo :)  Gracias, que tengas un buen día ;)

lami20j · Answer

Re,  De lo contrario, las fechas escritas de forma literal como 12/12/2008, por ejemplo, se consideran automáticamente como una fecha. Sí, eso es correcto ;-) -- 106485010510997108

lami20j · Answer

Re,  También para pruebaSub string2date() Dim st As String, st2 As String, st3 As Date Dim dt As Date, dt2 As Date, dt3 As Date st = "12/03/2009" dt = CDate(st) If st = dt Then MsgBox "ok" Else MsgBox "no" End If st2 = "12 febrero 1969" dt2 = CDate(st2) If st2 = dt2 Then MsgBox "ok 2" Else MsgBox "no 2" End If st3 = "18/03/2009" dt3 = CDate(st3) MsgBox DateDiff("d", st2, dt3) MsgBox DateDiff("d", dt2, dt3) End Sub -- 106485010510997108

lermite222 · Answer

Re,
Y para ser completo, Cdate (o antiguamente CVdate) también puede ser necesario cuando hay una extracción de fecha a partir de una BD o de un archivo de texto/csv
A+
--
La experiencia instruye más seguramente que el consejo. (André Gide)
Si te topas con un bote y suena hueco, no necesariamente es el bote el que está vacío. ;-)(Confucio)

greenthumb · Answer

¡En efecto, funciona... súper!!  ¡Muchas gracias! :)

[VBA]Convertir un string a fecha

9 respuestas

Video no deseada en la pantalla de inicio de android

No quiero spam

Ayúdame a saber si mi ps5 slim es realmente nueva, por favor.

Cargador huawei matebook d15

Problema de teclado móvil

Obtener office gratis

Any desk ya no funciona

Yokai watch 1 citra

Fotos del wiko lenny 2

Archivos .dat