• 全部
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
  • 问答

一个类型转换问题,请各位哥哥赐教!

handsomeI 2003-09-23 01:28:51
QZdate : string;(值为2002.09.20-2003.09.2)
qyear,qmonth,qday,zyear,zmonth,zday:word;(分解出的起止日期)
Qdate, Zdate:TDate;

qyear:=strtoint(copy(QZdate,1,4));
qmonth:=strtoint(copy(QZdate,6,2));
qday:=strtoint(copy(QZdate,9,2));
zyear:=strtoint(copy(QZdate,12,4));
zmonth:=strtoint(copy(QZdate,17,2));
zday:=strtoint(copy(QZdate,20,2));
Qdate:=EncodeDate(qyear,qmonth,qday);
Zdate:=EncodeDate(zyear,zmonth,zday);

为什么组合出的Qdate值为37519而不是我需要的日期型的20020920,
Zdate的值为37866而不是20030902,请教了!!!
...全文
45 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
FrameSniper 2003-09-23
哈哈哈哈,不用了,你把你的帖子都结了就OK了!
回复
handsomeI 2003-09-23
谢谢你,你是我的偶像!!!那天带你去逛女澡堂!!
回复
FrameSniper 2003-09-23
procedure TForm1.Button2Click(Sender: TObject);
var
QZDate : String;
QYear,QMonth,QDay,ZYear,ZMonth,ZDay : Word;
QDate,ZDate : TDate;
begin
QZDate:='2002.09.20-2003.09.2';
QYear:=StrToInt(Copy(QZdate,1,4));
QMonth:=StrToInt(Copy(QZdate,6,2));
QDay:=StrToInt(Copy(QZdate,9,2));
ZYear:=StrToInt(Copy(QZdate,12,4));
ZMonth:=StrToInt(Copy(QZdate,17,2));
ZDay:=StrToInt(Copy(QZdate,20,2));
QDate:=EncodeDate(QYear,QMonth,QDay);
ZDate:=EncodeDate(ZYear,ZMonth,ZDay);
ShowMessage(DateToStr(QDate));
ShowMessage(DateToStr(ZDate));
end;

-------------------------------------------------------------

这位老兄偶实在不知道为什么你的这些代码到了我这里就没有一个是错误的(上次就是,这次还是)!莫名其妙!
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4892

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2003-09-23 01:28
社区公告
暂无公告