Fungsi Waktu Yesterday

Sudah dapat dilihat dari namanya, fungsi Yesterday akan memberikan waktu kemarin, atau dengan kata lain, sama dengan fungsi Now dikurangi satu hari. Nah, kalau memang "kemarin" bisa didapatkan dengan Now dikurangi satu, kenapa fungsi Yesterday ada?

Jawaban ini tergantung programmernya. Fungsi Yesterday sendiri lebih simpel, jika dibandingkan Anda harus mengurangi Now dengan satu, meskipun sama-sama menghasilkan tipe data TDateTime. Program dibawah ini sebagai ilustrasi saja antara fungsi Yesterday dan fungsi Now

uses
  SysUtils, DateUtils;
begin
  try
    Writeln('Tanggal hari ini ',DateToStr(Now));
    Writeln('Tgl kemarin pakai Inc -1: ', DateToStr(IncDay(Now,-1)));
    Writeln('Tgl kemarin pakai Yesterday: ', DateToStr(Yesterday));
    readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.


Jangan lupa menyertakan unit DateUtils, tempat fungsi-fungsi tanggal ini berada

Fungsi Waktu Yesterday Rating: 4.5 Diposkan Oleh: Good Dreamer

0 comments:

Posting Komentar

Diberdayakan oleh Blogger.