Business Objects DE L'UTILISATION ETENDUE DES FONCTIONS DATE

I-A-1. Convertir une Date en texte▲

=FormatDeDate([Date], "aaaammjj hhmmss") >>> "20071225 235925"
=FormatDeDate([Date], "Jjjj jj Mmmm aaaa") >>> "Mardi 25 Décembre 2007"
=FormatDeDate([Date], "aaaamm") >>> "200712"

I-A-2. Convertir un texte en Date▲

=EnDate("20071225", "aaaammjj") >>> 25/12/2007
=EnDate("20071225 235925", "aaaammjj hhmmss") >>> 25/12/2007 23:59:25

=ValeurApplication("BOLANGUAGE")
Résultat "FR" pour Français

I-A-3. Convertir une Date Heure en Numéro de jour avec décimales▲

I-B-1. Informations de position▲

DebugSemaine = Si( NuméroDuJourDeLaSemaine( DateRelative([Date] , - NuméroDuJourDeAnnée([Date]) ) )  = 7)  <br/>
Alors Semaine([Date]) <br/>
Sinon Si ([Date] < DateRelative(DernierJourDeLaSemaine(DateRelative([Date] ,- NuméroDuJourDeAnnée([Date]))) ,1)) <br/>
Alors 1 <br/>
Sinon Semaine([Date])+1

I-B-2. Informations littérales▲

I-B-3. Dates et Heures de référence▲

La difficulté réside dans la liste limitée de fonctions Date disponibles.
De plus la fonction JoursEntre({Date 1} ,{Date 2}) ne renvoie que des jours entiers.

La méthode exposée ci dessous se propose de calculer la durée écoulée en secondes entre des date_heures_minutes_secondes (datetime) correspondant aux situations suivantes :

• le même jour du 13/12/2007 08:30 au 13/12/2007 12:00
  
• une date et son lendemain : du 12/12/2007 08:30 au 13/12/2007 12:00
  
• dates espacées de plusieurs jours : du 10/12/2007 08:30 au 13/12/2007 12:00
  

II-B-1. Tester si les dates couvrent des jours entiers▲

[JOURS_ENTIERS_ENTRE]  = Nb de jours entiers séparant les deux dates

II-B-2. Calculer les durées exprimées en secondes▲

[PREMIER_JOUR] = 86400 secondes d'une journée de 24h - horaire exprimé en secondes

[JOURS_ENTRE] = Nb de jours entiers x 24h x 3600 secondes

[DERNIER_JOUR] = horaire exprimé en secondes

[DUREE_MEME_JOUR] = horaire de fin - horaire de début exprimé en secondes

II-C-1. Calculs intermédiaires▲

[JOURS_ENTIERS_ENTRE] = JoursEntre([DDEB] ,[DFIN]) -1

[PREMIER_JOUR] = 86400 - ((EnNombre(FormatDeDate([DDEB] ,"HH"))* 3600) 
+ (EnNombre(Droite(FormatDeDate([DDEB] ,"hhmm") ,2))* 60) 
+ EnNombre(Droite(FormatDeDate([DDEB] ,"hhmmss") ,2)) )

[JOURS_ENTRE]
= Si ([JOURS_ENTIERS_ENTRE] > 0)  Alors  ([JOURS_ENTIERS_ENTRE] * 24 * 3600 ) Sinon  0  

[DERNIER_JOUR]
=(EnNombre(FormatDeDate([DFIN] ,"HH"))* 3600)
+ (EnNombre(Droite(FormatDeDate([DFIN] ,"hhmm") ,2))* 60) 
+ EnNombre(Droite(FormatDeDate([DFIN] ,"hhmmss") ,2)) 

[DUREE_MEME_JOUR]
=
(
  (EnNombre(FormatDeDate([DFIN] ,"HH"))* 3600)
   + (EnNombre(Droite(FormatDeDate([DFIN] ,"hhmm") ,2))* 60) 
   + EnNombre(Droite(FormatDeDate([DFIN] ,"hhmmss") ,2)) 
)-(
  (EnNombre(FormatDeDate([DDEB] ,"HH"))* 3600) 
   + (EnNombre(Droite(FormatDeDate([DDEB] ,"hhmm") ,2))* 60) 
   + EnNombre(Droite(FormatDeDate([DDEB] ,"hhmmss") ,2)) 
)

II-C-2. Durées exprimées en secondes▲

II-C-3. Variable résultat▲

[DUREE_EN_SECONDES]
 = Si ([JOURS_ENTIERS_ENTRE] = -1)  Alors [DUREE_MEME_JOUR] Sinon  [PREMIER_JOUR] + [JOURS_ENTRE] + [DERNIER_JOUR]

II-C-4. Version texte du résultat en Heures Minutes Secondes▲

=Tronque(Somme([DUREE_EN_SECONDES])/3600, 0) & " h "
 & Tronque(Mod(Somme([DUREE_EN_SECONDES]), 3600)/60, 0) & " m " 
 & Mod(Somme([DUREE_EN_SECONDES]), 60) & " s"

II-C-5. Version décimale▲

