Source Code Aplikasi Menghitung Jumlah Hari Menggunakan Delphi

Source code aplikasi yang kami bagikan kali ini adalah sebuah source code sederhana yang dibangun menggunakan bahasa pemrograman delphi. Aplikasi ini sangat cocok bagi pemula dalam mempelajari delphi. Yaitu aplikasi menghitung hari setiap bulan.

Berikut ini adalah source code nya :

 unit UnitJumHari;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
Label3: TLabel;
Label4: TLabel;
Shape1: TShape;
Bevel1: TBevel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
Function DaysPerMonth(YearIn, MonthIn: Integer): Integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
Function TForm1.DaysPerMonth(YearIn, MonthIn: Integer): Integer;
Const
DaysInMonth: array[1..12] of integer =
(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
Result := DaysInMonth[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(DaysPerMonth(s1,s2)));
Memo1.Lines.Add('Hari');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;
end.

Atau silahkan download source codenya melalui tombol download di bawah ini :

Download