Delphi程序:需要把支付年月中的月份自动减去一个月,比如实际支付月是6...

发布网友发布时间：2024-10-02 17:12

共2个回答

热心网友时间：2024-10-19 09:37

用 DateUtils中处理时间的函数啦，请参考 cnblog上万一的delphi ，有人整理成chm了
建议下一份当参考资料
uses DateUtils;

var
t: TDateTime;
t := now;//获取当前时间
t := IncMonth(t, -1);//月份减一
cxMaskEdit2.Text:=FormatDateTime('yyyy',t)+ '-' + FormatDateTime('mm',t)

热心网友时间：2024-10-19 09:37

procedure TForm1.btn5Click(Sender: TObject);
var
sDate: TDateTime;
begin
sDate := wwDBDateTimePicker1.DateTime; //得到日期
sDate := IncMonth(sDate,-1);//月份减一
edt1.Text := DateToStr(sDate);//显示出来
end;

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com