yo uso esta funcion
Cita: Function FechaGenerica(fecha)
If IsDate(fecha) = True Then
DIM dteDay, dteMonth, dteYear
dia = Day(fecha)
mes = Month(fecha)
ano = Year(fecha)
FechaGenerica = Right(Cstr(mes + 100),2)& "-" & Right(Cstr(dia + 100),2) & "-" & ano
Else
FechaGenerica = Null
End If
End Function
y la llamo asi:
FechaGenerica(fecha_convertir)