| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/11/21 22:31:25 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 请问各位大哥，我的时间是用的datetimepicker控件，我的减是这样的： edit1.text:=datetostr(date-datetimepicker1.date)来计算年龄的，我通不过，具体该怎么做呢？谢谢了 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/21 22:34:47 | ||||
| 1楼： | 报的什么错? ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/21 22:51:19 | ||||
| 2楼： | TDateTime相当于double的 不过减起来应该是天数 用FloatToStr ----------------------------------------------  充电..........
|
|||||
| 作者： |
|
2003/11/21 23:01:26 | ||||
| 3楼： | 没有报错，只是时间不对，比如同一天相减不为零，好象得1899年12月多少，怎么回事啊 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/21 23:07:37 | ||||
| 4楼： | 不要用这个 datetostr 用 FloatToStr ---------------------------------------------- 充电..........
|
|||||
| 作者： |
|
2003/11/21 23:15:31 | ||||
| 5楼： | 好的，谢谢~但我现在没办法实验，我明天给你答复，不过，同样很谢谢你这么热情 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/22 13:52:07 | ||||
| 6楼： | 虚渺大哥~ 我在机子上试了一下，还是不能达到效果，我看见在SQL中有个函数DATEDIFF（）可以计算两时间差，你能帮我在机子上运行一下吗？我确实不知道怎么做了，哎，想了好久了，你说的用FLOAT也不能通过啊~ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/22 15:03:33 | ||||
| 7楼： | 楼主开了很多贴子，没必要吧，要用DATEDIFF()在sql联机帮助里面搜搜，又有例子。 var CurYear,OneYear,CurMonth,OneMonth,CurDay,OneDay:Word; begin DecodeDate(Date,CurYear,CurMonth,CurDay); DecodeDate(DateTimePicker1.Date,OneYear,OneMonth,OneDay); if CurMonth-OneMonth>0 then ShowMessage(FloatToStr(CurYear-OneYear)+'岁') else if CurMonth-OneMonth<0 then begin ShowMessage(FloatToStr(CurYear-OneYear-1)+'岁') end else begin if CurDay>=OneDay then ShowMessage(FloatToStr(CurYear-OneYear)+'岁') else ShowMessage(FloatToStr(CurYear-OneYear-1)+'岁'); end; end; ---------------------------------------------- 充电..........
|
|||||
| 信息 |
| 登陆以后才能回复 |
