var
tempint,i,j,k,l:integer;
tempstr,daystr,monthstr,yearstr:string;
datetemp:array[0..2] of string ;
begin
j:=0;
k:=0;
tempstr:=trim({在这里输入19 May 2006 })+' ';
tempint:=length(tempstr);
for i:=1 to tempint do
begin
if tempstr[i]=' ' then
begin
for l :=j to i do
begin
datetemp[k]:=datetemp[k]+tempstr[l];
end;
j:=i;
k:=k+1;
end;
end;
daystr:=trim(datetemp[0]);//得到日
monthstr:=LowerCase(trim(datetemp[1]));//得到月
yearstr:=trim(datetemp[2]);//得到年
//将月转换为数字----自己写了
end;