Rumus Selisih Waktu di Turbo Pascal - GLOBAL KOMPUTER TELUK KUANTAN

Berikut rumus turbo pascal untuk menbuat program selisih waktu, rumus ini telah di sempurnakan.
copas ke notepad anda dan simpan dengan format .pas
cara cepat dalam ilmu pemrograman.

PROGRAM MENGHITUNG_SELISIH_WAKTU;
USES Crt;
VAR
J,M,D,H,J1,M1,D1,H1,HJ,HM,SL,SISA,SISA1:LONGINT;
BEGIN
WRITELN('PROGRAM MENGITUNG SELISIH WAKTU');
WRITELN('=================================================');
WRITELN;
WRITE('WAKTU KE-1 JAM : ');READLN(J);
WRITE('WAKTU KE-1 MENIT : ');READLN(M);
WRITE('WAKTU KE-1 DETIK : ');READLN(D);
WRITELN('=================================================');
WRITE('WAKTU KE-2 JAM :');READLN(J1);
WRITE('WAKTU KE-2 MENIT :');READLN(M1);
WRITE('WAKTU KE-2 DETIK :');READLN(D1);
H:=(J*3600)+(M*60)+D;
H1:=(J1*3600)+(M1*60)+D1;
SL:=H1-H;
IF(SL/3600)>0 THEN
BEGIN
HJ:=SL DIV 3600;
SISA:=SL-(HJ*3600);
END
ELSE
BEGIN
HJ:=0;
SISA:=SL;
END;
IF(SISA/60)>0 THEN
BEGIN
HM:=SISA DIV 60;
SISA1:=SISA-(HM*60);
END
ELSE
BEGIN
HM:=0;
SISA1:=SISA;
END;
WRITELN;
WRITELN('SELISIH WAKTU: ',HJ,' JAM',HM,' MENIT',SISA1,' DETIK');
READLN;
END.

Semoga bermanfaat, jangan lupa comment nya juga sobat blogger..??
Jangan lupa juga baca artikel lainnya di blog ini..
Trima kasih