| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как отнять из даты 1 год [D7, WinXP]

brus ©   (2006-06-17 10:06:00) 

в поле Edit есть дата. Нужно отнять из даты  1 год и вставить в другое поле Edit

---

Borisss   (2006-06-17 12:59:00) [1]

Вероятно надо перебирать символы до 2-ой точки. После чего оставшиеся символы и будут - год

---

Юрий Зотов   (2006-06-17 10:15:00) [2]

Edit2.Text := DateToStr(IncYear(StrToDate(Edi1,Text), -1));

---

Наверх