[novv75]

Привет!!!
Подскажите как разложить дату на состовляющие
т.е день отдельно месяц отдельно и год отдельно
и получить данные в формате string или integer.
Спасибо!

[M.A.D.M.A.N.]

Дата передается целым числом до точки, тип Double после точки идет время.
12/06/2002 т.е число будет выглядеть как 12062002, далее тебе необходимо получить нужное тебе число.

Код:

var temp:string;
date:TDate;
day,month,year:string;
begin
  date:=StrToDate('12/06/2002');
  temp:=DateToStr(Date);
  Month:=copy(temp,1,2);
  Day:=Copy(Temp,3,2);
  Year:=Copy(Tmp,6,2);
end;

[lmikle]

еще проще - есть функция decodeDate:

Код:

var
  Day, Month, Year : WORD;
begin
  DecodeDate(Date,Year,Month,Day);
end;