24/03/2007, 08:52
|
 | Colaborador | | Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses Puntos: 126 | |
| Re: Problema con fecha
Prueba asi
Código:
Day(fecha) & "/" & Month(fecha) & "/" & Year(fecha)
Otra formas sería
Código:
Function DiaMes(diames)
Dim numero
select case diames
case "1"
numero="01"
case "2"
numero="02"
case "3"
numero="03"
case "4"
numero="04"
case "5"
numero="05"
case "6"
numero="06"
case "7"
numero="07"
case "8"
numero="08"
case "9"
numero="09"
case else
numero="Desconocido"
end select
DiaMes=numero
End Function
Suerte |