Cara menghitunga hari

kali ini saya ingin memberikan cara bagaimana mengetahui jumlah hari dalam satu bulan.
kasus ini biasanya digunakan untuk program seberti penggajian, absensi yang menggunakan perhitungan tanggal dan bulan serta melakukan operasi pengurangan tanggal ataupun penjumlahan tanggal.

oke dah, gk usah panjang lebar.. takutnya ngantuk .... hehehe
 cekidot....

buat desai form seperti dibawah ini:

Function TForm1.HariPerBulan(YearIn, MonthIn: Integer): Integer;
Const
  HariDiBulan: array[1..12] of integer =
            (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
    Result := HariDiBulan[MonthIn];
    If (MonthIn = 2) and IsLeapYear(YearIn) then
        Inc(Result);
End;


procedure TForm1.Button1Click(Sender: TObject);
Var
s1,s2:Integer;
Begin
  s1:=strToint(edit1.text);
  s2:=StrToInt(edit2.text);
  Memo1.Lines.Clear;
  Memo1.Lines.Add(IntToStr(HariPerBulan(s1,s2)));
  Memo1.Lines.Add('Hari');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;
end.

Share on Google Plus

About sadf

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.