Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure Torder_form.date2Click(Sender: TObject);
- var d3: TDateTime;
- begin
- d3:=date2.date - date1.date;
- showmessage(datetostr(d3));
- end.`
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement