Cómo convertir a segundos Tiempo para Visual Basic 6

Utilice el tiempo de Visual Basic en la función de conversión de segundos como parte de un programa de conversión.

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)

HR Dim As Integer

MS Dim As Integer

SS Dim 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.

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.

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" de línea:

Form1.Show

Imprimir "Horas =" + HR

Imprimir "Minutos =" + MS

Imprimir "Segundos =" + SS