Resutlat de calcul sur date formaté [Résolu]

[neness]

Salut à tous.

j'ai une table SESSIONS

Code :

1
2
 
CREATE TABLE SESSIONS (start timestamp, stop timestamp, number interger)

je dois faire la requète suivante sur cette table

Code :

1
2
 
SELECT start,stop, (stop - start) AS "duration" WHERE number = 12;

le problème est que interbase me renvoie le calcul sur les dates en format float, je le voudrais en format time.

est-ce possible ?

si oui, comment pourrais-je faire ?

Merci à tous.

[Barbibulle]

Oui c'est normal car les timestamps sont enregistés physiquement comme ça.

Donc la partie entière du résultat est le nombre de jour entre stop et start et la partie décimale les heures/minutes/secondes/millisecondes qu'il faut interpreter correctement.

Le plus simple est d'utiliser des fonctions UDF comme dans la Rfunc qui est gratuite.

Votre requete deviendrait :

Code :

1
2
SELECT s.start, s.stop, s.stop-s.start, daysbetween(DOUBLETODATE(0), DOUBLETODATE(s.stop-s.start)) AS duree_jour, cast(DOUBLETOTIME(s.stop-s.start) AS time) AS duree_time
FROM sessions s

L'ecart entre stop et start est donc de duree_jour+duree_time.
Car duree time ne renvoit qu'une valeur <24H.

les fonctions que j'ai utilisé dans rfunc :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
DECLARE EXTERNAL FUNCTION DAYSBETWEEN
   TIMESTAMP, TIMESTAMP
   RETURNS INTEGER BY VALUE
  ENTRY_POINT 'fn_daysbetween'  MODULE_NAME 'rfunc';
 
DECLARE EXTERNAL FUNCTION DOUBLETODATE
   DOUBLE PRECISION
   RETURNS TIMESTAMP FREE_IT
  ENTRY_POINT 'fn_doubletodate'  MODULE_NAME 'rfunc';
 
DECLARE EXTERNAL FUNCTION DOUBLETOTIME
   DOUBLE PRECISION
   RETURNS TIMESTAMP FREE_IT
  ENTRY_POINT 'fn_doubletotime'  MODULE_NAME 'rfunc';

Mais j'aurai pu utilisé que le daysbettween et le DoubleToDate comme ceci :

Code :

1
2
SELECT s.start, s.stop, s.stop-s.start, daysbetween(DOUBLETODATE(0), DOUBLETODATE(s.stop-s.start)) AS duree_jour, cast(DOUBLETODATE(s.stop-s.start) AS time) AS duree_time
FROM sessions s

car je cast le résultat en time.

[neness]

super, je vais travailler comme cela.

j'ai réussi à créer les procedure (UDFs).

Mais quand jexecute le requète depuis IBManager j'ai la réponse suivante.

fmSQLEditor.Query:
Unsuccessful execution caused by a system error that precludes
successful execution of subsequent statements.
Access to UDF library "rfunc.DLL" is denied by server administrator.

je n'ai fait que créer les functions par copier coller de ton post.
et tout c'est bien passé.

[Barbibulle]

Il faut installer l'UDF sur le serveur.
Si le serveur est de type windows il faut copier rfunc.dll dans le répertoire <interbase>/UDF.
Rfunc se télécharge ici :
http://rfunc.sourceforge.net/
Menu Files puis télécharger la version windows ou unix selon.

[neness]

Super ça marche nickel.

j'ai cependant un petit problème depuis cette modif.

Dans delphi, quand j'arrive à la fin de la dbgrid, j'ai un message d'erreur.

Code :

1
2
3
4
5
6
7
8
 
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EConvertError WITH message 'Invalid argument to time encode'. Process stopped. USE Step OR Run TO continue.
---------------------------
OK   Help   
---------------------------

j'avais eu le même message d'erreur quand j'avais oublié de definir les champ varchar "charSet" en "ISO8859_1" .

Merci.

[Barbibulle]

Difficile de répondre, faudrait voir le code.
Vous faites du SQL dynamique ? Paramétré ? Les TField sont créés dynamiquement ou vous les avez figés ?

Pourquoi en fin du dbgrid ? une des données ne serait elle pas à null (le stop par exemple...)

[neness]

j'ai trouvé l'erreur !



en fait quand je crée une session ouverte j'insère comme valeur de StopDate = 0.
et donc, la date est "31/12/1899"
c'est donc la calcul de la valeur stop.

Merci beaucoup.

maintenant, je defini le stop d'une session ouverte à l'heure actuelle et plus à zéro.




Ps : c'est toujours un plaisirs de poser une quéstion sur ce forum