急！大家帮忙：怎样得到某个月的天数？

[iloveyan]

[m_leaner]

今天16号+？天=下个月1号；
月的天数=今天的号吗+？天-1；
function GetMonthday:integer;
var
i,today:integer;
temp:Tdatetime;
begin
today:=inttostr(fotmatdatetime('d',now()));
for i:=0 to 31 do begin
temp:=now();
temp:=temp+1;
if inttostr(formatedatetime('d',temp))=1 then break;
end;
result:=today+i-1;
end;

[m_leaner]

比较土，哈哈

[m_leaner]

好象跑题了，不过原理都一样。取每个月的1号，+i,到下个月1号，循环的次数减一，your wanted

[qiubolecn]

d6 下

uses
dateutils

函数
daysinamonth

[suny_2001]

function TForm1.DaysInMonth(ADate:TDateTime):Integer;
var
MyMonth,MyYear,MyDay: Word;
MyDayTable:TDayTable;
tmpBool : Boolean;
begin
DecodeDate(ADate, MyYear,MyMonth, MyDay);
tmpBool := IsLeapYear(MyYear);
MyDayTable := MonthDays[tmpBool];
Result := MyDayTable[MyMonth];
end;

procedure TForm1.Button3Click(Sender: TObject);
var
MyDate : TDateTime;
tmpStr : String;
tmpInt : Integer;
begin
MyDate :=strtodate('02/10/2002');//在这里可以输入你的日期
tmpStr := FormatDateTime('mmmm yyyy',MyDate);
tmpInt := DaysInMonth(MyDate);
ShowMessage(tmpStr + '有 ' + IntToStr(tmpInt) + '天');
end;

[suny_2001]

问题解决了