Discussion :

[jivasasha]

Bonjour a tous,

j'ai cherché sur le forum pour une réponse à mon probleme, mais je n'ai pas trouvé, donc je m'adresse a un connaisseur.
J'utilise BI4 et je souhaite obtenir l'age à partir de 2 dates (naissance et fin de contrat). J'arrive a faire cela sous Excel (datedif) mais pas sur BI4.
Y a-t-il quelqu'un parmi vous qui peut me donner une solutions s'il vous plait.
Merci d'avance.

[kiki29]

Salut, est-ce qu'une recherche ne suffirait pas ? ce qui mène entre autres à : Business Objects DE L'UTILISATION ETENDUE DES FONCTIONS DATE

[kiki29]

Salut, j'ai aussi ceci, mais c'est du VBA Excel et serait à retranscrire dans BO, cela constituerait un excellent exercice.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function DiffDateAMJ(DateDebut As Date, DateFin As Date) As String
Dim NbAns As Long, NbMois As Long, NbJours As Long
Dim Tmp As Date, sA As String, sM As String, sJ As String
 
    Tmp = DateSerial(Year(DateFin), Month(DateDebut), Day(DateDebut))
    NbAns = Year(DateFin) - Year(DateDebut) + (Tmp > DateFin)
    NbMois = Month(DateFin) - Month(DateDebut) - (12 * (Tmp > DateFin))
 
    Rem : [ Date Début, Date Fin ]
    NbJours = Day(DateFin) - Day(DateDebut) + 1   
 
    If NbJours < 0 Then
        NbMois = NbMois - 1
        NbJours = Day(DateSerial(Year(DateFin), Month(DateFin), 0)) + NbJours
    End If
 
    If NbAns = 0 Then sA = "" Else sA = NbAns & "a "
    If NbMois = 0 Then sM = "" Else sM = NbMois & "m "
    If NbJours = 0 Then sJ = "" Else sJ = NbJours & "j"
 
    DiffDateAMJ = Trim$(sA & sM & sJ)
End Function

[jivasasha]

Bonjour,
Merci pour la réponse, j'ai épluché cette page (dates) mais je n'ai pas arrivé a trouver l'équivalent de la datedif en excel (je ne suis pas un expert malheureusement).

Je vais essayer de trouve une solution avec le VBA que vous m'avez présenté.

Salut, est-ce qu'une recherche ne suffirait pas ? ce qui mène entre autres à : Business Objects DE L'UTILISATION ETENDUE DES FONCTIONS DATE