maj access congé

**nouveau17** · 28/12/2021, 14h07

dans l'application un exemple réel d'un agent (2020/2021)= 21 date début 15/8/2021 et date fin 31/08/2021 reprise 01/09/2021= 17 jours alors que dans l'application le retour et la reprise sont différents.
à titre d'information les congé annuel les weekends sont comptabilisés si le nombre jours existe.

j'ai juste supprimé dans le module inferieur à 6 : If Weekday(tmpDate, vbSunday) < 6 And DCount("*", "tblJF", "tblJFDATE=" & CDbl(tmpDate)) = 0 Then.
est ce que c'est suffisant ?
merci.

deuxième question peut ont automatisé et faire en sorte à une date système précisément le 1er juillet de chaque année cumulé l'antérieur 2019/2020 et le basculé avec le solde reçu 2020/2021 ..etc en résumé

2020/2021 =15
2021/2022 = 30 au 1er juillet de cette année le solde sera de 45 au lieu de 30

Nom : casconge.jpg
Affichages : 186
Taille : 152,5 Ko

Nom : casconge.jpg
Affichages : 186
Taille : 152,5 Ko

[QUOTE=EricDgn;11793289] Nom : dateconge.jpg
Affichages : 195
Taille : 147,2 Ko

**EricDgn** · 30/12/2021, 18h58

Bonjour,

Si la condition Weekday(tmpDate, vbSunday) < 6 est supprimée, alors les vendredis et samedis sont considérés comme des jours ordinaires (comme les lundis, mardis, etc.).

Fin est indique le dernier jour compté dans les jours de congé. Reprise indique le jour où l'agent revient au bureau. Ainsi si l'agent demande 5 jours de congé commençant un dimanche, le jour Fin est le jeudi, et le jour Reprise est le lundi qui suit.

Nom : Congé 5 jours.png
Affichages : 173
Taille : 3,3 Ko

Nom : Congé 5 jours.png
Affichages : 173
Taille : 3,3 Ko

Cordialement.

**nouveau17** · 21/06/2023, 16h53

bonjour,

est il possible d'avoir le nombre de jours de récupération en fonction de calculer les vendredis et jours fériés.
exemples: voir en attaché PJ
les dates représentes les mission ou les jours travaillés.

cordialement

**EricDgn** · 22/06/2023, 09h54

Bonjour,

Je n'ai pas vraiment compris votre demande. Pourriez-vous donner un petit exemple avec le résultat attendu.

Bien cordialement.

**nouveau17** · 22/06/2023, 11h17

Envoyé par EricDgn

Bonjour,

Je n'ai pas vraiment compris votre demande. Pourriez-vous donner un petit exemple avec le résultat attendu.

Bien cordialement.

Bonjour,

je me suis inspiré du formulaire des congés, mais les dates saisies sont des dates des missions effectuées ou bien des jours travaillés AU BUREAU qui coïncides les jours fériés:

exemple: un agent a des mission effectuées durant l'année

Nom : recupvendjf.jpg
Affichages : 122
Taille : 29,1 Ko

Nom : recupvendjf.jpg
Affichages : 122
Taille : 29,1 Ko

SI JE FILTRE LA PERSONNE JE RETROUVE LE TOUS EN PLUS DU TOTATL (nbrRécupération) POUR CET EXEMPLE RECUP = 04 JOURS
cordialement

**EricDgn** · 22/06/2023, 21h12

Bonjour,

Voir si c'est ceci qui est demandé:

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
Public Function NbJCF(DateDébut As Variant, DateReprise As Variant) As Variant '--- calcul nb jours weekend (vendredi, samedi) ou fériés
    NbJCF = Null
    If IsNull(DateDébut) Then Exit Function
    If IsNull(DateReprise) Then Exit Function
    Dim i As Long, tmpDate As Date
    tmpDate = DateDébut
    i = 0
    While tmpDate < DateReprise
        If Weekday(tmpDate, vbSunday) > 5 Then                          '--- est un vendredi ou un samedi (sunday = dimanche = 1er jour travaillé)
            i = i + 1
        ElseIf DCount("*", "tJF", "JFDate=" & CDbl(tmpDate)) > 0 Then   '--- est un jour férié
            i = i + 1
        End If
        tmpDate = tmpDate + 1
    Wend
    NbJCF = i
End Function

utilisé dans la colonne "We+F" du sous-formulaire "Jours travaillés".

Cordialement.

**nouveau17** · 25/06/2023, 10h28

bonjour,

Merci c'est exactement dont j'ai besoin sauf que j'ai changé une petite choses pour avoir juste les vendredis et les jours fériés.

Code :

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

