再请教关于日期型的问题,实际上是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;