Edit1.Text := DateTimeToStr(Now);
其实, TDate型就是Int型
TDateTime是Double型(好像)
它们可以互换~`
其实, TDate型就是Int型
TDateTime是Double型(好像)
它们可以互换~`
解决方案 »
- dxDBTreeView控件(DevExpress DBTree Suite控件)如何判断滚动事件
- fastreport如何设置页眉!
- 小弟初学delphi,有一个程序请朋友们帮我看看!
- 关于面试--GIS软件开发
- 打印纸张A3的控制问题!!
- 问一个Pop菜单问题,希望得到指点,最好不要灌水。解决另单开贴给分...
- fastreport中如何使主项数据与细项数据打印在两页上
- 求救!在程序中怎么使Excel的Sheet增加一行?很急!!!
- 难题??^_^
- 在Delphi中如何使用DOS 命令
- 在一个改写上下文菜单的DLL在98下注册成功但无效,是DLL的原因,还是系统的原因?
- 一个关于sql server的问题!!!急!急!!急!!!别兼少,我就这些分了!
str: string;
tmp: Integer;
begin
str := FormatDateTime('yyyy',Date);
edit1.Text := str;
tmp := StrToInt(str);
end;
begin
edit1.text:=timetostr(now);
end;祝:身体健康!