Comment additionner les dates sur access2007?
Bonjour,
voici mon problème: mon souci est de calculer et d'afficher les dates de congé et de reprise de service des employés d'une entreprise sur access2007; sachant qu'on doit se référer à la date de prise de service; et que chaque employé va en congé après un an de service et reprend le service après un mois
pour ce faire, j'ai crée une table nommé employer avec comme propriété:ID,(type auto) Non_employé(type texte),Prénom_employé(type texte),date_priseservice(type date)
comment ajouter une année à une date? dans access? exemple date_congé=date_priseservice+1an et
date_repriseservice=date_congé+1moi
date_priseservice:=date_congé (ici c'est l'affectation) la date de congé calculée précédemment doit devenir la date_priseservice pour le calcul des années suivante
je pense que j'ai bien expliqué mon problème veuillez m'aider je suis débutant sur access merci d'avance
voici mon problème: mon souci est de calculer et d'afficher les dates de congé et de reprise de service des employés d'une entreprise sur access2007; sachant qu'on doit se référer à la date de prise de service; et que chaque employé va en congé après un an de service et reprend le service après un mois
pour ce faire, j'ai crée une table nommé employer avec comme propriété:ID,(type auto) Non_employé(type texte),Prénom_employé(type texte),date_priseservice(type date)
comment ajouter une année à une date? dans access? exemple date_congé=date_priseservice+1an et
date_repriseservice=date_congé+1moi
date_priseservice:=date_congé (ici c'est l'affectation) la date de congé calculée précédemment doit devenir la date_priseservice pour le calcul des années suivante
je pense que j'ai bien expliqué mon problème veuillez m'aider je suis débutant sur access merci d'avance
2 réponses
-
Merci beaucoup f894009 pour ton aide je vais tester le code et t'informer plus tard
bonne année à toi et à tous les membres de ce forum c'est vraiment sympa -
Bonjour,
A adapter pour vous:
Sub test() Dim date_priseservice As Date, date_congé As Date ' date_priseservice = "01/02/2016" If bissextile(date_priseservice) Then Jours_annnee = 366 Else Jours_annnee = 365 End If date_congé = date_priseservice + Jours_annnee m = CInt(Format(date_congé, "mm")) If m Mod 2 = 0 Then nbj = 30 If m = 2 Then If bissextile(date_congé) Then nbj = 29 Else nbj = 28 End If End If Else nbj = 31 End If date_priseservice = date_congé + nbj End Sub ' random 'Expert Confirmé 'Inscription : mai 2005 'www.developpez.com Function bissextile(madate As Date) As Boolean bissextile = Day(DateSerial(Year(madate), 3, 0)) = 29 End Function
Bonnes fetes de fin d'annee
