救命,在DELPHI5中,怎么得到当前日期和时间? 日期用formatdatetime('yyyy-mm-dd',now),时间用formartdatetime('hh/ss/mm',now) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 函数now取得当前时间,然后再用date和time转化即可 StatusBar1.Panels[1].Text :='现在是北京时间: ' +DateToStr(date())+' '+TimeToStr(Time()); 比如说你想在edit1中显示当前日期和时间edit1.text := datetostr(date);日期edit1.text := timetostr(time);时间 var Present:TDataTime; Year, Month, Day:word;begin Present:=Now; DecodeDate(Present,year,month,day);//分解出当前年月日 ...end; var year,month,day:word,begin decodedate(now,year,month,day);end; Edit1.Text:=DateToStr(now);Edit2.Text:=TimeToStr(now); up上的都可以了=========================*************************YYYY YYYY*************************========================= DateSeparator := '-'; ShortDateFormat := 'yyyy/mm/dd'; edit7.Text:= DateToStr(Date); TTabSheet的问题!急啊 delphi学习日记----终于在半独立状态下完成了第一个程序 把文件输入数据库的问题 TClientSocket使用Open()连不上服务器的问题,在线等待高手解决! 调试的问题 请大侠们指点迷津,请教编写防火墙的实现思路和相关知识 如何用delphi制作光盘导航?????————急,急,急 TChart 如何控制不让它上下或者左右移动? 再次求助:关于改变DBGrid中某个单元格颜色的问题?? Win98中如何检测串口的振铃事件? 怎样才能让edit中的text靠右或者靠中间? 如何传递文件名,UP有分
+DateToStr(date())+' '+TimeToStr(Time());
edit1.text := timetostr(time);时间
Present:TDataTime;
Year, Month, Day:word;
begin
Present:=Now;
DecodeDate(Present,year,month,day);//分解出当前年月日
...
end;
begin
decodedate(now,year,month,day);
end;
Edit2.Text:=TimeToStr(now);
=========================
*************************YYYY YYYY*************************
=========================
ShortDateFormat := 'yyyy/mm/dd';
edit7.Text:= DateToStr(Date);