Fungsi Waktu EndOfAMonth

Fungsi EndOfAMonth berada di unit DateUtils, berfungsi untuk memberitahukan tanggal akhir bulan dan tahun yang disebutkan dalam parameternya yang bertipe Word. Sintaknya adalah:

EndOfAMonth(Tahun, Bulan)

Pada artikel IncMonth saya memberikan kode program untuk mendapatkan tanggal akhir pada bulan yang dimaksud. Sekarang saya akan menampilkannya pada program di bawah ini dengan membandingkannya dengan fungsi EndOfAMonth. EndOfAMonth lebih ringkas daripada IncMonth, tetapi terserah Anda mau memakai yang mana.

uses
  SysUtils, DateUtils;
var
   Tgl, Bln, Thn : Word;
   TanggalBaru : TDateTime;
begin
  try
      writeln('Sekarang tanggal ', DateToStr(Now));
      DecodeDate(Now, Thn, Bln, Tgl);
      TanggalBaru := EndOfAMonth(Thn, Bln);
      writeln('Akhir bulan tanggal (EndOfAMonth) ', DateToStr(TanggalBaru));

      TanggalBaru := IncMonth(Now);
      DecodeDate(TanggalBaru, Thn, Bln, Tgl);
      TanggalBaru := EncodeDate(Thn, Bln, 1);
      TanggalBaru := IncDay(TanggalBaru,-1);
      writeln('Akhir bulan ini tanggal (IncMonth) ', DateToStr(TanggalBaru));

      readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

Fungsi Waktu EndOfAMonth 2018-11-02T12:04:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer