Fungsi IncMonth berada di unit DateUtils dengan mengembalikan nilai tipe TDateTime , digunakan untuk memajukan atau memundurkan bulan sejumlah bilangan tertentu. Untuk memajukan, Anda dapat menggunakan bilangan positif, sedangkan sebaliknya, Anda bisa menggunakan bilangan negatif.
Contoh program berikut adalah mencari tanggal terakhir pada bulan hasil fungsi Now. Seperti Anda ketahui, tanggal awal selalu 1, tetapi tanggal akhir bisa 28, 29,30, atau 31. Kita akal-akalan saja dengan menambahkan bulan di Now dengan satu bulan ke depan.
TanggalBaru := IncMonth(Now);
Tetapi tanggal bulan depan akan sama dengan bulan di Now. Sebagai contoh, jika sekarang tanggal 2 November, maka satu bulan ke depan adalah tanggal 2 Desember. Padahal kita butuh menjadikannya tanggal 1,
DecodeDate(TanggalBaru, Thn, Bln, Tgl);
agar kita dapat mengurangi harinya, sehingga menjadi hari terakhir bulan ini.
IncDay(TanggalBaru,-1))
Ini adalah kode selengkapnya:
uses SysUtils, DateUtils;
var
Tgl, Bln, Thn : Word;
TanggalBaru : TDateTime;
begin
try
writeln('Sekarang tanggal ', DateToStr(Now));
TanggalBaru := IncMonth(Now);
DecodeDate(TanggalBaru, Thn, Bln, Tgl);
TanggalBaru := EncodeDate(Thn, Bln, 1);
writeln('tanggal terakhir bulan ini ', DateToStr(IncDay(TanggalBaru,-1)));
readln;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.
0 comments:
Posting Komentar