求援:一个简单问题希望高手帮忙。

liping3388 2003-08-22 05:00:05
我想设计一个窗口,包含有三个文本框分别为: edit1,edit2,edit3;
edit1为一个历史时间(年月日),edit2为当前时间,edit3为edit1和edit2之间的相差的天数。不知该如何做求高手指点。
...全文
21 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
hiflower 2003-08-22
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender:TObject);//点击按钮时进行转换
begin
Edit3.Text:=IntToStr(DaysBetween(Date,StrToDate(Edit2.Text)))
end;
procedure TForm1.Timer1Timer(Sender:TObject); //放一个定时器控件,间隔为 1000ms
begin
Edit2.Text:=DateToStr(Date);
end;
yesxwl 2003-08-22
  • 打赏
  • 举报
回复
Edit1.text:=dateTimeTostr(date1);
edit2.text:=DateTimeTostr(date);
Edti3.Text:=IntTostr(DaysBetween(Date1,Date));

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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