|
Ecrivez une fonction dans Visual Basic 6 qui convertit le temps en secondes de temps en heures , minutes et secondes lorsque vous devez afficher le format lisible par un humain pendant un certain temps en valeur des secondes . Ordinateurs utilisent couramment temps en secondes depuis une date spécifique, comme Janvier , 1 1970 . Il est difficile à lire aux humains à moins que traduit en un format standard pour les utilisateurs d'ordinateurs qui sont habitués . Utilisez les mots-clés "sub" et "Dim " pour créer une fonction de conversion simple pour les temps en secondes. Instructions
1 Ouvrez le projet Visual Basic 6 pour lesquels vous avez besoin de convertir une heure en valeur des secondes aux heures /minutes /format de temps secondes . Tapez la fonction suivante dans le programme :
SecondsToHMS Private Sub (secondes ByVal As Long )
RH 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
Notez que le " Private Sub " mots clés sont utilisés pour mettre en place la fonction nommée " SecondsToHMS " qui permet de convertir une fois la valeur de secondes à plusieurs heures , minutes et secondes .
2 Inspecter chaque ligne "Dim " et notez que chaque mot après "Dim " est une variable qui est utilisé pour maintenir une valeur convertie en quelques secondes . "HR" contient le nombre de secondes converties en heures , "MS" contient le nombre de secondes (ou module ) qui reste dans le calcul des heures converti en minutes , et "SS" contient le nombre de secondes (ou module ) laissés par le calcul des minutes.
3 Afficher le temps en secondes valeur convertie en heures , minutes et secondes en utilisant le format requis par votre programme Visual Basic 6 . Par exemple, si vous affichez l'heure actuelle avec les heures, les minutes et les secondes dans la forme, écrivez ce qui suit dans la fonction de programme ci-dessus , juste avant le "End Sub " ligne :
Form1.Show
Imprimer "hours = " + HR
Imprimer " Minutes =" + MS
impression " secondes =" + SS
|
