Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: StringToDateTime macht murx

   
    by Sergej_Molotov, 4. Sep 2012
  Um er kurz zu machen, kann man bei mir mit foldendem Code auf eine Falschberechnung auslösen:
  
  
  var
  tmp : TDateTime;
  tmp2: TDateTime;
  begin
  tmp := StrToDateTime('21.12.1993');
  tmp2 := StrToDateTime('30.12.1899 00:10:00');
  if (tmp= 0) or (tmp2 = 0) then;
• Forum: Programmieren allgemein

  AW: StringToDateTime macht murx

   
    by Sergej_Molotov, 4. Sep 2012
  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;
• Forum: Programmieren allgemein

  StringToDateTime macht murx

   
    by Sergej_Molotov, 4. Sep 2012
  Hallo Zusammen,
  
  ich bin gerade über was gestolpert, was ich mir nicht so richtig erklären kann. Folgender Beispielcode:
  
  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