Ako previesť Seconds to čas pre Visual Basic 6

Napíšte funkciu v jazyku Visual Basic 6 , ktorý prevádza čas v sekundách , čas v hodinách , minútach a sekundách , keď potrebujete zobraziť ľudský čitateľný formát pre čas v sekundách hodnoty . Počítače bežne používajú čas v sekundách od určitého dátumu , ako je napríklad 1. januára 1970 . Je ťažké pre ľudí , aby si , ak nie je preložená do štandardného formátu , na ktorý používatelia počítačov sú zvyknutí . Použite " Sub " a " DIM " kľúčové slová , vytvoriť jednoduchý konverzný funkcie pre čas v sekundách . Pokyny dovolená 1

Otvorte Visual Basic 6 projekt , pre ktorý potrebujete previesť čas v sekundách hodnoty na hodinách /minútach /sekundách formáte . Zadajte nasledujúce funkciu do programu :

Private Sub SecondsToHMS ( byval sekúnd , rovnako ako Long )

Dim HR As Integer

Dim MS As Integer Dim

SS As Integer

HR = Sec \\ 3600

MS = ( Sec Mod 3600 ) \\ 60

SS = ( Sec Mod 3600 ) Mod 60

end Sub

Všimnite si , že " Private Sub " kľúčové slová sa používajú na nastavenie funkcie s názvom " SecondsToHMS " , ktoré bude prevádzať čas v sekundách hodnotu , hodín , minút a sekúnd .
2

Skontrolujte každú " Dim " linku a vedomie , že každé slovo po " Dim " je premenná , ktorá sa používa pre zastavenie prevedenú hodnotu v sekundách . " HR " obsahuje počet sekúnd prevedené na hodiny , " MS " obsahuje počet sekúnd ( alebo modul ) , ktoré ostali z výpočtu hodín premenená na minúty , a " SS " obsahuje počet sekúnd ( alebo modul ) , ktoré ostali z výpočet minút .
3

Zobraziť čas v sekundách hodnoty prevedené na hodiny , minúty a sekundy vo formáte požadovanej Visual Basic 6 programu . Napríklad , ak ste sa zobrazuje aktuálny čas sa hodiny , minúty a sekundy v podobe , napíšte nasledujúce do funkcie programového nad tesne pred " End Sub " riadky :

Form1.show

Tlač " čas = " + HR

Print " Minutes = " + MS

Print " Seconds = " + SS

• Predchádzajúca strana: Ako kombinovať zábery z dvoch bitmapy v VB.Net 
• Ďalšia strana: Ako si vyrobiť Tlačidlo Volanie Private Sub v VB