Aplikasi Mencari Hari Pasaran Jawa

Anda mau menjodohkan anak, mau ada hajatan misal kawinan, khitan, dan lain-lain, biasanya orang Jawa disamping menggunakan hari biasa, sering menggunakan hari Pasaran yang terdiri dari 5 hari, yaitu Pon, Wage, Kliwon, Legi dan Pahing. Tapi sering kali kita lupa akan hari pasaran dari tanggal lahir anak kita, atau bahkan hari pasaran tanggal lahir kita sendiri. Dulu sebelum kenal Lazarus aku biasa menggunakan tabel (dari majalah Liberty 1716, 16-31 Desember1989 ) untuk mencari hari pasaran secara manual, silahkan lihat gambar di bawah ini dan coba praktekkan:

Tabel Mencari Hari dari suatu Tanggal

Tabel Mencari Pasaran dari suatu Tanggal

Kalau dengan cara tabel seperti gambar di atas terlalu ribet, sekarang mari kita buat aplikasi sederhana uncuk mencari Hari Pasaran Jawa, sehingga anda bisa mengetahui hadi lahir dan pasaran diri sendiri, sanak keluarga maupun teman-teman.

Desain Visual.Aplikasi Mencari Hari Pasaran Jawa

TForm1, dengan properties (Name: FPasaran, Caption: Hari Pasaran, Position: poScreenCenter)

Tempatkan komponen-komponen berikut pada FPasaran:

TDateEditor, dengan properties (Name: DETanggal, DirectInput: False)
Label1, dengan properties (Caption: Tanggal)
Label2, dengan properties (Caption: Hari)
Label3, dengan properties (Caption: Pasaran)
Label4, dengan properties (Name: LHari, Caption: -)
Label5, dengan properties (Name: LPasaran, Caption: -)

Tampilan Desain Form Aplikasi Hari Pasaran

Setelah desain visualnya selesai, silahkan simpan dengan nama pasaran.lpi dan upasaran.pas. Selanjutnya mari kitta masuk ke pemrograman non visual:

• Tambahkan unit dateutils seperti gambar di bawah ini:

Tambahkan unit dateutils

• Tambahkan variabel:

Patokanhari: real;
Sisahari: integer; 

• Buat procedure pada event onclick pada komponen DETanggal

procedure TFPasaran.DETanggalChange(Sender: TObject);
begin
  LHari.Caption:=formatdatetime('dddd',DETanggal.Date);
  Patokanhari:=(DateTimeToJulianDate(DETanggal.Date)-DateTimeToJulianDate(27/03/2015));
  Sisahari:= strtoint(floattostr(Selisihhari)) mod 5;
  Case sisahari of
  0: LPasaran.Caption:='Kliwon';
  1: LPasaran.Caption:='Legi';
  2: LPasaran.Caption:='Pahing';
  3: LPasaran.Caption:='Pon';
  4: LPasaran.Caption:='Wage';
  end;
end;

Source Code lengkap Aplikasi Hari Pasaran

unit upasaran;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, dateutils,
  EditBtn, StdCtrls;

type

  { TFPasaran }

  TFPasaran = class(TForm)
    DETanggal: TDateEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    LPasaran: TLabel;
    LHari: TLabel;
    procedure DETanggalChange(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FPasaran: TFPasaran;
  Patokanhari: real;
  Sisahari: integer;

implementation

{$R *.lfm}

{ TFPasaran }

procedure TFPasaran.DETanggalChange(Sender: TObject);
begin
  LHari.Caption:=formatdatetime('dddd',DETanggal.Date);
  Patokanhari:=(DateTimeToJulianDate(DETanggal.Date)-DateTimeToJulianDate(27/03/2015));
  Sisahari:= strtoint(floattostr(Selisihhari)) mod 5;
  Case sisahari of
  0: LPasaran.Caption:='Kliwon';
  1: LPasaran.Caption:='Legi';
  2: LPasaran.Caption:='Pahing';
  3: LPasaran.Caption:='Pon';
  4: LPasaran.Caption:='Wage';
  end;
end;

end.

Tampilan aplikasi Mencari Hari pasaran Jawa ketika sedang dijalankan dan kita memilih tanggal seperti gambar di bawah ini:

Penjelasan Aplikasi Mencari Hari Pasaran Jawa

LHari.Caption:=formatdatetime('dddd',DETanggal.Date);
Kode diatas berfungsi untuk mencari hari dari suatu tanggal.

Patokanhari:=(DateTimeToJulianDate(DETanggal.Date)-DateTimeToJulianDate(27/03/2015));
Kode diatas adalah untuk mencari patokan dari perhitungan urut-urutan pasaran jawa, kebetulan waktu aku membuat aplikasi Mencari Hari Pasaran Jawa pada tanggal 27/03/2015 jadi pada tanggal tersebut yang aku jadikan patokan dan harinya adalah Jum'at Kliwon. Jika saya pilih tanggal 27/03/2015 pada Tanggal maka Patokanhari akan menghasilkan angka 42090 yang berasal dari (27/03/2015 - 27/03/2015).

Sisahari:= strtoint(floattostr(Patokanhari)) mod 5;
Seperti telah aku jelaskan pada paragraf pertama, pasaran Jawa terdiri dari 5 hari yaitu dengan urut0urutan: Pon, Wage, Kliwon, Legi dan Pahing. Maka utuk mencari pasaran jawa kita bagi 5 dari hasil Patokanhari, kebetulan Modulus (sisa pembagian) dari Patokanhari dengan 5 adalah 0; ( 42090 mod 5 = 0 ) dan jatuh pada pasaran jawa Kliwon.

Case sisahari of
  0: LPasaran.Caption:='Kliwon';
  1: LPasaran.Caption:='Legi';
  2: LPasaran.Caption:='Pahing';
  3: LPasaran.Caption:='Pon';
  4: LPasaran.Caption:='Wage';
end;
Dari kode atas dapat dijelaskan bahwa jika sisahari = 0 maka pasaran jawanya adalah Kliwon, begitu seterusnya dengan sisahari = 1 maka pasaran jawa setelah Kliwon adalah Legi, sisahari 2 = Pahing, sisahari 3 = Pon dan sisahari 4 = Wage.

Demikian Aplikasi sederhana tentang cara mencari hari pasaran jawa, semoga bermanfaat, di aplikasi ini terdapat sedikit kekurangan yaitu aku tidak memperhitungkan ada perubahan tanggal pada waktu jaman romawi dulu, seingatku pernah diloncat harinya sehingga tidak urut dari awal lagi, tepatnya entah bagaimana saya lupa referensinya di mana, silahkan disempurnakan sendiri ya aplikasi ini, untuk pencarian tahun 1900 keatas insyaallah akurat, selamat mencoba.