F1 con fechas porfa

[webpedaler]

Necesito ayuda con fechas
tengo este codigo:
Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
Fecha_actual=Dia&"/"&Mes&"/"&Anio

el cual me imprime la fecha asi
5/8/2002
pero yo necesito que me imprima la fecha asi:
05/08/2002
alguna idea o motivo por el cual no me hace esto???
un F1 pa este pobre hombre

[kaki]

Prueba esto a ver si solucionas el problema:
Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
Fecha_actual=Dia&"/"&Mes&"/"&Anio
Fecha_actual=CDate(Fecha_actual)

Saludos Kaki

[AlZuwaga]

si no te funciona lo anterior, probá esto:

Dia=Day(Date)
If Len(Dia) = 1 then
Dia = "0" & Dia
End if
Mes=Month(Date)
If Len(Mes) = 1 then
Mes = "0" & Mes
End if
Anio=Year(Date)
Fecha_actual=Dia&"/"&Mes&"/"&Anio

[webpedaler]

wuajajajaja gracias
como no haber pensado en eso jajajaja
lo que pasa cuando uno hace las cosas apurado jajaja
graciassssssssssssssssssssssssssssssssss