Formato aaaammdd

javihb · #1 (**permalink**) 27/04/2006, 05:05

Hola amigo, estoy haciendo un cosilla con fechas y utilizo esto para sacar el año el mes y el dia

Código:

Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
Fechaok=Anio & "/" & Mes & "/" & Dia

Bien, esto me saca la fecha de esta forma " 2006/4/27 " pero necesito que me la de asi " 2006/04/27 " con el cero en el mes....como lo puedo hacer?
Gracias

GauTxori · #2 (**permalink**) 27/04/2006, 05:45

aupa javihb

Dia=Day(Date)
Mes=Month(Date)
if len(mes) = 1 then
mes = "0" & mes
end if
Anio=Year(Date)
Fechaok=Anio & "/" & Mes & "/" & Dia

javihb · #3 (**permalink**) 27/04/2006, 05:54

Eskerrik asko GauTxori,

esto rula a la perfección