publicunit.pas

学校里做课程设计的东西,在delphi环境下运行,采用Sql2000数据库

unit PublicUnit;

interface

uses
  SysUtils ;

  function CalTodayDate:string;

implementation

function CalTodayDate:string;
begin
  ShortDateFormat:='yyyymmdd';
  CalTodayDate:=DateToStr(Date);
end;
end.