盒子论坛 v2.1

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses DateUtils;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text :=datetimetostr(DateTimePicker1.DateTime);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.Text :=datetimetostr(DateTimePicker1.DateTime);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
a,c:TDateTime;
b:integer;
begin
a:=StrToDateTime(edit1.Text);
c:= StrToDateTime(edit2.Text);
b:=DaysBetween(a,c);
edit3.Text :=inttostr(b);
end;

end.

----------------------------------------------

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/10/19 16:15:24

3楼：

2003-10-19 20:17:34
2003-10-28 20:17:34
----------------------------------------------

信息

登陆以后才能回复