Question

DELPHI 计算月数是不是31天

如 输入12年5月 则计算12年2月1号 到12年5月底有多少天 判断闰年 月的天数

若以下回答无法解决问题，邀请你更新回答

Answer 1

计算天数f示例：

uses DateUtils;

procedure TForm2.Button2Click(Sender: TObject);
var
day1,day2,day3: integer;
begin
//取得 2012/2/1 到 2012/5/1 之间的天数
day1 := DaysBetween(StrToDate('2012/2/1'),StrToDate('2012/5/1'));
//取得 2012年2月的天数
day2 := DaysInAMonth(2012,2);
//直接计算取得 2012/2/1 到 2012/5/1 之间的天数
day3 := Trunc(StrToDate('2012/2/1')) - Trunc(StrToDate('2012/5/1'));
ShowMessage('天数：' + IntToStr(day1) + ',' + IntToStr(day2) + ',' + IntToStr(day3));
end;

追问

还要判断2月的天数 还有5月的天数 ， 我这个年月都是输入的 可以直接EDIT.TEXT/EDIT.TEXT/吗

追答

1. 还要判断2月的天数 还有5月的天数

//取得 2012年2月的天数
day2 := DaysInAMonth(2012,2);

//取得 2012年5月的天数
day2 := DaysInAMonth(2012,5);

2. 我这个年月都是输入的 可以直接EDIT.TEXT/EDIT.TEXT/吗

可以，但输入的时候要注意输入的合法性：比如，月份不能超过12，不能有非数字的其他字符（包括输入中文数字），可能需要用 StrToInt(Edit1.text) 来转换一下。

追问

DaysInAMonth DaysInAMonth 这两个是怎么定义的 我这编译都是未识别 麻烦了

追答

你需要引入

uses DateUtils;

追问

我这个没有这个单元呀 我是DELPHI5

追答

。。。。。。

delphi5，那也太老了吧。建议换delphi7吧

追问

公司都用这版本 没法阿

追答

那你试试这个：

function GetDays(Y, M: Word): Integer;
var
D: word;
ADate: TDateTime;
begin
inc(M);
if M > 12 then
begin
M := 1;
Inc(Y);
end;
D := 1;
ADate := EncodeDate(Y, M, D);
ADate := ADate - 1;
DecodeDate(ADate, Y, M, D);
Result := D;
End;