funcion para recuperar time en formato de 24 horas

cita
28 de Noviembre del 2004
ne4cesito insertar en mi BD la hora pero con Time me la extrae con "a.m. o p.m." el que contenga esto me ocacione error en la insercion pero no logro conseguir que me lo de en formato de 24 horas

@ZTECK
28 de Noviembre del 2004
Dim StrSql
Dim Hours
Dim Minutes
Dim Seconds

Hours = Hour(Time)
If Hours < 10 Then Hours = "0" & Hours
Minutes = Minute(Time)
If Minutes < 10 Then Minutes = "0" & Minutes
Seconds = Second(Time)
If Seconds < 10 Then Seconds = "0" & Seconds

f_uacceso = Hours & ":" & Minutes & ":" & Seconds