datetimeselectedfrm.pas

来自「这个是个简单的关于出票申请的处理」· PAS 代码 · 共 63 行

unit DatetimeSelectedFrm;

interface

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

type
  TFormDatetimeSelected = class(TForm)
    Panel1: TPanel;
    StartDate: TDateTimePicker;
    StartTime: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    EndDate: TDateTimePicker;
    EndTime: TDateTimePicker;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
    class function ShowDateTimeForm(var AStartTime, AEndTime: TDateTime): Boolean;
  end;

var
  FormDatetimeSelected: TFormDatetimeSelected;

implementation

{$R *.dfm}

{ TFormDatetimeSelected }

class function TFormDatetimeSelected.ShowDateTimeForm(var AStartTime,
  AEndTime: TDateTime): Boolean;
var
  sStartDateTime, sEndDateTime: string;
begin
  Result := False;
  with TFormDatetimeSelected.Create(nil) do
  try
    StartDate.DateTime := Now;
    StartTime.DateTime := Now;
    EndDate.DateTime := Now;
    StartTime.DateTime := Now;
    if ShowModal = MROK then
    begin
      sStartDateTime := DateToStr(StartDate.Date) + ' ' + TimeToStr(StartTime.Time);
      sEndDateTime := DateToStr(EndDate.Date) + ' ' + TimeToStr(EndTime.Time);
      AStartTime := StrToDateTimeDef(sStartDateTime, Now);
      AEndTime := StrToDateTimeDef(sEndDateTime, Now);
      Result := True;
    end;
  finally
    Free;
  end;
end;

end.