Alguien sabe como comparar Horas

Rafael Rubio Ceja
13 de Mayo del 2004
Lo que quiero hacer es asignar una hora a una persona pero si esa hora ya esta ocupada que el sistema me avise, esto lo quiero usar para realizar un horario de clases, que puedo usar?
Gracias

sebastian
13 de Mayo del 2004
No se qde que forma estas ingresando las horas pero este es un ejemplo para comparar 2 textos.

If Text1.Text = Text2.Text Then
MsgBox "Esta Hora ya Existe"
Else
End If

text1 es la hora que ya tenias ingresasa y text2 es la nueva.
Espero q te sirba,


krizall
13 de Mayo del 2004
hola rafa, puedes usar la instruccion datevalue que compara tanto fechas como tiempo(horaas)
se utiliza mas o menos asi para fechas
dim f1 as variant, f2 as variant
f1=tiempo1
f2=tiempo2
if f1>f2 then
haces lo que quieras...
end if
me parece que tienes que poner format(tiempo,"HH,MM,SS") con am o pm
solo que no recuerdo muy bien como se hace eso
pero espero te sirva este ejemplillo

Rafael Rubio Ceja
13 de Mayo del 2004
Ya cheque la ayuda pero no me dice mucho
Como convierto lo de una etquite en horas es decir si en el label1.caption tiene 18:05 y lo quiero comparar con un text que tiene escrito 22:05 como hago??
se escribiria algo asi como Hou ( label1.caption) < hour(text1.text) ??

Berny
13 de Mayo del 2004
si lo que quieres es comparar horas es mas o menos asi, hazlo con 2 textbox y un commandbuttom

cmdcomparar_click()
'esto verifica si los datos son correctos
'convierte a HH:MM:SS am/pm
'se debe imtroducir en el textbox asi, ej: 1:30:00 o 13:30:00, tambien sirve con la funcion time
if (timevalue(Text1.Text)=datavalue(Text1.Text)) then
msgbox "Tiempos iguales"
end if