Escribe una función en Visual Basic 6 que convierte el tiempo en segundos para el tiempo en horas, minutos y segundos cuando se necesita mostrar el formato legible por una época en valor de los segundos . Computadoras comúnmente utilizan el tiempo en segundos de una fecha específica, como la de enero de 1970 1 . Es difícil para los seres humanos a leer a menos traducido a un formato estándar a la que están acostumbrados los usuarios de ordenadores . Use las palabras clave " Sub " y " Dim " para crear una función de conversión simple para el tiempo en segundos. Instrucciones
1
Abra el proyecto de Visual Basic 6 para el que necesita para convertir un momento en el valor de los segundos a las horas /minutos /segundos formato de la hora . Escriba la siguiente función en el programa :
SecondsToHMS Private Sub ( segundos ByVal As Long ) guía
RRHH Dim As Integer Dim
MS As Integer Dim
SS As Integer
HR = Seg \\ 3600
MS = ( Secs Mod 3600) \\ 60
SS = ( Secs Mod 3600 ) Mod 60
End Sub
Tenga en cuenta que los " Private Sub " palabras claves se utilizan para configurar la función denominada " SecondsToHMS " que convertirá una vez en valor de los segundos a horas , minutos y segundos .
2
Inspeccione cada línea " Dim " y tenga en cuenta que cada palabra después de " Dim " es una variable que se utiliza para mantener un valor convertido en cuestión de segundos . " HR " contiene el número de segundos a horas convertidos , " MS " contiene el número de segundos ( o módulo ) dejada por el cálculo horas convertidos a minutos , y " SS " contiene el número de segundos ( o módulo ) sobrante de el cálculo minutos .
3
Muestra el tiempo en segundos valor convertido a horas , minutos y segundos con el formato requerido por el programa de Visual Basic 6. Por ejemplo , si usted esta mostrando la hora actual con la hora , minuto y segundo en la forma, escriba lo siguiente en la función del programa anterior justo antes de la "Sub End " línea :
Form1.Show
< p > Impresión " Horas = " + HR
Imprimir " Minutos = " + MS
impresión " segundos = " + SS
