Código fuente de 'Convierte de segundos a horas.asp'
<html>
<head>
<title>Convierte de segundos a horas. - 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">Convierte de segundos a horas</font></b></p>
<%
Function Convierte(seconds)
ConvSec = seconds mod 60
IF Len(ConvSec) = 1 Then
ConvSec = "0" & ConvSec
End If
ConvMin = (seconds mod 3600) \ 60
IF Len(ConvMin) = 1 Then
ConvMin = "0" & ConvMin
End If
ConvHour = seconds \ 3600
IF Len(ConvHour) = 1 Then
ConvHour = "0" & ConvHour
End If
Convierte = ConvHour & ":" & ConvMin & ":" & ConvSec
end Function
response.write "Ejemplo: 86399 segundos es la hora: " & Convierte(86399)
response.write "<br><br><b>Nota</b>: un día tiene 86400 segundos"
%>
</body>
</html>