На форме есть "SpinEdit1" и "DateTimePicker1".
Если изменить значение "DateTimePicker1", то значение в "SpinEdit1" автоматически изменится по формуле: SpinEdit1.Text:= IntToStr(YearsBetween(Date, DateTimePicker1.Date)) – то есть, будет выставлена разница лет между настоящей датой и датой в "DateTimePicker1".
Хотелось бы сделать и обратную связь, что бы при изменении "SpinEdit1" год в "DateTimePicker1" автоматически высчитывался по формуле "Настоящая дата – SpinEdit1". При этом, важно, чтобы день и месяц, которые могли быть выставлены заранее, не сбивались – именно с этим я и не справился.
Буду рад помощи.
Примечание:
Желательно обойтись без переменных.
Примечание:
Всем благо за внимание.
Нашёл свой красивый однострочный способ:
DateTimePicker1.Date:= EncodeDate(YearOf(IncYear (Date, -(StrToInt(SpinEdit1.Text)))), MonthOf(DateTimePicker1.Date), DayOf(DateTimePicker1.Date));
Работает.
Примечание:
Всем благо за внимание.
Нашёл свой красивый однострочный способ:
DateTimePicker1.Date:= EncodeDate(YearOf(IncYear (Date, -(StrToInt(SpinEdit1.Text)))), MonthOf(DateTimePicker1.Date), DayOf(DateTimePicker1.Date));
Работает.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.