datediff im grid

[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.