delphi里計算單月的天數 

--------------------------------------------------------------------------------

2008-04-12 09:50:33　標簽：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;