StringToDateTime macht murx

[himitsu]

Bei mir XE2/XE3 funktioniert es.

Da du die RTL-Codes besitzt, kannst du aber mal StrToDateTime debuggen und schauen, ob du den Rechenfehler findest.


Was du aber "falsch" machst, ist das dir Delphi deine Variable wegoptimieren könnte, da du sie nie ausliest, sondern immer nur befüllst.

Delphi-Quellcode:

procedure TDlg_Main.BtnTestClick(Sender: TObject);
var
  tmp : Tdatetime;
  aFormat : TFormatSettings;
begin
  tmp := StrToDateTime('21.12.1993 00:09:59'); //Liefert 21.12.1993 00:09:59 und OK
  if temp = 0 then ;  // billiger Hack, im Delphi daran zu hindern diese Variable wegoptimieren zu können (den ganze "nutzlose" IFs optimieren die immernoch nicht weg)

  ...

  tmp := StrToDateTime('1993-12-21 00:10:00', aFormat); // Liefert 21.12.1993 00:09:59 NICHT OK
  if temp = 0 then ;

  tmp := VarToDateTime('1993-12-21 00:10:00')// Liefert 21.12.1993 00:09:59 NICHT OK
  if temp = 0 then ;
end;

[add]
Statt dem IF mal folgendes verwenden, welches zusätzlich noch Millisekunden, Mikrosekunden und sinnloser Weise ein paar Nanosekunden anzeigt.
ShowMessage(FormatDateTime('dd.mm.yyyy hh:mm:ss.zzz', tmp) + StringReplace(Format('.%7.3n', [Frac(tmp * MSecsPerDay) * 1000]), ' ', '0', [rfReplaceAll]));

[Sergej_Molotov]

Delphi-Quellcode:

function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean;
var
  Pos: Integer;
  NumberPos: Integer;
  BlankPos, LastBlankPos, OrigBlankPos: Integer;
  LDate, LTime: TDateTime;
  Stop: Boolean;
begin
  Result := True;
  Pos := 1;
  LTime := 0;

  // jump over all the non-numeric characters before the date data
  ScanToNumber(S, Pos);

  // date data scanned; searched for the time data
  if ScanDate(S, Pos, LDate) then
  begin
    // search for time data; search for the first number in the time data
    NumberPos := Pos;
    ScanToNumber(S, NumberPos);

    // the first number of the time data was found
    if NumberPos < Length(S) then
    begin
      // search between the end of date and the start of time for AM and PM
      // strings; if found, then ScanTime from this position where it is found
      BlankPos := Pos - 1;
      LastBlankPos := BlankPos;
      Stop := False;
      while (not Stop) and (BlankPos < NumberPos) do
      begin
        // blank was found; scan for AM/PM strings that may follow the blank
        if (BlankPos > 0) and (BlankPos < NumberPos) then
        begin
          Inc(BlankPos); // start after the blank
          OrigBlankPos := BlankPos; // keep BlankPos because ScanString modifies it
          Stop := ScanString(S, BlankPos, TimeAMString) or
                  ScanString(S, BlankPos, 'AM') or
                  ScanString(S, BlankPos, TimePMString) or
                  ScanString(S, BlankPos, 'PM');

          // ScanString jumps over the AM/PM string; if found, then it is needed
          // by ScanTime to correctly scan the time
          BlankPos := OrigBlankPos;
        end
        // no more blanks found; end the loop
        else
          Stop := True;

        // search of the next blank if no AM/PM string has been found
        if not Stop then
        begin
          LastBlankPos := BlankPos;
          BlankPos := PosEx(' ', S, LastBlankPos);
        end;
      end;

      // loop was forcely stopped; check if AM/PM has been found
      if Stop then
        // AM/PM has been found; check if it is before or after the time data
        if BlankPos > 0 then
          if BlankPos < NumberPos then // AM/PM is before the time number
            Pos := BlankPos
          else
            Pos := NumberPos // AM/PM is after the time number
        else
          Pos := NumberPos
      // the blank found is after the the first number in time data
      else
        Pos := NumberPos;

      // get the time data
      Result := ScanTime(S, Pos, LTime);

      // time data scanned with no errors
      if Result then
        if LDate >= 0 then
          Value := LDate + LTime // Hier wird 21.12.1993 + 30.12.1899 00:10:00 = 21.12.1993 00:09:59
        else
          Value := LDate - LTime
    end
    // no time data; return only date data
    else
      Value := LDate;
  end
  // could not scan date data; try to scan time data
  else
    Result := TryStrToTime(S, Value)
end;

Sieht der Source bei euch auch so aus???