If Weekday(tmpDate, vbSaturday) > 6 Then

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
Public Function NbJCF(DateDébut As Variant, DateReprise As Variant) As Variant '--- calcul nb jours weekend (vendredi, samedi) ou fériés
    NbJCF = Null
    If IsNull(DateDébut) Then Exit Function
    If IsNull(DateReprise) Then Exit Function
    Dim i As Long, tmpDate As Date
    tmpDate = DateDébut
    i = 0
    While tmpDate < DateReprise
        'If Weekday(tmpDate, vbSunday) > 5 Then                          '--- est un vendredi  (sunday = dimanche = 1er jour travaillé)
        If Weekday(tmpDate, vbSaturday) > 6 Then
            i = i + 1
        ElseIf DCount("*", "tJF", "JFDate=" & CDbl(tmpDate)) > 0 Then   '--- est un jour férié
            i = i + 1
        End If
        tmpDate = tmpDate + 1
    Wend
    NbJCF = i
End Function

le résultat est comme suit:

en utilisant ce format

Code :

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

jjj". "jj/mm/aaaa

il ne s'affiche pas sur date fin et reprise pourquoi

Nom : RECUPDERNIER V.jpg
Affichages : 101
Taille : 579,3 Ko

**EricDgn** · 25/06/2023, 11h42

Bonjour,

Voir s'il ne suffit pas de changer le type de résultat donné par les fonctions DateFin et DateReprise, de le changer de Variant en Date:

Code :

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

1
2
Public Function DateFin(NbJours As Variant, DateDébut As Variant, bCal As Boolean) As Date
Public Function DateReprise(DateFinCongé As Variant) As Date

Cordialement.

**nouveau17** · 25/06/2023, 16h03

bonjour,

ca marche super bien merci.

cordialement.

**nouveau17** · 27/06/2023, 12h35

bonjour,

depuis que j'ai utilisé AS DATE au lieu de AS VARIANT ceci apparaît :

Nom : asdate.jpg
Affichages : 105
Taille : 211,8 Ko

cordialement.

**EricDgn** · 27/06/2023, 14h57

Bonjour,

Désolé, je ne vois à quel moment une erreur se produit.

Cordialement.

**nouveau17** · 27/06/2023, 15h26

bonjour,

En actionnant le bouton aperçu avant impression du formulaire CngAgtListe

merci

**EricDgn** · 27/06/2023, 17h30

Je ne vois pas d'erreur. Le total des recup est bien calculé dans l'état CngAgtListeDoc3.

Cordialement.

**nouveau17** · 27/06/2023, 22h08

bonjour,
effectivement en utilisant l'application sur mon laptop ya pas eu d'erreur.
mais dans un autre pc ya eu un bug.

bonne journée.

cordialement

**nouveau17** · 16/07/2023, 16h16

bonjour,

jusque là le calcul des vendredis et jours fériés c'est impeccable.

j'ai eu un cas ou ca me fausse le résultat : départ mission Dimanche fin mission jeudi dan ce cas c'est 0 récupération

Nom : dimjeud23.jpg
Affichages : 73
Taille : 31,1 Ko

Nom : dimjeud23.jpg
Affichages : 73
Taille : 31,1 Ko

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
Public Function NbJCF(DateDébut As Variant, DateReprise As Variant) As Variant '--- calcul nb jours weekend (vendredi, samedi) ou fériés
    NbJCF = Null
    If IsNull(DateDébut) Then Exit Function
    If IsNull(DateReprise) Then Exit Function
    Dim i As Long, tmpDate As Date
    tmpDate = DateDébut
    i = 0
    While tmpDate < DateReprise
        'If Weekday(tmpDate, vbSunday) > 5 Then                          '--- est un vendredi  (sunday = dimanche = 1er jour travaillé)
        If Weekday(tmpDate, vbSaturday) > 6 Then
            i = i + 1
        ElseIf DCount("*", "tJF", "JFDate=" & CDbl(tmpDate)) > 0 Then   '--- est un jour férié
            i = i + 1
        End If
        tmpDate = tmpDate + 1
    Wend
    NbJCF = i
End Function

**EricDgn** · 17/07/2023, 00h10

Bonjour,

Voir si ceci n'est pas la bonne façon de faire:

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
Public Function NbJCF(DateDébut As Variant, DateFin As Variant) As Variant '--- calcul nb jours vendredis ou fériés (et pas les samedis)
    NbJCF = Null
    If IsNull(DateDébut) Then Exit Function
    If IsNull(DateFin) Then Exit Function
    Dim i As Long, tmpDate As Date
    tmpDate = DateDébut
    i = 0
    While tmpDate <= DateFin
        If Weekday(tmpDate, vbSunday) = 6 Then                          '--- sunday = dimanche = 1er jour travaillé ---> 6=vendredi, 7=samedi
            i = i + 1
        ElseIf DCount("*", "tJF", "JFDate=" & CDbl(tmpDate)) > 0 Then   '--- est un jour férié
            i = i + 1
        End If
        tmpDate = tmpDate + 1
    Wend
    NbJCF = i
End Function

