Cómo convertir a segundos Tiempo para Visual Basic 6

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