Program Penghitung Hari Menggunakan Delphi 7

Pseudo Code:


var a,b,c : integer;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit3.Text);
  c:=(a+b)mod 7;
  case a of
    1:edit2.text:='senin';
    2:edit2.text:='selasa';
    3:edit2.text:='rabu';
    4:edit2.text:='kamis';
    5:edit2.text:='jumat';
    6:edit2.text:='sabtu';
    7:edit2.text:='minggu';
  end;
  case c of
    1:edit4.text:='senin';
    2:edit4.text:='selasa';
    3:edit4.text:='rabu';
    4:edit4.text:='kamis';
    5:edit4.text:='jumat';
    6:edit4.text:='sabtu';
    0:edit4.text:='minggu';
    end;
end;

Semoga Bermanfaat :)