Discussion :

[giulian12]

Bonjour

Je sollicite votre aide pour finaliser quelque chose que j'essaie de mettre en place

Contexte:

Pour vulgariser imaginer une boite d’intérim avec plusieurs salariés et je doit établir une nouvelle méthode de calcul de leur ancienneté qui va être l'addition de leur jour de chaque contrat qui sera ensuite convertie en Année/Mois et jours.

Exemple:

Travailleur A à un contrat 1 qui va du 01/01/2017 au 11/01/2017 cela fait 10 jours pour l'ancienneté ( il n y a pas de notion de jours ouvrés ou travaillés effectifs), je dois ensuite additionner le nombre de jour pour obtenir le total de tous ces contrats et enfin le convertir

J'ai réussi avec DiffDate("j";[Datedébut];[Datefin]) à obtenir le nombre de jour par contrat et avec une requête de regroupement obtenir le total pour chaque travailleur mais je n arrive pas à convertir ce dernier chiffre en Année/Mois/jours

j'ai essayé d'une autre manière d'obtenir pour chaque contrat avec SplitDiffDate([Datedébut];[Datefin]) (trouver sur le forum) un résultat sous forme Année/Mois/jours mais je ne peut pas faire de d'addition/regroupement avec ces valeurs

Je ne suis pas un pro et je sais que je passe à coté de quelque chose je vais continuer mes recherches si une personne vois la solution qu'elle n'hésite pas

[User]

Bonjour,

Ça revient il me semble a calculer des ages en années, mois, jours pour les contrats .

Une discution sur ce sujet :

https://www.developpez.net/forums/d1...n-jour-sommes/

CDLT,

[giulian12]

Ce n'est pas tout à faire cela

Avec mes deux façons de faire pour le moment j’obtiens soit :

- Un nombre exemple 4329 jours de missions intérim que je dois convertir en Année/Mois/Jours et là je bloque pour le moment

- La durée de chaque contrat déjà convertie exemple pour un contrat de 338 jour il sera afficher comme ceci: 0 ans 11 mois 3 jours, mais je dois ensuite additionner les valeurs sous cette forme

0 ans 11 mois 3 jours + 2 ans 03 mois 3 jours + 0 ans 0 mois 20 jours et c'est là que je bloque

[User]

Donc, vous prenez un nombre de jours par mois arbitraire, disons 30, et des année de 365.25 jours...avec quelque chose comme ceci:

Code :

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

1
2
3
4
5
6
7
Annees =Int (TotalJours / 365.25)
 
TotalJours =(TotalJours - Annees * 365.25)  ' reste des jours après avoir éliminé les années
 
Mois =Int( TotalJours  / 30) 
 
Jours =Int(TotalJours - Mois * 30)

Cdlt,

[giulian12]

Il faut donc créer une fonction avec tout cela ? Car je ne suis pas encore à ce niveau de pratique dans Access

EDIT :

J'ai trouver ce code dans un autre message, mais quand je le colle dans un module les ligne concernant Dim avec le DateTime sont en rouges, j'imagine qu il a une option à activer

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
23
 
    Public Function DateDiffAnneeMoisJour(Nbjour As Integer) As Integer()
 
 
        Dim dateFin As DateTime = Now
        Dim dateDebut As DateTime = Now.AddDays(-Nbjour)
 
        Dim year As Integer = dateFin.Year - dateDebut.Year
        Dim month As Integer = dateFin.Month - dateDebut.Month
        Dim day As Integer = dateFin.Day - dateDebut.Day
 
        If month < 0 Then
            year = year - 1
            month = month + 12
        End If
 
        If day < 0 Then
            month = month - 1
            day = day + DateTime.DaysInMonth(dateDebut.year, dateDebut.month)
        End If
 
        Return {year, month, day}
    End Function

[giulian12]

j'ai retravailler le code de cette manière

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
23
24
25
26
27
28
29
30
31
32
 
 
 Public Function DateDiffAnneeMoisJour(Nbjour As Integer) As Integer()
 
        Dim dateFin As Date
        dateFin = DateTime.Now
 
        Dim dateDebut As Date
        dateDebut = Now.AddDays(-Nbjour)
 
        Dim year As Integer
        year = dateFin.year - dateDebut.year
 
        Dim month As Integer
        month = dateFin.month - dateDebut.month
 
        Dim day As Integer
        day = dateFin.day - dateDebut.day
 
 
        If month < 0 Then
            year = year - 1
            month = month + 12
        End If
 
        If day < 0 Then
            month = month - 1
            day = day + DateTime.DaysInMonth(dateDebut.year, dateDebut.month)
        End If
 
        Return {year, month, day}
    End Function

mais lorsque je l'utilise dans une requète sous cette forme

Code :

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

test: DateDiffAnneeMoisJour([NbreJours])

j'ai fonction non définie dans l'expression

[User]

Bonjour,

Oui, il faut reprendre la fonction de Kiki29 de la discussion et l'adapter à ton cas : nombre de jours jusqu'à aujourd'hui :

Fonction à copier dans un module indépendant :

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
23
24
25
26
Function NbJoursAMJ(TotalJours As Long) 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
Dim dateFin As Date
Dim dateDebut As Date
 
dateFin = Date
dateDebut = Date - TotalJours
 
    Tmp = DateSerial(Year(dateFin), Month(dateDebut), Day(dateDebut))
    NbAns = Year(dateFin) - Year(dateDebut) + (Tmp > dateFin)
    NbMois = Month(dateFin) - Month(dateDebut) - (12 * (Tmp > dateFin))
    NbJours = Day(dateFin) - Day(dateDebut)    ' [ Date Début, Date Fin ]
 
    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"
 
NbJoursAMJ = Trim$(sA & sM & sJ) ' Affiichage du résultat
 
End function

Utilisation sur un événement ou dans une autre procédure:

Code :

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

Resultat =NbJoursAMJ (31)

Cdlt,