5,388
社区成员
发帖
与我相关
我的任务
分享对DateEdit赋值
如图所示
想点击按钮，将Edit里的日期赋值给DateEdit,使DateEdit里的值为2009-09-09
DateEdit默认带有日期分隔符 -
请问这个该怎么做?
...全文
请发表友善的回复…
发表回复
hzg134679hzg 2009-10-13
- 打赏
- 举报
DateEdit1.Date := now;
wxsan 2009-10-13
- 打赏
- 举报
这个比较简单
wxsan 2009-10-13
- 打赏
- 举报
思路是：将下面的日期数字分解组合为上面的日期格式；
如果有问题可以到高级群：9642802，找管理员或群里的朋友。
如果有问题可以到高级群：9642802，找管理员或群里的朋友。
wsxcdx 2009-10-13
- 打赏
- 举报
有没有人能说的具体点啊？
hzg134679hzg 2009-10-13
- 打赏
- 举报
Date
wsxcdx 2009-10-13
- 打赏
- 举报
提取之后怎么赋值给DateEdit呢？
hzg134679hzg 2009-10-13
- 打赏
- 举报
DecodeDate
wsxcdx 2009-10-13
- 打赏
- 举报
能看见不？
wsxcdx 2009-10-13
- 打赏
- 举报
看不到图片？
wsxcdx 2009-10-13
- 打赏
- 举报
问题已解决
感谢 beifangke ！
感谢 beifangke ！
happinessdepig 2009-10-13
- 打赏
- 举报
mark
beifangke 2009-10-13
- 打赏
- 举报
DateEdit1.Text:=copy(edt1.Text,1,4)+'-'+copy(edt1.Text,5,2)+'-'+copy(edt1.Text,7,2);
DateEdit1.Date:=StrToDate(copy(edt1.Text,1,4)+'-'+copy(edt1.Text,5,2)+'-'+copy(edt1.Text,7,2));
DateEdit1.Date:=StrToDate(copy(edt1.Text,1,4)+'-'+copy(edt1.Text,5,2)+'-'+copy(edt1.Text,7,2));
