Når du arbeider med tid i Pascal , kan du beregne hvor mye tid mellom to forskjellige hendelser . For eksempel kan det være lurt å sjekke lang tid det tar en del av et program for å kjøre , eller se hvor lenge noen har vært logget på eller for å spore tid under en multiple choice test . Når du samler to forskjellige tider , kode du dem inn i en numerisk form , trekke fra , og deretter vise tidsforskjellen . Instruksjoner
en

Åpne Pascal kilde filen i et tekstredigeringsprogram, for eksempel Windows Notepad
2

Skriv inn følgende kode på toppen av filen : .
< p> Program Eksempel ;

bruker Dos ;

bruker sysutils ;

Bruk " Dos " gir tilgang til " getTime "-funksjonen . Ved hjelp av " sysutils " gir tilgang til " EncodeTime " og " DecodeTime " funksjoner
3

Erklærer variabler som vil lagre tidsverdiene ved å legge inn koden : .

Div.

time1 , Min1 , Sec1 , HSec1 : ord ;

Hour2 , min2 , Sek2 , HSec2 : ord ;

Hour3 , Min3 , Sec3 , MSec3 : ord ;

x , y , z : TDateTime ;
4

Få første gang på begynnelsen av funksjonen ved å legge inn koden : en

Begynn

getTime ( time1 , Min1 , Sec1 , HSec1 ) ;
5

Utfør viktigste koden av funksjon og deretter ringe " getTime " igjen ved å legge inn koden : en

getTime ( Hour2 , min2 , Sek2 , HSec2 ) ;
6

Beregn forskjellen mellom de to ganger ved å legge inn koden : en

x : = EncodeTime ( time1 , Min1 , Sec1 , 0 );

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

z: = y - x ;

DecodeTime ( z , Hour3 , Min3 , Sec3 , MSec3 ) ;

" EncodeTime "-funksjonen konverterer tid til en " TDateTime " verdi , som er lagret som en " dobbel ". Koden trekker de to ganger og deretter dekoder resultatet i et utskriftsvennlig format
7

Vise tidsforskjellen med " writeln "-funksjonen ved å legge inn koden : .

Writeln (format (' Tidsforskjell =% d: % d: % d', [ Hour3 , Min3 , Sec3 ] ));

End
8

Lagre filen, kompilere og kjøre . programmet for å vise tiden målinger.