Membuat Program Masa Aktif

// Membuat Program Masa aktif

// Program masa aktif adalah masa aktif yang diambil dari tanggal sekarang
// dikurangi dengan tanggal yang sudah ditentukan ...

// Seperti dibawah ini masukkan kode di event create ..



procedure TForm1.FormCreate(Sender: TObject);
Var
a,b :tdate ;     c:real;
begin

a := StrToDate(FormatDateTime('mm/dd/yyyy' ,now)) ;  
b := Strtodate('11/23/2015');
c := b - a;

if c<0 then  begin

Showmessage('Masa Aktif Telah Habis');
close ;

end else showmessage('Masa aktif anda Sisa ' + floattostr(c) );

end;


// variabel a adalah data yang diambil dari masa sekarang ...
// variabel b adalah data yang ditentukan ...
// sedangkan c hasil kurang dari data yang ditentukan - data sekarang