怎么判断一个月有多少天？？？——————在线等待！！！！急急急啊！！！！！

Question

大家好！！！     在Delphi 中怎么判断一个月有多少天？？？？？？？？？？？？？？？？？？？？？？在线等待

Answer 1

首部 procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word); $[SysUtils.pas功能 分解日期为年、月、日说明 <NULL>参考 function SysUtils.DecodeDateFully例子///////Begin DecodeDateprocedure TForm1.Button1Click(Sender: TObject);varYear, Month, Day: Word;beginDecodeDate(Date, Year, Month, Day);SpinEdit1.Value := Year;SpinEdit2.Value := Month;SpinEdit3.Value := Day;end;///////End DecodeDate

Answer 2

DaysInMonth function
Returns the number of days in the month of a specified TDateTime value.UnitDateUtils

Answer 3

DaysInAMonth(const AYear, AMonth: Word): Word;DateUtils单元中