Selisih Tanggal

catatan : buat fungsi tanggal sebagai berikut : function SelisihTanggal(TglOld,TglNew: TDate): Integer;begin  Result:= Trunc(TglNew - TglOld);end;letakkan source code ini pada even onclik tombol hitung   Edit1.Text:= IntToStr(SelisihTanggal(DateTimePicker1.Date, DateTimePicker2.Date));letakkan source code ini pada even form create DateTimePicker2.Date:= Now; source code selengkapnya: {            ...

Read More

NOMOR OTOMATIS

procedure Tfo_list_peminjam.init_otomatis;var n,x,t : integer;    d,m : Word;    h : real;    s,i,p,c : string;    b : boolean;function testing(a,b : Integer):string;begin  //Result := testing(a);  while Length(Result)<b do Result := '0'+Result;end;begin  n := 1;  //m := YearOf(Date);  //d := MonthOf(date);  s := testing(d,2);  i := testing(n,4)+IntToStr(m)+s; ...

Read More