Format

"mauricioge" escribió en el mensaje
news:

Buenos dias a todos

Hago esto y funciona perfecto:


MessageBox.Show(Format(#4/13/2011 1:48:43 PM#, "yyyy-MM-dd
HH:mm:ss"))

Como puedo hacer si necesito pasarle una variable en lugar de:
#4/13/2011 1:48:43 PM#

Hola,

Dim dt As Date

On Error Resume Next
dt = CDate(Text1.Text)
If Err.Number <> 0 Then
MsgBox "El dato no representa una fecha válida"
Else
MsgBox Format(dt, "yyyy-MM-dd HH:mm:ss")
End If

Por lo de MessageBox.Show deduzco que estas usando VFred. Este grupo
está dedicado a Visual Basic, el lenguaje que los imbeciles de MS
descontinuaron a partir de la versión 6 para intentar reemplazarlo con
esa mala parodia de C#.

Salud!