Descomponer fechas en Visual basic 6

[Ketchuz]

Hola a todos
Les pido su ayuda por favor.
Estoy haciendo un programa en el que necesito guardar un archivo y que el nombre de tal archivo sea la fecha de hoy. Es problema es que Windows no admite "-" o "/" en los nombres de archivos, por lo que quiero que si la fecha es: 19/04/2011 o 19-04-2011 me separe los días, meses y el año de una fecha.
Por favor, me urge saber como. He investigado y encontré pero para hacerlo con nombres y apellidos.
Gracias de antemano...

[Dunkansdk]

Edit - Flashie que era la hora, perdón ajaj

[EddyW]

Wenas,

Hay 3 funciones que te ayudan a manejarlos:

Código (vb) [Seleccionar] Expandir

Dim Fecha As Date
Fecha = "11/12/13"
MsgBox Day(Fecha) & Month(Fecha) & Year(Fecha)
Es ese caso la función Day devuelve el día, Month el Mes y Year el año, en el ejemplo se muestra un Msg con los datos juntos.

SaluDOS!!!
Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.

[Ketchuz]

Código (vb) [Seleccionar] Expandir

Dim Fecha As Date
Fecha = "11/12/13"
MsgBox Day(Fecha) & Month(Fecha) & Year(Fecha)

Gracias, si me ha funcionado, pero la fecha cambia. Por ejemplo, para el dia de hoy crea un archivo llamado "190411", ¿pero mañana?. ¿Cómo hago para que cambie según del día?

[EddyW]

Es la función now

Código (vb) [Seleccionar] Expandir

Dim Fecha As Date
Fecha = now
MsgBox Day(Fecha) & Month(Fecha) & Year(Fecha)
Mostrará la fecha de hoy, mañana, la fecha de mañana..

SaluDOS!!!

[ŞCØRPIØN-X3]

Tambien puedes hacerlo con Format de la siguiente manera:

Código [Seleccionar] Expandir

MsgBox "Dia: " & Format(Date, "DDDD") & " " & Format(Date, "DD")
MsgBox "Mes: " & Format(Date, "MM") & "(" & Format(Date, "MMMM") & ")"
MsgBox "Año: " & Format(Date, "YY") & " , " & Format(Date, "YYYY")

te devolvera de la sigueinte manera:

Código [Seleccionar] Expandir


Msgbox1: "Dia: Sabado 30
Msgbox2: Mes: 04 (Abril)
Msgbox3: Año: 11 , 2011


Espero que te sirva