Question

delphi 中如何用button1实现在label1上显示的格式为 XXXX年XX月XX日 星期X 的日期增加一天？减少一天呢？

Answer 1

日期增加一天减少一天就直接 + 1， - 1就可以了
比如 Now + 1, 就是明天的这个时候， Now - 1 就是昨天的这个时候。

比如tm := Now + 1;
要显示为你所需要的格式使用FormatDateTime('YYYY年MM月DD日 ddd', tm)即可。

Answer 2

//当前
Label1.Caption := FormatDateTime('dddddd',Now) //XXXX年XX月XX日
+' '+FormatdateTime('ddd',now);//星期X
//减一天
Label2.Caption := FormatDateTime('dddddd',Now-1) //XXXX年XX月XX日
+' '+FormatdateTime('ddd',now-1);//星期X
//加一天
Label3.Caption := FormatDateTime('dddddd',Now+1) //XXXX年XX月XX日
+' '+FormatdateTime('ddd',now+1);//星期X

Answer 3

frommatdatetime()