Problem bei der Umwandlug von DateTime in String

Coolman1974 · Beiträge: 38

Hallo zusammen,

ich habe das Problem, das mir die Umwandlung von DateTime in String nicht gelingen will.

Ich bekomme über eine WMI-Abfrage '20051215113543.973428+060' als DateTime-Typ geliefert.

Doch bei DateTimeToStr('20051215113543.973428+060) giebt es einen Fehler (ungültige Gleitkommaoperation).

Hat jemand eine Ahnung wie ich mit diesem Format umgehen muss?

Moderiert von Tino: Titel erweitert.

jasocul · Verfasst: Do 15.12.05 13:10

Was du bekommst ist nicht vom Typ TDateTime:
20051215113543 = 2005 12 15 und noch irgendwas
Die Nachkommastellen habe ich mir jetzt nicht angesehen.
TDateTime ist ein Gleitkommatyp. Dort wird die Zeit ab einem Zeitpunkt angegeben. Dort steht kein Datum im Klartext drin.

Daher kann auch deine Umwandlung nicht funktionieren. Einen kleinen Ansatz habe ich dir ja schon gegeben.

Stefan.Buchholtz · Verfasst: Do 15.12.05 13:10

Dassieht nicht aus wie ein TDateTime. TDateTime ist die Anzahl der Tage seit dem 30.12.1899 - was du da hast, sieht aus wie eine Zahl, die sich einfach direkt aus Datum und Uhrzeit zusammengesetzt ist. Wäre 15.12.2005 11:35:43 plausibel? Dann musst du die Zahl selbst zerlegen - sollte ja nicht so schwierig sein.

Stefan

_________________
Ein Computer ohne Windows ist wie eine Schokoladentorte ohne Senf.

Coolman1974 · Beiträge: 38

Ja, das ist ja schon klar.

Der Typ den ich bekomme ist aber definitiv DateTime.

Schau mal hier "CreationDate" msdn.microsoft.com/l...mi/win32_process.asp

Hier wird es als DateTime deklariert.

????

Coolman1974 · Beiträge: 38

Aber was bedeutet dann "973428+060" ???

Stefan.Buchholtz · Verfasst: Do 15.12.05 13:37

Schaust du hier: msdn.microsoft.com/l...wmi/cim_datetime.asp

Stefan

_________________
Ein Computer ohne Windows ist wie eine Schokoladentorte ohne Senf.

jasocul · Verfasst: Do 15.12.05 13:41

Das Format DateTime vom MS hat nichts mit dem von Delphi zu tun. Dort heißt es ja auch TDateTime. :wink:

Coolman1974 · Beiträge: 38

OK, alles klar !!!

Habs nun so gelöst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

aTemp := quProzess.FieldByName('CreationDate');

aDate := copy(aTemp, 1, 4);
aDate := aDate + '.' + copy(aTemp, 5, 2);
aDate := aDate + '.' + copy(aTemp, 7, 2);

aTime := copy(aTemp, 9, 2);
aTime := aTime + ':' + copy(aTemp, 11, 2);
aTime := aTime + ':' + copy(aTemp, 13, 2);

aDateTime := aDate + ' - ' + aTime;

Danke an alle !!!

Moderiert von raziel: Delphi-Tags hinzugefügt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme