publicunit.pas

来自「用delphi编的房屋租赁管里系统」· PAS 代码 · 共 18 行

unit PublicUnit;

interface

uses
  SysUtils ;

  function CalTodayDate:string;

implementation

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