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

发布网友发布时间：2022-05-10 17:32

共3个回答

热心网友时间：2023-10-19 06:23

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

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

热心网友时间：2023-10-19 06:23

//当前
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

热心网友时间：2023-10-19 06:24

frommatdatetime()

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

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