HariJawa

Unit HariJawa.pas berisi fungsi untuk mencari hari, pasaran, wuku, paringkelan, jenis tahun, dan jenis windu dari suatu tanggal Jawa.

Contoh cuplikan kode penggunaan:

uses Harijawa;
...
var
  hari, pasaran, wuku, paringkelan, tahun, windu: integer;
  jawa: TDinaJawa;
begin
  jawa := GetHariJawa(1, 1, 1949);
  hari := jawa.JawaDina;
  pasaran := jawa.JawaPasaran;
  wuku := jawa.JawaWuku;
  paringkelan := jawa.JawaParingkelan;
  tahun := jawa.JawaTahun;
  windu := jawa.JawaWindu;
end;