Tips Trik Delphi - Hitung Abad

Hitung Abad

Posted on October 01, 2010, Filed in: Tips Trik Delphi

Menghitung abad ke – n berdasarkan tanggal tertentu.

Deklarasi fungsi :

function HitungAbad(const d: TDate): Word;
var
tg, bl, th: Word;
begin
DecodeDate(D, th, bl, tg);
Result := th div 100;
end;

Contoh implementasi :

procedure TForm1.Button1Click(Sender: TObject);
var
d: TDate;
begin
d:= DateTimePicker1.Date;
with Memo1.Lines do
begin
Clear;
Add('Tanggal ' + DateToStr(d) + ' berada pada abad ke - ' +
IntToStr(HitungAbad(d)));
end;
end;

Output:

Output - Hitung Abad

Download
Source Code Delphi - Hitung Abad
File: hitung_abad.zip
Hits: 178

Related content:

Hitung Jumlah Karakter pada Kalimat
Hitung Selisih Tanggal
Menghitung Total Icon pada File
Menghitung Index Huruf Abjad

Rating: 5.0/5 (2 votes cast)

Rating: +1 (from 1 vote)

Previous post: Jumlah Hari dalam Tahun
Next post : Cek Waktu AM-PM

Hitung Abad

Menghitung abad ke – n berdasarkan tanggal tertentu.

Leave a Reply Cancel reply

opx.bit