Diferenciar 21:00:00 y 09:00:00pm desde vb6.0

[erbuson]

Puedes probar esto que tal vez funcione independientemente del formato del sistema.

Nunca se me ha dado el caso pero es una idea, tal vez alguien pueda confirmarlo.

Código:

If Right$(Format(Time, "HH:MM:SS AM/PM"), 2) = "AM" Then
    ' Por la Mañana
Else
    ' Por la Tarde
End If