datediff im grid

[khh]

hallo zusammen

Delphi-Quellcode:

datediff(minute,arbeitsbeginn,arbeitsende )as zeit
  from     arbeitszeiten

funktioniert.
Die Zeit wird mir als Minutenwert angezeigt.

Das Feld lässt sich aber nicht formatieren
Setze ich DisplayFormat von TColumn im DBGRid auf HH:mm mir im Feld "HH:mm" angezeigt


Was läuft da falsch ?

Muss ich das noch ins Datumsformat casten? wenn ja wie ?

Ich danke euch

[rokli]

Hallo khh,

wenn Du es im (MS) SQL CASTEN willst, dann könntest Du das so machen:

CONVERT(CHAR(8), Datum, 114)

Hierbei heißt der CAST dann CONVERT 8-) , wobei der erste Parameter der Typ des Ergebnis ist, (CHAR(8), der 2. Parameter ist Dein DB-Feld, dass du umwandelt willst und der letzte Parameter drückt aus, dass es sich um eine Uhrzeit im Format hh:mm:ss:mmm im 24 Stunden Format ist.

Damit kann man auch Datums-Formate erzeugen, z. B. Parameter 104 ergibt tt.mm.jjjj bei einer Länge von CHAR(10). Der Rückgabewert ist dann allerdings ein String, und kein Datum- /Zeitwert mehr.


Gruß
Rolf

[BadenPower]

Zitat:

Zitat von khh (Beitrag 1308295)

Das Feld lässt sich aber nicht formatieren
Setze ich DisplayFormat von TColumn im DBGRid auf HH:mm mir im Feld "HH:mm" angezeigt

Dann hast Du im Objektinspektor die Property "DisplayFormat" wahrscheinlich so gesetzt:

Code:

'HH:mm'

anstatt so:

Code:

HH:mm

[khh]

convert kennt firebird wohl nicht
BadenPower, nein die Formatierung wurde nicht in '' übegeben :-(

[mkinzler]

Zitat:

convert kennt firebird wohl nicht

Aber CAST()

[khh]

@mkinzler

Code:

select  cast(arbeitsende - arbeitsbeginn as time)
  from    arbeitszeiten

bringt mir :
overflow occurred during data type conversion
conversion error from string '0,333333'

[mkinzler]

SQL-Code:

select  
  cast(datediff(minute,arbeitsbeginn,arbeitsende) as char(8)) as zeit
from    
  arbeitszeiten;

[khh]

jetzt hab ich die Zeit in Minuten, ich danke dir,

aber die Formatierung HH:mm im grid wird einfach ignoriert.

Kann ich das in der Query noch irgendwie in std und min umwandeln?

[mkinzler]

Zitat:

Kann ich das in der Query noch irgendwie in std und min umwandeln?

Könnte man mit DIV und MOD des mit DATEDIFF erzeugtem Wertmachen; die Frage ist aber ob es sinnvoll ist. GGf. besser bei der Anzeige machen (notfalls im OnGetText der TField-Instanz)

[BadenPower]

Zitat:

Zitat von khh (Beitrag 1308308)

aber die Formatierung HH:mm im grid wird einfach ignoriert.

Weil Dein Datentyp nicht ftDateTime,ftDate oder ftTime ist.

[khh]

und wie krieg ich das jetzt am effektivsten hin?

[mkinzler]

In der Abfrage oder bei der Anzeige?

[khh]

ich denke am besten bei der abfrage, oder ists bei der Anzeige besser wenn man die Performence berücksichtigt ?

[p80286]

Dann versuch es mal mit

SQL-Code:

 cast(datediff(minute,arbeitsbeginn,arbeitsende) as Time) as zeit

Gruß
K-H

[khh]

Zitat:

Zitat von p80286 (Beitrag 1308322)

Dann versuch es mal mit

SQL-Code:

 cast(datediff(minute,arbeitsbeginn,arbeitsende) as Time) as zeit

Gruß
K-H

bringt mir eine overflow error from string

[BadenPower]

Code:

SELECT TimeDiff(cast(arbeitsbeginn as Time),cast(arbeitsende as Time)) as zeit FROM arbeitszeiten

[p80286]

Zitat:

Zitat von BadenPower (Beitrag 1308325)

Code:

SELECT TimeDiff(cast(arbeitsbeginn as Time),cast(arbeitsende as Time)) as zeit FROM arbeitszeiten

Ich hab angenommen das wäre schon Date/Time???


@khh
bevor noch ein paar untaugliche Vorschläge kommen, was für einen Typ hat

Delphi-Quellcode:

arbeitsbeginn

und

Delphi-Quellcode:

arbeitsende

?

Und wenn Du nicht die Anzahl von irgendwas sondern Stunden und Minuten ausgeben willst, dann übergib einen Date/Time Typen

Gruß
K-H

[khh]

arbeitsbeginn und arbeitsende sind beide vom typ timestamp

und timediff kennt er leider nicht :-(

[BadenPower]

Zitat:

Zitat von khh (Beitrag 1308327)

arbeitsbeginn und arbeitsende sind beide vom typ timestamp

Mit MySql würde dies ganz einfach gehen:

Code:

SELECT (SEC_TO_TIME(TIMESTAMPDIFF(SECOND,arbeitsbeginn,arbeitsende))) as Zeit FROM arbeitszeiten

[khh]

Zitat:

Zitat von BadenPower (Beitrag 1308334)

Zitat:

Zitat von khh (Beitrag 1308327)

arbeitsbeginn und arbeitsende sind beide vom typ timestamp

Mit MySql würde dies ganz einfach gehen:

Code:

SELECT (SEC_TO_TIME(TIMESTAMPDIFF(SECOND,arbeitsbeginn,arbeitsende))) as Zeit FROM arbeitszeiten

ja, aber ich habe firebird.
Muss ich jetzt LEIDER sagen ? :-(

[mkinzler]

SQL-Code:

select 
  arbeitsende - arbeitsbeginn 
from 
  arbeitszeiten;

[khh]

hallo markus,
so hab ich wieder den Dezimalwert vom Tag.
für 12 stunden also 0,5

DisplayFormat auf HH:mm zu setzen zeigt mir im Feld HH:mm an, funktioniert also nicht.

Wie bekomme ich das Anzeigefeld in std und min formatiert?

Das muss doch irgendwie gehen :-(

[Olli73]

Also wenn du in/mit Sekunden rechnest, ist es ganz einfach. So ergibt z.B.:

Code:

select 
  time '00:00:00' + 10000 as test
from
  ...

folgendes:

Code:

02:46:40

(Also 10000 Sekunden in dem Beispiel)

[khh]

hallo olli
dann muss ich aber die Differenz der beiden timestampfelder in sekunden haben :-(

[Olli73]

Zitat:

Zitat von khh (Beitrag 1308345)

hallo olli
dann muss ich aber die Differenz der beiden timestampfelder in sekunden haben :-(

Du hast doch Minuten?

Minuten * 60 => Sekunden :gruebel:

[khh]

:oops:

[khh]

Ihr seid die Besten :-)

Delphi-Quellcode:

time '00:00:00' + (datediff(minute,arbeitsbeginn,arbeitsende ))as zeit
  from     arbeitszeiten

funktioniert, mit einem kleinen Manko,
den führenden Taganteil müsste man noch ausblenden oder abschneiden können ;-)

der kann eh nie vorkommen

[mkinzler]

Hat unter Lazarus TField auch den InGetText-Event?
Dann in dem

Delphi-Quellcode:

  Text := FormatDateTime( 'HH:MM', Sender.Value);

[BadenPower]

Wenn Du in DateDiff als ersten Parameter statt "minute" "second" nimmst, dann bekommst Du die Sekunden.

Und die formatierte Ausgabe im Grid bekommst Du jetzt wieder mit der Property DisplayFormat = hh:mm:ss wenn auch die Sekunden erwünscht sind.

[khh]

also mit datediff und second habe ich jetzt die sekunden in einem time-feld ( kein timestamp).

dieses lässt sich über displayformat HH:mm NICHT formatieren.
statt dessen steht wieder "HH:mm" im Feld :-(

[mkinzler]

Ich verweise noch mal auf #28

[khh]

Zitat:

Zitat von mkinzler (Beitrag 1308369)

Ich verweise noch mal auf #28

hallo markus,
InGetText gibt es unter Lazarus nicht

[khh]

die formatierung per displayformat funktioniert ja mit einem Timestamp-feld.
dann sollte doch ein cast von time nach timestamp funtionieren, oder ?

wie bekomme ich den cast in der Query unter ?


select datediff(second,arbeitsbeginn,arbeitsende )as zeit
from arbeitszeiten

[Olli73]

Darf der Rückgabewert auch ein String sein?

Code:

select
  substr(time '00:00:00' + datediff(second, arbeitsbeginn, arbeitsende), 1, 5) as zeit
from
  Arbeitszeiten

[khh]

Zitat:

Zitat von Olli73 (Beitrag 1308376)

Darf der Rückgabewert auch ein String sein?

Code:

select
  substr(time '00:00:00' + datediff(second, arbeitsbeginn, arbeitsende), 1, 5) as zeit
from
  Arbeitszeiten

danke olli, aber substr kennt firebird leider nicht :-(

[Olli73]

Zitat:

Zitat von khh (Beitrag 1308381)

danke olli, aber substr kennt firebird leider nicht :-(

Ist zumindest in der "ib_udf.dll" enthalten - und funktioniert bei mir.

[khh]

ich habs jetzt so gelöst:

Delphi-Quellcode:

datediff(second,arbeitsbeginn,arbeitsende )/3600 as zeit
  from     hwd_arbeitszeiten

Allerdings bekomme ich so einen integer Wert.
Jemand ne Idee wie ich zu einem Dezimalwert komme, damit ich an die Minuten rankomme ?

[Olli73]

Zitat:

Zitat von khh (Beitrag 1308386)

Allerdings bekomme ich so einen integer Wert.
Jemand ne Idee wie ich zu einem Dezimalwert komme, damit ich an die Minuten rankomme ?

Delphi-Quellcode:

datediff(second,arbeitsbeginn,arbeitsende )/3600.0000 as zeit
  from     hwd_arbeitszeiten

[khh]

super, ich danke euch

jetzt noch den dezimalwert nach timestamp dann passts :-)

[BadenPower]

Zitat:

Zitat von mkinzler (Beitrag 1308352)

Hat unter Lazarus TField auch den InGetText-Event?
Dann in dem

Delphi-Quellcode:

  Text := FormatDateTime( 'HH:MM', Sender.Value);

Zitat:

Zitat von khh (Beitrag 1308371)

Zitat:

Zitat von mkinzler (Beitrag 1308369)

Ich verweise noch mal auf #28

hallo markus,
InGetText gibt es unter Lazarus nicht

Klar dass es "InGetText" nicht gibt. Das gibt es unter Delphi auch nicht.

Das Event heisst "OnGetText" und steht TField auch bei Lazarus zur Verfügung.

Was mich allerdings wundert ist das DisplayFormat beim TE nicht funktioniert. Habe es nochmals geprüft und es funktioniert bei mir tadellos.