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:
{             http://opxbit.web.id           }

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function SelisihTanggal(TglOld,TglNew: TDate): Integer;
begin
  Result:= Trunc(TglNew - TglOld);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= IntToStr(SelisihTanggal(DateTimePicker1.Date, DateTimePicker2.Date));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker2.Date:= Now;
end;

end.

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;
  With dm_pinjam.qu_pinjam do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_pinjam');
    sql.Add('order by urut desc');
    Open;
    if dm_pinjam.qu_pinjam.RecordCount > 0 then
    begin
    First;
    c := copy(dm_pinjam.qu_pinjamurut.Value,1,5);
    dm_pinjam.qu_pinjam.Append;
    t := StrToInt(c)+1;
    c := FormatFloat('00000',t);
    p := c;
    ed_kode_pinjam.Text :=p;
    ed_urut.Text :=p;
    end else
    begin
    dm_pinjam.qu_pinjam.Append;
    ed_kode_pinjam.Text :='00001';
    ed_urut.Text :='00001';
  end;
end;
end;

Read More