/********************************
Parte 2 del Mensaje
/********************************
'------Calculo de la hora---------
variante1=trim(variante1)
variante2=trim(variante2)
if variante1 <> variante2 then
if ((variante1 = " am") or (variante1 = "a.m.") or (variante1 = " a.m.") or (variante1 = "am")) then
valor1 = 12 - hora1
if valor1 < 0 then
valor1 = valor1 * (-1)
end if
end if
if ((variante1 = " pm") or (variante1 = "p.m.") or (variante1 = " p.m.") or (variante1 = "pm")) then
valor1 = hora1
end if
if ((variante2 = " am") or (variante2 = "a.m.") or (variante2 = " a.m.") or (variante2 = "am")) then
valor2 = 12 - hora2
if valor2 < 0 then
valor2 = valor2 * (-1)
end if
end if
if ((variante2 = " pm") or (variante2 = "p.m.") or (variante2 = " p.m.") or (variante2 = "pm")) then
valor2 = hora2
end if
if hora1 = hora2 then
hora_total = valor1 - valor2
end if
if hora1 <> hora2 then
hora_total = valor1 + valor2
end if
else
hora_total=hora1-hora2
if hora_total < 0 then
hora_total=hora_total * (-1)
end if
end if
'----------Minutos------------
minuto_p1 = 60 - minutos1
'minuto_p2 = 60 - minutos2
minuto_p2 = minutos2
minutos = minuto_p1 + minuto_p2
minutos=replace(minutos,"-","")
minutos=trim(minutos)
response.write "Hora:" & hora1
response.write "<P>"
response.write "Minutos Sin trabajar: " & minutos1
response.write "<P>"
response.write "Minutos Trabajados: " & minuto_p1
response.write "<P>"
response.write "<P>"
response.write "VA:" & variante1
response.write "<P>"
response.write "Hora" & hora2
response.write "<P>"
response.write "Minutos" & minuto_p2
response.write "<P>"
response.write "VA:" & variante2
response.write "<P>"
response.write "Valor1: " & valor1
response.write "<P>"
response.write "Valor2: " & valor2
response.write "Finalmente: " & minutos
if minutos > 59 then
hora_total = hora_total + 1
minutos = minutos - 60
response.write "<P>"
response.write "Es mayor a 59"
end if
if minutos="0" then
minutos="00"
end if
response.write "<P>"
hora_total = hora_total - 1
tiempo_trabajado = hora_total&":"&minutos
Response.Write "<p><b>Esta persona Trabajo hasta ahora: " & tiempo_trabajado
sql="Insert Into historial (id_empl, fecha, tiempo, dia_nu, mes, mes_nu, ano, hora_total , minutos) values ("& id &", '"& fecha_completa &"', '"&tiempo_trabajado&"', '"& dia_nu &"', '"& mes &"', '"& mes_nu &"', '"& ano &"', '"& hora_total &"' , '"& minutos &"')"
set rs = Conn.Execute(sql)
sql="Insert Into salida (id_empl, dia, dia_nu, mes, mes_nu, ano, hora, minuto, horas, variante, fecha_completa) values (" & id & ", '"& dia &"', '"& dia_solo &"', '"& mes_solo &"', '"& mes_nu &"', '"& ano &"', '"& hora2 &"', '"& minutos2 &"', '"& horas &"', '"& variante2 &"', '"& fecha_completa &"');"
set rs = Conn.Execute(sql)
sql="Insert Into historial_salida (id_empl, dia, dia_nu, mes, mes_nu, ano, hora, minuto, horas, variante, fecha_completa) values (" & id & ", '"& dia &"', '"& dia_solo &"', '"& mes_solo &"', '"& mes_nu &"', '"& ano &"', '"& hora2 &"', '"& minutos2 &"', '"& horas &"', '"& variante2 &"', '"& fecha_completa &"');"
set rs = Conn.Execute(sql)
sql="DELETE * FROM entrada where id_empl = "& id &""
set rs = Conn.Execute(sql)
sql="DELETE * FROM salida where id_empl = "& id &""
set rs = Conn.Execute(sql)
Conn.Close
set rs = Nothing
set Conn = Nothing
Response.redirect (".\default.asp")
'end if
end if
if boton = "Cancelar" then
response.redirect (".\default.asp")
end if
end if
end if
%>