cari hari pasaran dengan delphi

karena iseng bongkar2 file lama ..!! akhirnya nemu bekas tugas kuliah pas jaman dulu ..!! yaitu mencari hari pasaran dengan applikasi delphi ..!! lihat screenshotnya

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, dateutils; type TForm1 = class(TForm) MonthCalendar1: TMonthCalendar; Label1: TLabel; procedure MonthCalendar1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.MonthCalendar1Click(Sender: TObject); var awal,cari : tdatetime; jml_hari,pilih_pasaran,pilih_hari : integer; tanggal,bulan,tahun : word ; hari,pasaran : string ; begin tanggal :=StrToInt(FormatDateTime('d',MonthCalendar1.Date)); bulan :=StrToInt(FormatDateTime('m',MonthCalendar1.Date)); tahun :=StrToInt(FormatDateTime('yyyy',MonthCalendar1.Date)); awal:=EncodeDateTime(1970,01,01,0,0,0,0); cari:=EncodeDateTime(tahun,bulan,tanggal,0,0,0,0); jml_hari:=daysbetween(awal,cari); pilih_pasaran:=jml_hari mod 5; case pilih_pasaran of 0:pasaran :='wage'; 1:pasaran :='kliwon'; 2:pasaran :='legi'; 3:pasaran :='pahing'; 4:pasaran :='pon'; end; pilih_hari:=jml_hari mod 7; case pilih_hari of 0:hari :='kamis'; 1:hari :='jumat'; 2:hari :='sabtu'; 3:hari :='minggu'; 4:hari :='senin'; 5:hari :='selasa'; 6:hari :='rabu'; end; Label1.Caption:=hari+' '+pasaran; end; end.

maaf jika scriptnya newbie .. untuk switch casenya sebenarnya bisa di kecilin dengan menggunakan array
maklum dulu emang baru belajar .. hehehe ..!! semoga bermanfaat ..!!

source code