Contoh Source Code Selisih Tanggal Bahasa Pascal

program beda_tanggal;

uses wincrt;

var dd1,mm1,yy1,dd2,mm2,yy2,dd,mm,yy:longint;

begin

     writeln('Hitung Selisih Tanggal');

     writeln;

     writeln('tanggal 1 = ');

     writeln;

     write(' tanggal ');read(dd1);

     write(' bulan ');read(mm1);

     write(' tahun ');read(yy1);

     writeln;

     writeln('tanggal 2 = ');

     writeln;

     write(' tanggal ');read(dd2);

     write(' bulan ');read(mm2);

     write(' tahun ');read(yy2);

     if dd1>dd2 then

        begin

             dd:=dd1-dd2;

        end;

     if dd2>dd1 then

        begin

             dd:=dd2-dd1;

        end;

     if mm1>mm2 then

        begin

             mm:=mm1-mm2;

        end;

     if mm2>mm1 then

        begin

             mm:=mm2-mm1;

        end;

     if yy1>yy2 then

        begin

             yy:=yy1-yy2;

        end;

     if yy2>yy1 then

        begin

             yy:=yy2-yy1;

        end;

        writeln;

        writeln('hasil selisih tanggal : ');

        writeln;

        writeln(yy,' tahun ',mm,' bulan ',dd,' hari ');

        readln(yy,mm,dd);

end.