1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| function MyExtractDateTime( Const StrDT: String): TDateTime;
begin
try
if Copy(StrDT, 9,1)=' ' then
result := EncodeDateTime(
StrToInt( Copy( StrDT, 1, 4)),
StrToInt( Copy( StrDT, 5, 2)),
StrToInt( Copy( StrDT, 7, 2)),
StrToInt( Copy( StrDT, 10, 2)),
StrToInt( Copy( StrDT, 12, 2)),
StrToInt( Copy( StrDT, 14, 2)),
0)
else
result := EncodeDateTime(
StrToInt( Copy( StrDT, 1, 4)),
StrToInt( Copy( StrDT, 5, 2)),
StrToInt( Copy( StrDT, 7, 2)),
StrToInt( Copy( StrDT, 9, 2)),
StrToInt( Copy( StrDT, 11, 2)),
StrToInt( Copy( StrDT, 13, 2)),
0);
except
result := 0;
ShowMessage('le paramètre ' + StrDT + ' doit être au format YYYYMMDD HHMNNSS');
end;
end; |
Partager