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

[hunter18]

Necesito enviar un archivo a determinada hora pero no se diferenciar la zona horaria o como se llame, me refiero por ejemplo a 9AM y 9PM o en el caso de la configuracion de windows este con 21 horas.
Que debo hacer estoy estancado con esto.

'Realizo una accion a las 09:30:10pm pero que pasa si la hora tiene otro formato o saber si es am o pm

Código:

If Hour(Time) = 9 And Minute(Time) = 30 And Second(Time) = 10 Then

saludos

[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

[hunter18]

No funciono

Código:

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()

If Right$(Format(Time, "HH:MM:SS AM/PM"), 2) = "AM" Then
    ' Por la Mañana
Else
    ' Por la Tarde
    If Hour(Time) = 9 And Minute(Time) = 30 And Second(Time) = 10 Then
       MsgBox "funcion"
    End If

End If

End Sub

Ademas el If Hour(Time) = 9 And Minute(Time) = 30 And Second(Time) = 10 Then solo funciona cuando es AM.

Alguna solucion y que hago cuando el formato de hora no es de 12 sino 24 horas corridas?

[erbuson]

Hola mi ejemplo no era mas que una idea que tal vez desarrollada de otra manera funcionaria, si debes comprobar una ahora exacta, porque no pruebas a comprobar directamente el valor deseado ?

If Format(Time, "HH:MM:SS AM/PM") = "09:30:10 PM" Then

End If

Suerte

[hunter18]

Asi funciono gracias.