Konversi Tanggal ke Hari(Array)

Buat Program seperti ini

Hasilnya  dari program

Masukkan Tanggal, Bulan dan Tahun kelahiran misalnya
Tanggal: 24 Bulan: 6 Tahun: 2014.
Dan akan mengetahi keterangan hari pada tanggal itu

List Program


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Trina_2b = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    hasil: TLabel;
    Label5: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rina_2b: Trina_2b;

implementation

{$R *.dfm}

procedure Trina_2b.Button2Click(Sender: TObject);
begin
close;
end;

procedure Trina_2b.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;
j1,j2,j3,j4 : integer;
tanggal,bulan,tahun : integer;
begin
tanggal := strtoint(edit1.Text);
bulan := strtoint(edit2.Text);
tahun := strtoint(edit3.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];
hasil.caption:='Hari pada tanggal '+edit1.Text+
'/'+edit2.Text+'/'+ edit3.Text+' adalah '+hr+'';
end;

end.