Delphi Enter the month to determine the number of days, determine the number of years and months to determine the month

delphi Input Month judgment days

Need to quote dateutils;

Unit Unit1;

Interface

Uses
Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,
Dialogs,dateutils, Stdctrls;

Type
TForm1 = Class (Tform)
Label1:tlabel;
Label2:tlabel;
Label3:tlabel;
Edit_nian:tedit;
Edit_yue: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);
Begin
label3.caption: = IntToStr (Daysinamonth (Strtoint (Edit_nian.text), Strtoint (Edit_yue.text)));
End

End.

Delphi Enter the month to determine the number of days, determine the number of years and months to determine the month