Hallo,
ich zerbeche mir schon seit einiger Zeit den Kopf an einem Problem. Da mein Programm noch mit der guten, alten BDE arbeitet, jedoch nicht jeder der mein Prog hat, einfach so die Werte verarbeiten kann, habe ich ein kleines Tool geschreiben, das jeden Datensatz in Excel schreibt (somit kann jeder damit arbeiten, etc.). Aber in der DB sind wirklich ssseeehhhrrrr viele Datensätze, wenn ich das Prog durchlaufen lasse, dauert es fast 15min (!), bis alles in Excel ist. Es nervt jedoch etwas, wenn mann immer wieder warten muss, obwohl sich vllt. nur ein paar Datensätze ändern. Daher lese ich aus der vorhandenen Exceldatei den letzten Datensatz aus (Datum und Zeit). Mit Table1.FindKey möchte ich jetzt mein Prog auf den nächsten, in der Exceldatei noch nicht vorhandenen Datensatz springen lassen. Das funktioniert mit dem Datum bis jetzt. Allerdings hat Excel die doofe Gewohnheit, den bekommenen String (von einem Datensatz das Datum) in ein Benutzerdefiniertes Datum umzuwandeln (aus '10:27:41' wird '10:27:41 AM'. Wenn ich nun mein Prog die Exceldatei auslesen lasse (nach Datum und Zeit), findet er korrekt das Datum, die Zeit allerdings als Wert (0,4.....). Und hier tritt nun der Fehler auf, das er es in der DB nicht findet (wie auch?!). Aber wie soll ich den erhaltenen Wert nun umwandeln? StrToDate etc. funzt nicht!

Wenn ich richtig verstanden habe, brauchst du nur die ersten 8 Zeichen aus dem dem Datumstring (s).
Den Rest wirst du mit

delete(s,9,3) los.

Das mit dem Delete funktioniert zwar, aber ich hänge immer noch ein bisschen.

zusammenfalten · markieren

Delphi-Quellcode:

//Bisheriger Code:

 SDatum := VarToStr(Excel.Cells[e, 1].Value);
 SZeit := VarToStr(Excel.Cells[e, 2].Value);

 delete(SZeit, 1, 2);
 delete(SZeit, 9, 7);
 StrToDate(SZeit);
 //ShowMessage(SDatum + ', ' + SZeit);

 Table1.FindKey([SDatum, SZeit])

Beim Date hängt es, da der Wert, den ich bekomme kein gültiges Datum ist.

Was steht denn letztendlich in SZeit drin?

Hallo,

Zitat von "ByTheTime:

Beim Date hängt es, da der Wert, den ich bekomme kein gültiges Datum ist.

Mal eine Frage : Handelt es sich bei Deinem OS um Windows 7 mit Multilanguage User Interface (MUI), so wie es von Microsoft für einige Großkunden abgefüllt wird ?

Gruß

Question_mark

In Excel geht 11:24:35 rein: Excel.Cells[i + c, 2].Value := Table1Zeit.Value; In Excel steht das dann als 11:24:35 PM.
Aus Excel heraus mit SZeit := (Excel.Cells[e, 2].Value); kommt es als: 0,435295749386401(nur Bsp.)

Nach dem Delete:

markieren

Delphi-Quellcode:

 delete(SZeit, 1, 2);
 delete(SZeit, 9, 7);

steht dann da: 43529574

@Questin_mark: Gute frage, kann ich mir das iwo anschauen? Habe Win7 HP 64bit. Denke nicht, das MUI dabei ist. Sollten nur Englisch und Deutsch sein.

Vielleicht hilft dies weiter

http://www.delphipraxis.net/142643-p...it-delphi.html