怎样给TDataTime变量同时赋年月日时分秒?EncodeTime和EncodeDate只能赋一部分的值 uses DateUtils;//..........begin {.. := }EncodeDateTime(2001, 12, 6, 12, 12, 12, 12);end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var Present:TDateTime; Year, Month, Day: Word;begin Present:= Now; DecodeDate(Present, Year, Month, Day); DecodeTime(Present, Hour, Min, Sec, MSec); lbDate.Caption:=IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(Day)+'日'; lbTime.Caption:=IntToStr(Hour)+':'+IntToStr(Min)+':'+IntToStr(Sec);end; sorry,最近睡觉少,头老发昏,爱出错。var Present:TDateTime; Year, Month, Day,Hour,Min,Sec,Msec: Word;begin Present:= Now; DecodeDate(Present, Year, Month, Day); DecodeTime(Present, Hour, Min, Sec, MSec); lbDate.Caption:=IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(Day)+'日'; lbTime.Caption:=IntToStr(Hour)+':'+IntToStr(Min)+':'+IntToStr(Sec);end; StrToDateTime(Format('%.2d/%.2d/%.2d %.2d:%.2d:%.2d', [月, 日, 年 mod 100, 时, 分, 秒] ));如果不行, 把串的格式改一下。 FastReport的代码,请高手分析 完了,裤衩不保,郁闷-_-!!! 请问数组可以改变长度吗?比如我定义一动态数组,setLength为100,实际需要中可能不只100个元素 请问Dev cxGrid里面的数值字段怎么去掉前面的 金额符号?谢谢! 大家计论一下三层的事务控制问题,三层高手请进!! 怎样将文本型数据转化成double型数据 ===问一个有关空字段的问题==== 如何画出空心效果的文字 关于B/S的问题!!!!!! 在SQL SERVER中要建一张表??? 关于报表打印小问题 我要一个如QQ的菜单控件(我的好友,坏名单,陌生人)等,或类似的
Present:TDateTime;
Year, Month, Day: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
DecodeTime(Present, Hour, Min, Sec, MSec);
lbDate.Caption:=IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(Day)+'日';
lbTime.Caption:=IntToStr(Hour)+':'+IntToStr(Min)+':'+IntToStr(Sec);
end;
Present:TDateTime;
Year, Month, Day,Hour,Min,Sec,Msec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
DecodeTime(Present, Hour, Min, Sec, MSec);
lbDate.Caption:=IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(Day)+'日';
lbTime.Caption:=IntToStr(Hour)+':'+IntToStr(Min)+':'+IntToStr(Sec);
end;