Zeit aus ini zurück

[Vjay]

Delphi-Quellcode:

function vDateToStr( const date: TDateTime): string;
begin
 DateTimeToString(result, 'yyyy.mm.dd hh:nn:ss', date);
end;

function vStrToDate( const s1: string): TDateTime;
begin
 result:= encodeDateTime( strToIntDef(copy(s1, 1, 4), 0),
                          strToIntDef(copy(s1, 6, 2), 0),
                          strToIntDef(copy(s1, 9, 2), 0),
                          strToIntDef(copy(s1, 12, 2), 0),
                          strToIntDef(copy(s1, 15, 2), 0),
                          strToIntDef(copy(s1, 18, 2), 0), 0);
end;

Ich mache es so, hat den Vorteil, dass es menschenlesbar ist.