Fungsi Tanggal dan Waktu Now

Fungsi Now dipergunakan untuk mengetahui tanggal dan waktu saat ini. Now akan mengembalikan data dalam bentuk TDateTime.

Kegunaannya? Tergantung kreatifitas:

• Anda dapat mempergunakan untuk menghasilkan primay key suatu record
• Untuk mencegah user memasukkan tanggal lebih dari saat ini.
• Mencegah penggunaan software setelah jangka waktu tertentu
• Dan lain sebagainya.

Jika Anda menggunakan Now di dalam write/writeln, jangan lupa menggunakan DateToStr agar terlihat format tanggalnya, apabila tidak, hanya angka-angka yang muncul. Program dibawah ini mendemokan berbagai macam kegunaan Now:

uses
    SysUtils, DateUtils;
var
   Thn, Bln, Tgl, Jam, Menit, Detik, MiliDetik : Word;
begin
  try
     writeln('Tanpa DateToStr, tanggal akan menjadi ',Now);
     writeln('');
     writeln('JIka memakai DateToStr, Now akan menjadi ',DateToStr(Now));
     writeln('');
     write('Now jika bisa digunakan untuk menghasilkan ');
     DecodeDateTime(Now,Thn, Bln, Tgl, Jam, Menit, Detik, MiliDetik );
     writeln('Primary Key: ',Thn, Bln, Tgl, Jam, Menit,Detik,MiliDetik);
     writeln('');
     writeln('Dengan bantuan DecodeDateTime, Anda bisa mendapatkan:');
     writeln('Tgl: ', Tgl);
     writeln('Bln: ', Bln);
     writeln('Tahun: ', Thn);
     writeln('Jam: ', Jam);
     writeln('Menit: ', Menit);
     writeln('Detik: ', Detik);
     writeln('Milidetik: ', MiliDetik);
     readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

Fungsi Tanggal dan Waktu Now 2018-11-02T08:38:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer