Zeit abfragen

[himitsu]

Trunc schneidet den Nachkommateil ab.
TTime und TDateTime haben den Zeitanteil im den Nachkommastellen.

Da TTime ein Fließkommatyp ist, und asTime schon nicht funktioniert, dann kann Trunc nichts verbessern
(nur verschlechtern, siehe erster Punkt)

Ich denke auch mal, daß Time(7) ein inkompatibler Datentyp ist, welcher nicht über asTime auglelesen werden kann,
denn extern sollte es keine Probleme geben, wonach nur noch ein internes Problem bestehen kann.


Time(7) könnte sowas wie ein Unix-Timestamp (sekunden seit irgendwas) als String/Char mit maximal 7 Zeichen sein?

[Klaus01]

Zitat von BillyBoy:

Zeit1 :=ADOQueryKopf.FieldByName('Beginn').AsTime;

.AsTime gibt es leider nicht, .AsDateTime bringt verständlicherweise einen Fehler.

Zitat von BillyBoy:

Es wäre schön, wenn ihr euch mal die Ausgangsfrage ansehen könntet!

Das Feld Beginn ist definiert als time(7).
Das ist kein Character-Zeug, sondern ein reines SQL-Zeitfeld.
Und weil es ein reines Zeitfeld ist, führt auch FieldByName('Beginn').AsDateTime zu einem Fehler !

..

"Fehler" ist eine sehr oberflächliche Fehlerbeschreibung.
Einen Fehler hättest Du auch bekommen weil Zeit1 TTime ist und (wenn es asDateTime gegeben hätte)
TDateTime zurückgeliefert hätte.

Grüße
Klaus

[p80286]

Zitat von BillyBoy:

Es wäre schön, wenn ihr euch mal die Ausgangsfrage ansehen könntet!

Das Feld Beginn ist definiert als time(7).
Das ist kein Character-Zeug, sondern ein reines SQL-Zeitfeld.
Und weil es ein reines Zeitfeld ist, führt auch FieldByName('Beginn').AsDateTime zu einem Fehler !

Dass ich das Ganze als String auslesen kann und anschließend zur Anzeige wieder in ein Zeitformat umwandeln kann ist schon klar, das war nicht die Frage.

gruss
Billy

P.S.: FieldByName('Beginn').AsFloat tut's auch nicht

Frage zur Güte als was kommen die Daten denn in Delphi an?

Delphi-Quellcode:

case q.Fields[i].datatype of
      ftUnknown   :   Ftyp:=' Unknown or undetermined';
      ftString    :   ftyp:=' Character or string field';
      ftSmallint  :   ftyp:=' 16-bit integer field     ';
      ftInteger   :   ftyp:=' 32-bit integer field     ';
      ftWord       :   ftyp:=' 16-bit unsigned integer field';
      ftBoolean   :   ftyp:=' Boolean field             ';
      ftFloat     :   ftyp:=' Floating-point numeric field';
      ftCurrency  :   ftyp:=' Money field               ';
      ftBCD         :   ftyp:=' Binary-Coded Decimal field';
      ftDate       :   ftyp:=' Date field                ';
      ftTime       :   ftyp:=' Time field                ';
      ftDateTime  :   ftyp:=' lDate and time field      ';
      ftBytes     :   ftyp:=' Fixed number of bytes (binary storage)';
      ftVarBytes  :   ftyp:=' Variable number of bytes (binary storage)';
      ftAutoInc   :   ftyp:=' Auto-incrementing 32-bit integer counter field';
      ftBlob       :   ftyp:=' Binary Large OBject field';
      ftMemo       :   ftyp:=' Text memo field          ';
      ftGraphic     :   ftyp:=' Bitmap field             ';
      ftFmtMemo   :   ftyp:=' Formatted text memo field';
      ftParadoxOle:   ftyp:=' Paradox OLE field';
      ftDBaseOle  :   ftyp:=' dBASE OLE field  ';
      ftTypedBinary:ftyp:=' Typed binary field';
      ftCursor    :   ftyp:=' Output cursor from an Oracle stored procedure (TParam only)';
      ftFixedChar :   ftyp:=' Fixed character field ';
      ftWideString:   ftyp:=' Wide string field     ';
      ftLargeInt  :   ftyp:=' Large integer field   ';
      ftADT         :   ftyp:=' Abstract Data Type field';
      ftArray       :   ftyp:=' Array field           ';
      ftReference :   ftyp:=' REF field             ';
      ftDataSet   :   ftyp:=' DataSet field         ';
      ftOraBlob   :   ftyp:=' BLOB fields in Oracle 8 tables';
      ftOraClob   :   ftyp:=' CLOB fields in Oracle 8 tables ';
      ftVariant   :   ftyp:=' Data of unknown or undetermined type';
      ftInterface :   ftyp:=' References to interfaces (IUnknown)';
      ftIDispatch :   ftyp:=' References to IDispatch interfaces ';
      ftGuid       :   ftyp:=' globally unique identifier (GUID) values ';
      else ftyp:='!not known!';
    end;{case---------------------------------}

Und Du hast jetzt mehrere Male erwähnt das es Fehler gibt, aber es tunlichst vermieden zu erklären was für Fehler, welche Fehlermeldung usw.
Das würde bestimmt zur Aufklährung beitragen.
Gruß
K-H

[himitsu]

Zitat von Klaus01:

Einen Fehler hättest Du auch bekommen weil Zeit1 TTime ist und (wenn es asDateTime gegeben hätte)
TDateTime zurückgeliefert hätte.

TDateTime, TDate, TTime, Double und sowar Extended, Single oder Real sind zuweisungskompatibel.

Zitat von Klaus01:

"Fehler" ist eine sehr oberflächliche Fehlerbeschreibung.

Aber hier hast du vollkommen Recht.
Wie heißt der denn nun genau?

[Sherlock]

Ist jetzt wohl schon OT: Uuups: Natürlich schneidet trunc den Nachkommaanteil ab...hab nicht lang genug nachgedacht
Da aber das Format dieses ominösen Feldes offenbar nicht numerisch ist, nützt eine weitere Diskussion in dieser Richtung leider nichts...

Zitat von BillyBoy:

Dass ich das Ganze als String auslesen kann und anschließend zur Anzeige wieder in ein Zeitformat umwandeln kann ist schon klar, das war nicht die Frage.

Ich glaube aber schon, denn Du fragtest, wie Du das auslesen kannst. Und siehe, Du hast die Antwort ja bereits.

Im übrigen dürfte das hier wohl Licht ins Formatdunkel bringen:
http://sqlblogcasts.com/blogs/danny/...data-type.aspx

Sherlock

[BillyBoy]

Hallo,

das Format time(7) ist ein Zeitformat mit 7 Stellen hinter den Sekunden.
Die 7 ist die Standardvorgabe des SQL Servers.
Damit übergibt er die Zeit als 17:15:00.0000000, was von Delphi nicht ausgewertet werden kann (ok, als string schon)

Ich habe das Feld als time(0) definiert. Nun bringt er wieder ein "ordentliches" Zeitformat 17:15:00.
Dieses kann wieder mit .AsDateTime gelesen werden.


Danke an alle
Billy