aplikasi pelihat hari pada tanggal dengan delphi 2010

Desain Form

Desain Properties

Design Properties

Objek	Caption	Name
Label1	Tanggal	Label1
Label2	Bulan	Label2
Label3	Tahun	Label3
Label4	Hari Pada Tanggal Tersebut	Label4
GroupBox1	Entry Tanggal	GroupBox1
Button1	Ok	Button1
Button2	Close	Button2
Edit1	-	e1
Edit2	-	e2
Edit3	-	e3
Edit4	-	e4

Listing Program

unit Unit10;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, jpeg, ExtCtrls, StdCtrls;

type

  TForm10 = class(TForm)

    GroupBox1: TGroupBox;

    e1: TEdit;

    e2: TEdit;

    e3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Button1: TButton;

    Label4: TLabel;

    e4: TEdit;

    Image1: TImage;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);

type

x=string[7];

const

faktorbln:array [1..12]of byte=(0,3,3,6,1,4,6,2,5,0,3,5);

hari:array[0..8]of x=('Minggu','Senin','Selasa','','Rabu','Kamis','','Jumat','Sabtu');

var

hr:string;

nama:string[255];

j1,j2,j3,j4:integer;

tanggal,bulan,tahun:integer;

begin

tanggal:=strtoint(e1.Text);

bulan:=strtoint(e2.Text);

tahun:=strtoint(e3.Text);

if tahun > 1900 then

  tahun:=tahun-1900;

  j1:=trunc(tahun*365.25);

  j2:=j1+faktorbln[bulan];

  if (tahun/4=int(tahun/4))and (bulan<3) then

  j2:=j2-1;

  j3:=j2+tanggal;

  j4:=trunc(frac (j3/7)*10);hr:=hari[j4];

  e4.Text:=hr;

end;

procedure TForm10.Button2Click(Sender: TObject);

begin

close;

end;

end.

itulah sedikit tutorial cara membuat aplikasi pelihat hari pada tanggal, untuk contoh filenya silahkan download di sini