用什么函数得到上个月此时？?

Question

用什么函数得到上个月此时？?  返回为Tdatetime类型

Answer 1

DateUtils单元里有很多关于日期的函数，你自己找找吧。

Answer 2

要得到上月此时，自己写一个函数不就行了：
function GetPriMonth: tdatetime;
var
  wYear, wMon, wDay: word;
begin
  decodedate(date, wyear, wmon, wday);
  if wmon = 3 then
    if wyear mode 4 = 0 then
      result := date - 29
    else
      result := date - 28
  else if wmon mod 2 = 0 then
    result := date - 31
  else
    result := date - 30;
end;

Answer 3

如果你还要时间值的话，把date改为now即可。