delphi里计算单月的天数.txt

来自「一些重要并且经典的编程实例」· 文本 代码 · 共 25 行

 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;