unit1.~pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Type
  year=2000..2099; //以下定义3个子界类型变量
  month=1..12;
  day=1..31;
var
  y:year;
  m:month;
  d:day;
begin
  y:=StrToInt(Edit1.Text);
  m:=StrToInt(Edit2.Text);
  if (m=2) then
    if ((y mod 400=0)Or(y mod 4=0)And(y mod 100 <>0)) then
      d:=29
    else
      d:=28;
  if ((m=1)Or(m=3)Or(m=5)Or(m=7)Or(m=8)Or(m=10)Or(m=12))then
    d:=31;
  if ((m=4)Or(m=6)Or(m=9)Or(m=11))then
    d:=30;
  Canvas.TextOut(40,105,Edit1.Text+'年'+Edit2.Text+'月有'+IntToStr(d)+'天');


end;

end.