阅读572 返回首页    go 阿里云 go 技术社区[云栖]

Delphi 相隔月份计算

function myIncMonth(sdt:TDateTime; nmonth : integer):TDateTime;
var Year, Month, Day: Word;
begin
  result := sdt;
  Year := YearOf(sdt);
  Month := MonthOf(sdt);
  Day := DayOf(sdt);
  IncAMonth(Year, Month, Day, nmonth);
  result := EncodeDateTime(Year, Month, Day, 0, 0, 0, 0);
end;

最后更新：2017-05-07 07:57:20

  上一篇：go ECS服务器集群
  下一篇：go 史上最全的Java新手问题汇总