Hari dan Pasaran Delphi

Postingan kali ini adalah sebuah fungsi untuk menentukan hari dan pasaran menggunakan delphi.

Tak perlu repot-repot menghafalkan hari dan pasaran, tinggal klik aja langsung muncul.. heuheu.. :D Oke langsung cekidot...!!!

Desain Form kira-kira seperti gambar berikut :



Buat fungsi Hari_Pasaran :
function Hari_Pasaran(Tgl: TDate): string;<br />var<br />n,h,p: Integer;<br />begin<br />n:=Trunc(Tgl-EncodeDate(1,1,1)); // support mulai 1 Januari th 1<br />h:=n mod 7;<br />p:=n mod 5;<br /><br />case h of<br />0: Result:='Senin';<br />1: Result:='Selasa';<br />2: Result:='Rabu';<br />3: Result:='Kamis';<br />4: Result:='Jum''at';<br />5: Result:='Sabtu';<br />6: Result:='Minggu';<br />else<br />Result:=''; // gak mungkin terjadi<br />end;<br /><br />Result:=Result+' ';<br />case p of<br />0: Result:=Result+'Pahing';<br />1: Result:=Result+'Pon';<br />2: Result:=Result+'Wage';<br />3: Result:=Result+'Kliwon';<br />4: Result:=Result+'Legi';<br />end;<br />end;
Pada DateTimePicker event OnChange ketik kode berikut :
procedure TForm1.DateTimePicker1Change(Sender: TObject);<br />begin<br />Label1.Caption:=Hari_Pasaran(DateTimePicker1.Date);<br />end;
Pada Form event OnCreate ketik kode berikut :
procedure TForm1.FormCreate(Sender: TObject);<br />begin<br />DateTimePicker1.Date:=Now;<br />Label1.Caption:=Hari_Pasaran(DateTimePicker1.Date);<br />end;
Source Code Lengkap :
unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs, ComCtrls, StdCtrls;<br /><br />type<br />  TForm1 = class(TForm)<br />    Label1: TLabel;<br />    DateTimePicker1: TDateTimePicker;<br />    Label2: TLabel;<br />    procedure DateTimePicker1Change(Sender: TObject);<br />    procedure FormCreate(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />function Hari_Pasaran(Tgl: TDate): string;<br />var<br />n,h,p: Integer;<br />begin<br />n:=Trunc(Tgl-EncodeDate(1,1,1)); // revisi : support mulai 1 Januari th 1<br />h:=n mod 7;<br />p:=n mod 5;<br /><br />case h of<br />0: Result:='Senin';<br />1: Result:='Selasa';<br />2: Result:='Rabu';<br />3: Result:='Kamis';<br />4: Result:='Jum''at';<br />5: Result:='Sabtu';<br />6: Result:='Minggu';<br />else<br />Result:=''; // gak mungkin terjadi<br />end;<br /><br />Result:=Result+' ';<br />case p of<br />0: Result:=Result+'Pahing';<br />1: Result:=Result+'Pon';<br />2: Result:=Result+'Wage';<br />3: Result:=Result+'Kliwon';<br />4: Result:=Result+'Legi';<br />end;<br />end;<br /><br />procedure TForm1.DateTimePicker1Change(Sender: TObject);<br />begin<br />Label1.Caption:=Hari_Pasaran(DateTimePicker1.Date);<br />end;<br /><br />procedure TForm1.FormCreate(Sender: TObject);<br />begin<br />DateTimePicker1.Date:=Now;<br />Label1.Caption:=Hari_Pasaran(DateTimePicker1.Date);<br />end;<br /><br />end.
Hasil Screenshot Program :



Program + Source Code dapat di download di SINI