Jumlah Hari Perbulan Delphi

Kali ini saya akan memberikan tutorial, bagimanan mengetahui jumlah hari pada bulan tersebut. Kita dapat mengetahui jumlah hari dalam bulan tersebut tanpa harus menghitung secara manual.

Biasanya perhitungan ini digunanakan dalam proses penggajian ataupun denda yang berhubungan dengan tanggal. Untuk menghitung jumlah hari perbulan pada delphi ini sangat mudah.

OK....
Langsung saja desain form seperti gambar diatas:


dan berikut ini source codenya:

Unit UHariPerBulan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sButton, sEdit, Mask, sMaskEdit, sCustomComboEdit,
  sTooledit;

type
  TForm1 = class(TForm)
    sDateEdit1: TsDateEdit;
    sButton1: TsButton;
    sEdit3: TsEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure sButton1Click(Sender: TObject);
  private

    function DaysPerMonth(AYear, AMonth: Integer): Integer;
    function IsLeapYear(AYear: Integer): Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

function TForm1.DaysPerMonth(AYear, AMonth: Integer): Integer;
const
DaysInMonth: array[1..12] of Integer =
(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
Result := DaysInMonth[AMonth];
if (AMonth = 2) and IsLeapYear(AYear) then Inc(Result); { leap-year Feb is special }
end;

function TForm1.IsLeapYear(AYear: Integer): Boolean;
begin
Result := (AYear mod 4 = 0) and ((AYear mod 100 <> 0) or (AYear mod 400 = 0));
end;

procedure TForm1.sButton1Click(Sender: TObject);
var
  tahun,bulan: Integer;
begin
  tahun:=StrToInt(FormatDateTime('yyyy',sDateEdit1.Date));
  bulan:=StrToInt(FormatDateTime('MM',sDateEdit1.Date));
  sEdit3.Text := IntToStr(DaysPerMonth(tahun,bulan));
end;

end.

Bagi yang malas untuk membuatnya. Bisa langsung klik DISINI.

Untuk lebih baik, kalian membuat ulang... sehingga lebih mengingat caranya.

Ingat!!! yang prastis terkadang tedak berbuah manis.

Selamat mencoba😆

Share this post