Attention cela impose aussi d'aller changer la formule dans les zones de texte qui utilise la formule nbJCF(). C'est le cas dans la zone de texte NbJCF du sous-formulaire CuListe, la source devenant =NbJCF([CuDDbt];[CuDFin]). C'est sans doute aussi le cas dans d'autres formulaires et/ou états.

Cordialement.

**nouveau17** · 17/07/2023, 16h36

bonjour,

j'ai changé dans le module le code (fichier en attaché)

- en changeant un autre agent exemple pedro pedro ----------> erreur "94" visuel basic , débogage = (DateReprise = Null) à noté que le calcul s'effectue parfaitement

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
Public Function NbJCF(DateDébut As Variant, DateFin As Variant) As Variant '--- calcul nb jours vendredis ou fériés (et pas les samedis)
    NbJCF = Null
    If IsNull(DateDébut) Then Exit Function
    If IsNull(DateFin) Then Exit Function
    Dim i As Long, tmpDate As Date
    tmpDate = DateDébut
    i = 0
    While tmpDate <= DateFin
        If Weekday(tmpDate, vbSunday) = 6 Then                          '--- sunday = dimanche = 1er jour travaillé ---> 6=vendredi, 7=samedi
            i = i + 1
        ElseIf DCount("*", "tJF", "JFDate=" & CDbl(tmpDate)) > 0 Then   '--- est un jour férié
            i = i + 1
        End If
        tmpDate = tmpDate + 1
    Wend
    NbJCF = i
End Function

cordialement

**EricDgn** · 17/07/2023, 21h02

Bonjour,

Autre version, à vérifier:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Public Function DateFin(NbJours As Variant, DateDébut As Variant, bCal As Boolean) As Variant
    If NbJours = 0 Then
        DateFin = Null
    ElseIf IsDate(DateDébut) Then
        If bCal = True Then                                 '--- calcul en jours calendriers
            DateFin = DateAdd("d", NbJours, DateDébut) - 1
        Else                                                '--- calcul en jours ouvrés
            Dim i As Long, tmpDate As Date
            tmpDate = DateDébut
            i = 1
            Do While i < NbJours
                tmpDate = tmpDate + 1
                If Weekday(tmpDate, vbSunday) < 6 Then                          '--- est un jour de semaine allant de dimanche à jeudi
                    If DCount("*", "tJF", "JFDate=" & CDbl(tmpDate)) = 0 Then   '--- n'est pas un jour férié
                        i = i + 1
                    End If
                End If
            Loop
            DateFin = tmpDate
        End If
    Else
        DateFin = Null
    End If
End Function
 
Public Function DateReprise(DateFinCongé As Variant) As Variant
    Dim i As Long, tmpDate As Date
    If IsDate(DateFinCongé) Then
        tmpDate = DateFinCongé
        i = 0
        Do
            tmpDate = tmpDate + 1
            If Weekday(tmpDate, vbSunday) < 6 Then                          '--- est un jour de semaine allant de dimanche à jeudi
                If DCount("*", "tJF", "JFDate=" & CDbl(tmpDate)) = 0 Then   '--- n'est pas un jour férié
                    i = i + 1
                End If
            End If
        Loop While i < 1
        DateReprise = tmpDate
    Else
        DateReprise = Null
    End If
End Function
 
Public Function NbJCF(DateDébut As Variant, DateFin As Variant) As Variant '--- calcul nb jours vendredis ou fériés (et pas les samedis)
    Dim i As Long, tmpDate As Date
    If IsDate(DateDébut) Then
        tmpDate = DateDébut
        i = 0
        While tmpDate <= DateFin
            If Weekday(tmpDate, vbSunday) = 6 Then                          '--- sunday = dimanche = 1er jour travaillé ---> 6=vendredi, 7=samedi
                i = i + 1
                'Debug.Print "Vendredi: " & Format(tmpDate, "yyyy-mm-dd")
            ElseIf DCount("*", "tJF", "JFDate=" & CDbl(tmpDate)) > 0 Then   '--- est un jour férié
                i = i + 1
                'Debug.Print "Férié: " & Format(tmpDate, "yyyy-mm-dd")
            End If
            tmpDate = tmpDate + 1
        Wend
        NbJCF = i
    Else
        NbJCF = Null
    End If
End Function

Cordialement.

**nouveau17** · 18/07/2023, 23h22

bonjour,

Après test sa fonctionne parfaitement les calculs sont plus exacte et précis.

Merci pour votre aide précieuse

cordialement.

**nouveau17** · 23/07/2023, 17h05

bonjour,

Code :

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

1
2
Public Function DateFin(NbJours As Variant, DateDébut As Variant, bCal As Boolean) As Variant
Public Function DateReprise(DateFinCongé As Variant) As Variant

si je remplace variant par Date le bug apparaît.

merci

maj access congé

Access

Discussions similaires

Partager

Partager