publicunit.~pas

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

unit PublicUnit;

interface

uses
  SysUtils ;

  function CalTodayDate:string;

implementation

function CalTodayDate:string;
var
  today,year,month,day :string;
begin
   today:=DateToStr(Date);      //  2003-1-1
   year:=today[1]+today[2]+today[3]+today[4];
   if today[7]='-' then
   begin
     month:='0'+today[6];
     if length(today)=8 then
       day:='0'+today[8]
     else
       day:=today[8]+today[9];
   end
   else begin
          month:=today[6]+today[7];
          if length(today)=9 then
             day:='0'+today[9]
          else
             day:=today[9]+today[10];
        end;
  CalTodayDate:=year+month+day;
end;
end.