Perhitungan Tanggal Jatuh Tempo (Delphi)

Perhitungan Tanggal Jatuh Tempo (Delphi)

Perhitungan Tanggal Jatuh Tempo

Bagaimana perhitungan tanggal jatuh tempo misalnya tanggal tanggal kredit 1-1-2010 jangka waktu 5 bulan jatuh tempo setiap tanggal 1 pada bulan berikutnya dan perhitungan hari keterlambatan pada setiap bulannya

Jawab :

procedure TForm1.Button1Click(Sender: TObject);
var tgl1,tgl2:tdatetime;
thn,bln,hari,tempo:word;
begin

tgl1:=strtodate('1/1/2010');
tempo:=5;
decodedate(tgl1,thn,bln,hari);
bln:=bln+tempo;
if bln>12 then
begin
bln:=bln-12;
thn:=thn+1;
end;
tgl2:= encodedate(thn,bln,hari);

showmessage('Tanggal jatuh tempo '+formatdatetime('dd/mm/yyyy',tgl2));
end;

sumber:http://tamtam-blow.blogspot.co.id/2010/05/perhitungan-tanggal-jatuh-tempo-delphi.html