Тема: Начинающие
Показать сообщение отдельно
  #2  
Старый 05.03.2013, 11:22
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
  
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию
17-ую строчку замени на:
Код:
if ComboBox1.items.Strings[9]='8 месяцев' then DateTimePicker3.Date := EncodeDate(Y , M+8, D-1)
__________________
Пишу программы за еду.
__________________
Ответить с цитированием