selisih-hari versi 2

PROGRAM Selisih_waktu

{Menghitung selisih hari dari dua buah tanggal T1(dd:mm:yy) dan t2 (dd:mm:yy).selisih hari T1 dan T2 adalah SH=T2-T1}

DEKLARASI

type hari:record<dd,mm,yy:

integer >

T1, T2: Hari

i, selisih_hari:integer

prosedure Konversi (input selisih:integer)

DEKLARASI

integer>

dd1,mm1,yy1,hasil1,dd2,mm2,yy2,hasil2:hari

ALGORITMA:

{

read(T1, T2)

hasil=proses(T1,T2)

hari=selisih(hasil1,hasil2,yy1,yy2)

read("selisih hari T1 dan T2)

}

proses(int a, int b, int c)

{

int d

if(b==1)

d=a

if(b==2)

d=31+a

if(b==3)

d=59+a

if(b==4)

d=90+a

if(b==5)

d=120+a

if(b==6)

d=151+a

if(b==7)

d=181+a

if(b==8)

d=212+a

if(b==9)

d=243+a

if(b==10)

d=273+a

if(b==11)

d=304+a

if(b==12)

d=334+a

if((b>2)and(mod 4=0 and mod 100?0)or(mod 400=0))

d=d+1

return d

}

integer selisih(int T1,int T2,int i,int j)

{

integer jumlah=0

if(i?j)

{

for(n=i<j+)

{

jumlah = jumlah+365+(mod 4=0 and mod 100?0)or(mod 400=0)then

}

jumlah=jumlah-T1+T2

return jumlah

}

if(i=j)

jumlah=T2-T1

return jumlah

}