Encode(year,month,day)
或者
copy(formatDateTime('yyyymmdd',now),1,5,2);
或者
copy(formatDateTime('yyyymmdd',now),1,5,2);
解决方案 »
- IdTCPClient1发IdTCPServer1问题.
- 急 !!怎样把Form1中edit控件中的值传给Form2中edit控件中
- 请教TStoredProc用法
- 如何在鼠标单击stringgrid中某一格时读出这个格中的数据?急
- [在线等待]一个在简单不过的问题.帮忙解决
- 重分求取Rabin-Miller算法源码或Lehmann算法源码!!!!!!!!!!!!!!
- 紧急问题,望各位高手指教
- adotable设了master/detail 如何取消,我要对adotable使用filter 100分
- 本地文件数据库求教
- 无法调试
- 连接Acess数据库为何报错
- ServerSocket如何只接收一个ClientSocket连接?
Year,Month,Day:word;
Present: TDateTime;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
...
end;