Schrijf een functie in Visual Basic 6 dat moment omgezet in seconden te tijd in uren , minuten en seconden wanneer u nodig hebt om het menselijk leesbaar formaat weer te geven voor een tijd in seconden waarde . Computers vaak gebruik van de tijd in seconden vanaf een bepaalde datum , zoals januari , 1 1970 . Het is moeilijk voor mensen om te lezen , tenzij vertaald naar een standaard formaat waarop computergebruikers gewend zijn . Gebruik de "Sub " en " Dim " trefwoorden om een eenvoudige conversie functie voor de tijd in seconden . Instructies
1 Open de Visual Basic 6 project waarvoor je nodig hebt om een omzetting van tijd in seconden waarde om de uren /minuten /seconden tijd formaat . Typ de volgende functie in het programma : Private Sub SecondsToHMS
( ByVal seconden als lang) Dim HR
als Geheel Dim MS
als Geheel
Dim SS As Integer HR
= sec \\ 3600 MS
= ( sec Mod 3600 ) SS = ( sec Mod 3600 ) Mod 60
\\ 60
end Sub notitiekaarten dat de " Private Sub " sleutelwoorden worden gebruikt voor het opzetten van de functie met de naam " SecondsToHMS " dat er een tijd zal omzetten in seconden waarde aan uren , minuten en seconden . kopen van 2 Inspecteer elke " Dim " lijn en er rekening mee dat elk woord na " Dim " is een variabele die wordt gebruikt om een omgerekende waarde houden in seconden . " HR " houdt het aantal seconden geconverteerd naar uren , " MS " houdt het aantal seconden ( of modulus ) overblijft van de uren berekening omgezet in minuten , en " SS " houdt het aantal seconden ( of modulus ) overblijft van de notulen berekening .
3 Toon de tijd in seconden geconverteerd naar uren , minuten en seconden met behulp van een formaat dat door uw Visual Basic 6 -programma . Bijvoorbeeld, als u de weergave van de huidige tijd met de uren , minuten en seconden in vorm , schrijft het volgende in het programma functie boven net voor de " End Sub " lijn : Form1.show
Print " Hours = " + HR Print
" Minutes = " + MS Print " Seconds = "
+ SS
|
