unit1.~pas

来自「非常丰富的delphi小程序,相信会对你有帮助」· ~PAS 代码 · 共 60 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, Grids, DBGrids, DB, ADODB, Spin,
  DBTables;

type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
TS:Double;
begin
DateTimePicker1.Time:=StrToTime('00:00:00'); //同步两个DateTimePicker控件的时间
DateTimePicker2.Time:=StrToTime('00:00:00');
TS:=DateTimePicker1.Date-DateTimePicker2.Date; //两个日期类型的数据进行相减
TS:=int(TS); //对TS的实型变量进行取整
Edit1.Text:=floattostr(TS);

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
TS:Double;
begin
DateTimePicker1.Date:=Date; //同步两个DateTimePicker控件的日期
DateTimePicker2.Date:=Date;
DateTimePicker1.Time:=StrToTime('03:00:00'); // 使两个DateTimePicker控件的时间相差3小时,用户可以设定不同的时差来检测计算结果
DateTimePicker2.Time:=StrToTime('00:00:00');
TS:=DateTimePicker1.Date-DateTimePicker2.Date;
Edit2.Text:=floattostr(TS);
end;

end.