Escreva uma função em Visual Basic 6 que converte o tempo em segundos para o tempo em horas, minutos e segundos em que você precisa para exibir o formato legível por um tempo em segundos valor. Computadores usam geralmente o tempo em segundos a partir de uma data específica, como o de Janeiro, 1 1970. É difícil para os seres humanos a ler a menos que traduzido para um formato padrão para que os usuários de computadores estão acostumados . Use o "Sub" e palavras-chave " Dim " para criar uma função de conversão simples para o tempo em segundos. Instruções
1

Abra o Visual Basic 6 projeto para o qual você precisa converter um tempo em segundos valor ao Horas /formato de minutos /segundos . Digite a seguinte função para o programa :

SecondsToHMS Private Sub ( ByVal Segundos As Long)

Dim HR As Integer Dim

MS As Integer Dim

SS As Integer

HR = Secs \\ 3600

MS = ( Secs Mod 3600) \\ 60

SS = ( Secs Mod 3600) Mod 60

End Sub

Note-se que os " Private Sub " palavras -chave são usadas para configurar a função chamada " SecondsToHMS " que irá converter um tempo em segundos o valor de horas, minutos e segundos.
2

Inspecione cada linha " Dim " e note que cada palavra depois de " Dim " é uma variável que é usado para armazenar um valor convertido em segundos. "HR " tem o número de segundos convertidos em horas , "MS" tem o número de segundos (ou módulo) que sobraram do cálculo horas convertido para minutos e " SS " tem o número de segundos (ou módulo ) que sobraram de o cálculo minutos.
3

Mostrar o tempo em segundos o valor convertido em horas , minutos e segundos com o formato exigido pelo seu programa Visual Basic 6. Por exemplo, se você estiver exibindo a hora atual com as horas, minutos e segundos em formulário , escreva o seguinte na função programa acima , pouco antes da linha " End Sub " :

Form1.Show

Imprimir "Horas =" + HR

Imprimir "Minutes =" + MS

Imprimir " Segundos =" + SS