Menghitung Selisih Hari Antara Dua Tanggal - (Tugas No.5 Halaman 110)

Tugas No.5 Halaman 110 - Menghitung Selisih Hari Antara Dua Tanggal
Soal :

Dibaca dua buah bilangan tanggal (dd:mm:yy). Tulislah algoritma untuk menghitung berapa hari jarak kedua tanggal tersebut. Asumsikan : 1 tahun = 365 hari, 1 bulan = 30 hari, Keluaran (tahun, bulan, hari) tampilkan ke piranti keluaran.

Source Code :

PROGRAM menghitung_selisih_antara_dua_tanggal;
USES CRT;

VAR
   tanggal_pertama : INTEGER;
   bulan_pertama   : INTEGER;
   tahun_pertama   : INTEGER;
   tanggal_kedua   : INTEGER;
   bulan_kedua     : INTEGER;
   tahun_kedua     : INTEGER;
   selisih_hari    : INTEGER;

BEGIN
     //Input
     WRITELN('*************************');
     WRITELN('ISI DATA TANGGAL PERTAMA');
     WRITELN('*************************');
     WRITE('Tanggal : ');READLN(tanggal_pertama);
     WRITE('Bulan   : ');READLN(bulan_pertama);
     WRITE('Tahun   : ');READLN(tahun_pertama);
     WRITELN('Tanggal Pertama Adalah : ',tanggal_pertama,'-',bulan_pertama,'-',tahun_pertama);
     WRITELN('------------------------------------------');
     WRITELN('*************************');
     WRITELN('ISI DATA TANGGAL KEDUA');
     WRITELN('*************************');
     WRITE('Tanggal : ');READLN(tanggal_kedua);
     WRITE('Bulan   : ');READLN(bulan_kedua);
     WRITE('Tahun   : ');READLN(tahun_kedua);
     WRITELN('Tanggal Kedua Adalah : ',tanggal_kedua,'-',bulan_kedua,'-',tahun_kedua);
     WRITELN('------------------------------------------');

     //Proses
     selisih_hari := (tanggal_kedua+(30 * bulan_kedua)+(365 * tahun_kedua))-(tanggal_pertama + ( 30 * bulan_pertama) + (365 * tahun_pertama));

     //Output
     WRITELN('SELISIH HARI DARI ',tanggal_pertama,'-',bulan_pertama,'-',tahun_pertama, ' <---> ',tanggal_kedua,'-',bulan_kedua,'-',tahun_kedua,' ADALAH : ',selisih_hari,' Hari');
     READLN;
END.

Tampilan program ketika di jalankan :

Tugas No.5 Halaman 110