怎么给datetimepicker控件加上指定的月数,正确的显示日期,

pcxxx 2005-11-20 11:03:12
怎么给datetimepicker控件加上指定的月数,正确的显示日期,该控件有没有这个功能呀,怎么实现,要自己手动实现吗,如果自己手动实现该怎么做呢,自己弄了半天也不行呀
...全文
172 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
madyak 2005-11-21
  • 打赏
  • 举报
回复
function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;
pcxxx 2005-11-21
  • 打赏
  • 举报
回复
不是那么简单吧,比如我想加7或26个月(这个月数由用户输入的),我想还应该考虑天数的问题,有月30,有月31,等呀,有什么比较简单的方法吗
老之 2005-11-20
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var year,month,day:word;
begin
DecodeDate(DateTimePicker1.Date,year,month,day);
if month=12 then
begin
year:=year+1;
month:=0;
end;
DateTimePicker1.Date:=EncodeDate(year,month+1,day); //月数加1
end;
madyak 2005-11-20
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
begin
DateTimePicker2.DateTime:=VarToDateTime('1996-01-01')
end;
madyak 2005-11-20
  • 打赏
  • 举报
回复
procedure TForm1.FormCreate(Sender: TObject);
begin
DateTimePicker1.DateTime:=Now;
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