[DUREE_HEURES_DECIMALES]
=Tronque( Somme([DUREE_EN_SECONDES]) / 3600 , 0) + (Mod(Somme([DUREE_EN_SECONDES]) , 3600) / 3600)

Le SQL suivant nous fournira des exemples pour tester nos variables.
les DATETIME sont simplistes pour pouvoir vérifier mentalement.

select 'TEST1' as TEST, to_date('20071210 08:30','yyyymmdd hh24:mi') as DDEB, to_date('20071213 12:00','yyyymmdd hh24:mi') as DFIN
from dual 
UNION
select 'TEST2', to_date('20071212 08:30','yyyymmdd hh24:mi'), to_date('20071213 12:00','yyyymmdd hh24:mi') 
from dual
UNION
select 'TEST3', to_date('20071213 08:30','yyyymmdd hh24:mi') , to_date('20071213 12:00','yyyymmdd hh24:mi') 
from dual

Un problème souvent rencontré dans les requêtes B.O. ramenant des événements datés est l'obtention de séries discontinues limitées aux seules dates correspondant aux événements.
Ainsi, le suivi des événements ayant eu lieu aux dates suivantes 03/01/2008, 06/01/2008, 07/01/2008, 08/01/2008 ne permet pas d'afficher les dates 04/01/2008 et 05/01/2008 en l'absence d'une table calendrier dans l'univers.
Néanmoins le recours au SQL à la carte procure une solution.

III-B-1. Oracle 8▲

SELECT to_date('20080101','yyyymmdd') + rownum - 1 as JOURID
FROM dual
WHERE
to_date('20080101','yyyymmdd') + (rownum - 1) <= to_date('20081231','yyyymmdd');

III-B-2. Oracle 9iR2 et supérieur▲

SELECT to_date('20080101','yyyymmdd') + (rownum - 1)
FROM dual
connect BY to_date('20080101','yyyymmdd') + (rownum - 1) <= to_date('20081231','yyyymmdd');

La version 6 permet au Designer de créer des Tables Dérivées qui sont équivalentes à des vues Oracle, c'est à dire définies à l'aide de SQL s'appuyant sur les tables existantes.
Dans le cas qui nous concerne, la table dérivée sera construite de toutes pièces en pointant sur DUAL.

Procéder de la façon suivante :

• Créer une Table Dérivée,
• Créer les objets Dimension correspondants
• Etablir entre ce champ et le champ Date de la table de données une jointure externe.

SQL DE LA TABLE DERIVEE CALENDAR :
SELECT 
to_date('20080101','yyyymmdd') + (rownum - 1) as JOURID, 
to_char(to_date('20080101','yyyymmdd') + (rownum - 1), 'yyyymm') as ANNEEMOIS,
to_char(to_date('20080101','yyyymmdd') + (rownum - 1), 'yyyy') as ANNEE
FROM dual
connect BY to_date('20080101','yyyymmdd') + (rownum - 1) <= to_date('20081231','yyyymmdd');

Dans une Classe Calendrier, créer les objets Dimensions suivants :

• ANNEE
• ANNEEMOIS
• JOURID

En établissant des jointures externes entre le champ Date de chaque table de données et le champ JOURID de la table dérivée ces objets Dimensions permettront à l'utilisateur de rapatrier les données dans des suites ordonnées et continues donc exhaustives de dates provenant de la table dérivée CALENDAR et les données correspondantes lorsqu'elles existent.

CALENDAR.JOURID = TABLEDONNEES.LADATE(+)

L'analyse des données de l'exercice en cours et la confrontation avec celles de l'année précédente est une pratique commune du reporting. Le Designer qui conçoit l'univers destiné aux utilisateurs a la possibilité de prévoir des filtres le permettant. Pourtant nombre d'univers en sont dépourvus.
La méthode exposée ici permet de pallier cette lacune en paramétrant la requête de façon à ce qu'elle se mette à jour automatiquement. En cela elle est préférable au recours à l'Invite qui, en imposant l'intervention de l'utilisateur avant exécution de la requête, rend impossible toute automatisation.

La version 6 de B.O. a apporté une fonctionnalité très utile dans la mise en place des requêtes : l'opérande "Sélectionner les résultats de la requête".
Il est donc possible de créer une requête en SQL à la carte, produisant deux valeurs Années N et N-1 calculées à partir de la date courante, puis, de se servir de ces valeurs de référence dans les conditions de la requête principale.

1) Créer un SQL à la carte produisant ANNEEREF et ANNEEANT

2) Utiliser ces références dans les conditions de la requête principale

3) Poser la condition Objet [CALENDRIER\ANNEE] Egal à résultats de la requête('Requête 2.ANNEEREF')

4) Poser la condition Objet [ANNEE] Egal à résultats de la requête('Requête 2.ANNEEANT')

5) Articuler ces deux conditions par OU

IV-C-1. Création du SQL à la carte▲

SELECT 
to_char( sysdate, 'yyyy') as ANNEEREF,
to_char(extract( YEAR from sysdate) - 1 , '0000') as ANNEEANT
FROM DUAL

SELECT 
extract( YEAR from sysdate) as ANNEEREF,
extract( YEAR from sysdate) - 1  as ANNEEANT
FROM DUAL