REComo comparo cual es el mayor entre3 hs. distin
Publicado por A.H.H (116 intervenciones) el 15/11/2010 21:28:28
Haber si te sirve este ejemplo, PRUEBALO.
Private Sub Form_Load()
a = TimeValue(#7:00:00 AM#)
b = TimeValue(#2:05:00 PM#)
c = TimeValue(#2:10:00 PM#)
If a > b And a > c Then
MsgBox a & " Es la mayor"
ElseIf b > a And b > c Then
MsgBox b & " Es la mayor"
Else
MsgBox c & " Es la mayor"
End If
End Sub
nota:
en el ejemplo he puesto las horas que tu diste pero escritas normales y al final hay que diferenciarlas con AM Y PM.
Entre los parentesis de TimeValue prueba a poner distintas horas, escribelas normales si quieres que sean EN FORMATO 24 HORAS POR EJEMPLO las 14 debes escribir 2 y poner al final PM como en el ejemplo.
Private Sub Form_Load()
a = TimeValue(#7:00:00 AM#)
b = TimeValue(#2:05:00 PM#)
c = TimeValue(#2:10:00 PM#)
If a > b And a > c Then
MsgBox a & " Es la mayor"
ElseIf b > a And b > c Then
MsgBox b & " Es la mayor"
Else
MsgBox c & " Es la mayor"
End If
End Sub
nota:
en el ejemplo he puesto las horas que tu diste pero escritas normales y al final hay que diferenciarlas con AM Y PM.
Entre los parentesis de TimeValue prueba a poner distintas horas, escribelas normales si quieres que sean EN FORMATO 24 HORAS POR EJEMPLO las 14 debes escribir 2 y poner al final PM como en el ejemplo.
Valora esta pregunta
0