Calcul du nombre de jours ouvrés d'absence
Bonjour, Je dois proratisé l’acquisition des RTT en fonction des absences sauf codes absence 95, 12, 15, 90,91,92,93 et 97. Voici ce que j’ai écris : CumNbJAbs = 0 CumNbJAbs = NbJCalendairesAbsences(Bul.Periode, Bul.Date, "09+15+19+45+44+24+08+26+04+11+20+10+64+05+06+01+13+14+52+33+32+63+65+07+03+02+22+23+27+94+38+96+98+72+70+71+79+96+54+16+88+69+17+98+99+21+62+88+86+87+80+81+25+31+79+39") //Sauf 95-Evénement familial, 12-congés payés, 15-férié chomé, 90-RTT, 91-92-93-Repos compensateur, 97-Représentation des salariés If CumNbJAbs >= 2 And CumNbJAbs < 10 Then Call AjouteRTTAcquis ( -0.5 ) If CumNbJAbs >= 10 Then Call AjouteRTTAcquis ( -1 ) // --- Si le salarié est entré ce mois ---- // Entré ce mois : 0.5 JRTT jusqu'au 14 du mois // Aucun RTT si entré à partir du 15 If Bul.EntreCeMois = True Then MonJour = DateDay(Sal.DateEntree) MonMois = DateMonth(Sal.DateEntree) If MonJour > 14 Then Call AjouteRTTAcquis ( - Bul.RTTJOURSACQUIS + 12 - Bul.Mois ) Else Call AjouteRTTAcquis ( - Bul.RTTJO