Código fuente de 'Diferencia de horas en segundos.asp'

<html>

<head>
<title>Diferencia de horas en segundos - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>

<body style="font-family: Arial; font-size: 9pt">

<p align="center"><b><font size="3">Diferencia de horas en segundos</font></b></p>
<%
Function Diffecha(HoraInicial,HoraFinal)
       HoraIni = Hour(HoraInicial)
       MinIni =  Minute(HoraInicial)
       StartSec = Second(HoraInicial)
       HoraFin = Hour(HoraFinal)
       MinFin = Minute(HoraFinal)
       SegFin = Second(HoraFinal)
       SegsIni = (StartSec + (MinIni * 60) + ((HoraIni * 60)*60))
       SegsFin = (SegFin + (MinFin * 60) + ((HoraFin * 60)*60))
       Diffecha = SegsFin - SegsIni
End Function

response.write "La diferencia en segundos de estas horas '15:08:22' y '12:23:11' es: " & Diffecha ("12:23:11","15:08:22")
%>

</body></html>