Когда-то, на скорую руку, написал вот такой код:
Код:
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 день