unit1.~pas

来自「很好地delphi书籍源码」· ~PAS 代码 · 共 63 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    EnterMaskEdit: TMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    LeaveMaskEdit: TMaskEdit;
    Button1: TButton;
    Label3: TLabel;
    RoomFeeEdit: TEdit;
    GuestRG: TRadioGroup;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Days,Enter,Leave:TDateTime;
  RoomFee:Currency;
begin
  Enter:=StrToDateTime(EnterMaskEdit.Text);
  Leave:=StrToDateTime(LeaveMaskEdit.Text);
  if GuestRG.ItemIndex=0 then
  begin
    Days:=Int(Leave)-Int(Enter);
    if (Frac(Leave)>0.5)and(Frac(Leave)<=0.75) then
      Days:=Days+0.5
    else if Frac(Leave)>0.75 then
      Days:=Days+1;
  end else
  if GuestRG.ItemIndex=1 then
  begin
    Days:=Leave-Enter;
    if (Frac(Days)>0.5)and(Frac(Days)<=0.75) then
      Days:=Int(Days)+0.5
    else if Frac(Days)>0.75 then
      Days:=Int(Days)+1
    else
      Days:=Int(Days);
   end;
   RoomFee:=Days*StrToFloat(RoomFeeEdit.Text);
   Caption:=Format('您的住宿时间是:%5.1f 天， 住宿费是%5.0f元 ',[Days,RoomFee]);
end;

end.