Når der beskæftiger sig med tiden i Pascal, du beregne mængden af ​​tid mellem to forskellige begivenheder. For eksempel kan du ønsker at kontrollere lang tid det tager en del af et program til at køre , eller se, hvor længe en person har været logget ind eller at spore tid under en multiple choice test . Når du samler to forskellige tidspunkter , du indkode dem i en numerisk form , trække og derefter vise tidsforskellen. Instruktioner
1

Åbn din Pascal kilde filen i en teksteditor såsom Windows Notesblok
2

Indtast følgende kode i toppen af ​​din fil : .
< p> Program Eksempel ,

Bruger Dos ,

Bruger sysutils ,

Brug af " Dos " giver adgang til " getTime "-funktionen . Brug " sysutils " giver adgang til " EncodeTime " og " DecodeTime " funktioner
3

Erklær variabler, der lagrer tidsværdier ved at tilføje koden : .

Var

hour1 , Min1 , Sec1 , HSec1 : ord,

Hour2 , min2 , Sek2 , HSec2 : ord,

Hour3 , min3 , sec3 , MSec3 : word ; < br >

x , y, z: TDateTime ;
4

Få første gang i starten af ​​din funktion ved at tilføje koden : Hej

Begin

getTime ( hour1 , Min1 , Sec1 , HSec1 ),
5

Udfør de vigtigste kode på din funktion og derefter kalde " getTime " igen ved at tilføje koden : Hej

getTime ( Hour2 , min2 , Sek2 , HSec2 )
6

Beregn forskellen mellem de to gange ved at tilføje koden : Hej

x : = EncodeTime ( hour1 , Min1 , Sec1 , 0) ; < br >

y: = EncodeTime ( Hour2 , min2 , Sek2 , 0) ;

z: = y - x ,

DecodeTime ( z, Hour3 , min3 , sec3 , MSec3 ) ;

" EncodeTime "-funktionen konverterer tiden ind i en " TDateTime "-værdi , der er lagret som en "dobbelt ". Koden fratrækker de to gange og derefter afkoder resultatet i en printbar format
7

Vise tidsforskellen med " writeln "-funktionen ved at tilføje koden : .

Writeln (format ( ' Tidsforskel = % d :% d :% d ', [ Hour3 , min3 , sec3 ] )),

End
8

Gem filen , kompilere og køre . programmet for at se tidsmålinger .