Encode(year,month,day)
或者
copy(formatDateTime('yyyymmdd',now),1,5,2);
或者
copy(formatDateTime('yyyymmdd',now),1,5,2);
解决方案 »
- 赚分,让我沉吧~~~
- TSocketConnection 和 office 问题
- 一百元求助调试delphi程序!!!!!
- 一个关于类定义的入门问题
- 第34题): 关于驱动程序编写?
- 更新数据小问题,在线等待
- 请问如何使窗口全屏显示??非常急需,在线等待
- 大家看看,能不能用一条SQL语句,实现找出两个字段的字符串长度不同的记录??100分!
- WriteFile的时候出现Access Denied的错误,怎么办?
- ~~~~~~~~~~~请大家推荐object pascal书籍~~~~~~~~~~~~
- 连接Acess数据库为何报错
- ServerSocket如何只接收一个ClientSocket连接?
Year,Month,Day:word;
Present: TDateTime;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
...
end;