publicunit.pas

来自「学校里做课程设计的东西,在delphi环境下运行,采用Sql2000数据库」· PAS 代码 · 共 18 行

unit PublicUnit;

interface

uses
  SysUtils ;

  function CalTodayDate:string;

implementation

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