delphi里计算单月的天数

function TDlg_FSProcess.GetCurrDay(CurrDate: TDateTime): Integer;
var
  Year,Month,Day:word;
  TempDate   :   TDateTime;
begin
  DecodeDate(CurrDate,Year,Month,Day);
  if Month=12 then
    Result := 30
  else
  begin
    TempDate   :=   EncodeDate(Year,Month+1,1)-1;
    DecodeDate(TempDate,Year,Month,Day);
    Result   :=   Day;
  end;
end;

转载于:https://blog.51cto.com/bigpower/71177