![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Когда-то, на скорую руку, написал вот такой код:
Код:
YY := Copy(XMLList['FileName'], Pos('TE_000024_', XMLList['FileName']) + 10, 4); MM := Copy(XMLList['FileName'], Pos('TE_000024_', XMLList['FileName']) + 14, 2); DD := Copy(XMLList['FileName'], Pos('TE_000024_', XMLList['FileName']) + 16, 2); WorkDate := IncDay(StrToDate(DD + '.' + MM + '.' + YY), -1); Исходная строка (XMLList['FileName']) может принимать следующие значения: TE_000024_20150707 TE_000024_20150707_2 TE_000024_20150707_3 На выходе нужно получить TDateTime, чтоб потом уменьшит дату на 1 день |