日期计算问题，送分！！！！！！！！！！！！！

Question

各位大侠：
  如何取得指定日期的上一天，（不是但前日期）
=====================================
如：指定日期为：2007-12-31 返回：2007-12-30
========================================
先谢了！！！！！！
 

Answer 1

你的内容不日期型的吧。
先strtodate('2007-12-01')然后再－１如这样
formatdatetime('yyyy-mm-dd',strtodate('2007-12-01')-1);

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  date:Tdatetime;
  timestamp: Ttimestamp;
  str: string;
begin
  date:=strtodate('2007-12-31');
  timestamp:=DateTimeToTimeStamp(date);
  dec(timestamp.Date);
  date:=timestamptodatetime(timestamp);
  str:=datetostr(date);
  showmessage(str);
end;

Answer 3

uses DateUtils;IncDay(Date, -1);

Answer 4

uses DateUtils;IncDay(StrToDate('2007-12-31'), -1);

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  TheDate: string;
  Yesterday: string;
begin
  TheDate := '2007-12-01 ';
  Yesterday := FormatDateTime('yyyy-mm-dd',StrToDate(TheDate)-1);
  ShowMessage(Yesterday);
end;