Membentuk Tanggal dari String Menggunakan EncodeDate

EncodeDate digunakan untuk membentuk data bertipe TDateTime dari string. Dengan format:

EncodeDate(tahun, bulan, hari);

dengan tahun, bulan dan hari dalam tipe word.

Kenapa why? Kenapa membutuhkan fungsi ini? Saya biasanya menggunakan fungsi ini untuk membatasi data. Program transaksi yang dipakai dalam beberapa waktu, tentunya bisa mempunyai ribuan data. Jika user menginginkan menampilkan data, maka programmer harus membatasinya. Misal, di program bawah ini, saya menggunakan fungsi EncodeDate untuk menampilkan data tanggal pada tanggal satu di bulan pilihan sampai hari ini.

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, ComCtrls; type TForm1 = class(TForm) DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; procedure FormCreate(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var Tahun, Bulan, Hari : Word; TanggalPertama : TDateTime; begin DecodeDate(Now, Tahun, Bulan, Hari); TanggalPertama := EncodeDate(Tahun, Bulan, 1); DateTimePicker1.Date := TanggalPertama; DateTimePicker2.Date := Now; end; end.

Membentuk Tanggal dari String Menggunakan EncodeDate 2018-12-06T14:14:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer