На год раньше

[Askat]

У меня проблема, когда мы затягиваем ASCIIфайл в систему там срок годности карточки показывает 11 месяцев со дня импорта ASCII, а надо 1 год ровно. Скажем в excelесть поле «Дата подачи заявки» столбец АА и с этого поля надо взять эту дату и загнать в ASCIIфайл уже сроком годности в 1 год, точнее в поле «Дата подачи заявки» стоит дата 21.08.2007 и в ASCIIфайл заноситься на год 21.08.2008

В системе есть поле Enrolled (Дата подачи заявки) в эту поле дата заносится с ASCIIфайла в свою очередь в ASCIIфайл из Excel, в Excel’е есть поле Дата подачи заявки (AA) и вот надо с этого поля взять эту дату и поставить в поле «Срок годности» в системе это поле называется Cardexpiry. Я своим говорил, давайте в excel (шаблон) добавлю поле «Срок годности» и туда будете вводить дату окончания (срока годности), а они говорят, что там и так полей много.
И вот как это можно сделать?

[Andrei]

Сообщение от Askat

У меня проблема, когда мы затягиваем ASCIIфайл в систему там срок годности карточки показывает 11 месяцев со дня импорта ASCII, а надо 1 год ровно. Скажем в excelесть поле «Дата подачи заявки» столбец АА и с этого поля надо взять эту дату и загнать в ASCIIфайл уже сроком годности в 1 год, точнее в поле «Дата подачи заявки» стоит дата 21.08.2007 и в ASCIIфайл заноситься на год 21.08.2008

В системе есть поле Enrolled (Дата подачи заявки) в эту поле дата заносится с ASCIIфайла в свою очередь в ASCIIфайл из Excel, в Excel’е есть поле Дата подачи заявки (AA) и вот надо с этого поля взять эту дату и поставить в поле «Срок годности» в системе это поле называется Cardexpiry. Я своим говорил, давайте в excel (шаблон) добавлю поле «Срок годности» и туда будете вводить дату окончания (срока годности), а они говорят, что там и так полей много.
И вот как это можно сделать?

Функция IncYear (DateUtils) примерно так:

var NewDate, OldDate: TDateTime;

NewDate:=IncYear(OldDate,-1);