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
0 comments:
Posting Komentar