delphi 如何返回日期的函数

对不起，我一开始不明白你的意思。

function getdate(date:string;addmonths:integer):string ;

vardate1,yy,mm:integer;

resultdata:string;

begindate1:=strtoint(date);

yy:=date1 div 100;

mm:=date1-yy*100;

if mm+1>12 then

beginmm:=1;

inc(yy);

endelse

inc(mm);

result:=format('%4d%.2d',[yy,mm]);

end;

1. 打开 delphi7 集成开发环境，在 diaglog 面板中将一个 opendiag1 控件放到默认项目的 form1 窗体中。

2. 在默认项目的 form1 窗体中，放置一个 edit1 控件和两个按钮控件，并设置它们的 captain 属性如下：打开和修改时间。

3. 双击打开按钮，进入onclick事件方式，**如下。

4. 然后双击修改时间按钮，进入onclick事件方法，如下所示。

5. F9运行程序，点击打开按钮选择文件，选择C：，然后点击修改时间弹出文件创建或上次修改的时间。

6、在文件目录中找到文件，比较文件属性时间，得到程序一致，时间成功。

寄过来了，请查收。

可以获得这样的。

2012-06-18 04：06：43 星期一实际上不需要任何三向空格 几行 ** 问题 const weeks： array[1..7] of string =

星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');

procedure : tobject);

begin=formatdatetime('yyyyymmmmdddayhhhournnminutesss 秒',now())

end;