再请教关于日期型的问题,实际上是Word--->String型的转换问题。

馮強 2002-07-15 04:42:42
有如下程序片断,但Word型无法转为String型而通不过。不要说用WordtoStr,这只能转为WordStr型,仍然通不过。请指教。

BeDate:=StrtoDate(trim(Edit1.Text)+'-'+trim(EDit2.Text)+'-'+trim(Edit3.Text));
EnDate:=StrtoDate(trim(Edit4.Text)+'-'+trim(EDit5.Text)+'-'+trim(Edit6.Text));
if EnDate<BeDate then
Application.MessageBox('开始日期必须小于结束日期!','错误:',MB_OK)
else
begin
ReDate:=EnDate-BeDate;
DecodeDate(ReDate,Year,Month,Day);
Edit7.Text:=string(Year)+'年'+String(Month)+'月'+String(Day)+'日';//该行应该如何写类型转换??????
end;
...全文
99 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
johnsonrao 2002-07-16
  • 打赏
  • 举报
回复
Edit7.Text:=FormatDateTime('yyyy年mm月dd日',Date);
AV_15 2002-07-15
  • 打赏
  • 举报
回复
word ----- string 可用:
IntToStr() 函数.
日总是我哥 2002-07-15
  • 打赏
  • 举报
回复
Edit7.Text:=IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(Day)+'日';
日总是我哥 2002-07-15
  • 打赏
  • 举报
回复
Edit7.Text:=IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(Day)+'日';

5,928

社区成员

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

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