pemrogramman entry tanggal delphi7(procedure,function)

Assalamualaikum…mas bro…mbak bro…

Kembali lagi kita bertemu….untuk membahas program Delphi 7

Saat ini kita akan membuat program  entry tanggal untuk mengetahui hari apa saat kita inputkan tanggal tersebut….

Oke kita sedot…cekidot….:p

Kita buat dulu formnya

Catatan propertiesnya

object	caption	name
Label1	Tanggal	Label1
Label2	Bulan	Label2
Label3	Tahun	Label3
Label4	Hari pada tanggal tersebut adalah	Label4
Groupbox1	Entry tanggal113233003	Groupbox1
Edit1	-	Etgl
Edit2	-	Ebln
Edit3	-	Ethn
Edit4	-	Ehari
Command1		ok

. Listing Program

Program untuk Command OK

procedure TForm1.Command1Click(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','','jum''at','sabtu');

var

  hr:string[255];

j1,j2,j3,j4:integer;

  tanggal,bulan,tahun:integer;

begin

tanggal:=strtoint(etngl.text);

bulan:=strtoint(ebln.text);

tahun:=strtoint(ethn.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-j1;

j3:=j2+tanggal;

j4:=trunc(frac(j3/7)*10);

hr:=hari[j4];

ehari.text:=hr;

end;

end.

screen shot hasil jadi…