Разделить дату на год,месяц, день

[Avalonix]

Приветствую. Вопрос очень простой, но через поиск не нашел. Необходимо разделить системную дату на год,месяц и число. Знаю есть процедура DecodeDatа, но как им пользоваться не знаю. Цель- в один DBEdit поместить число, в другой месяц и третий год соответстввенно.

[N!ckeL]

FormatDateTime('yyyy', date()); -год (2008)
FormatDateTime('mmmm', date()); -месяц (май)
FormatDateTime('dd', date()); -число (27)

другой формат:
FormatDateTime('yy', date()); -год (08)
FormatDateTime('mm', date()); -месяц (05)
FormatDateTime('dddd', date()); -число (вторник)

[Avalonix]

В каком типе данных выйдут значения?
yy,mmm,,ddd - это переменные куда лягут значения?

[D-mon]

Var s:string;
s:=DateToStr(now);
Edit1.Text:=Copy(s,1,pos('.',s)-1); delete(s,1,pos('.',s));
Edit2.Text:=Copy(s,1,pos('.',s)-1); delete(s,1,pos('.',s));
Edit3.Text:=s;

[N!ckeL]

Функция вернёт строку:

Edit1.Text:=FormatDateTime('yyyy', date());// -год (2008)
Edit2.Text:=FormatDateTime('mmmm', date());// -месяц (май)
Edit3.Text:=FormatDateTime('dd', date());// -число (27)

[Avalonix]

Сообщение от D-mon

Var s:string;
s:=DateToStr(now);
Edit1.Text:=Copy(s,1,pos('.',s)-1); delete(s,1,pos('.',s));
Edit2.Text:=Copy(s,1,pos('.',s)-1); delete(s,1,pos('.',s));
Edit3.Text:=s;

если можно поясните хоть одну строку. просто с Copy не работал

[Avalonix]

В целом понятно. Всем большое спасибо!!!

[N!ckeL]

p.s.:чем FormatDateTime не нравится?

copy копирует участок строки, 1 параметр строка с которой копировать, 2 параметр с какого символа копировать, 3 параметр сколько символов копировать

[D-mon]

copy(строка откуда копировать, начиная с символа, заканчивая чимволом включительно)
pos(подстрока, строка) - ищет первое вхождение подстроки в строку и возвращает позицию (н.п. pos('.','12.12.2008') = 3)
delete(строка откуда удалять, начиная с символа, заканчивая чимволом включительно)

[Avalonix]

Все устраивает!!! Еще раз большое спасибо!