Comment additionner les dates sur access2007?

Fermé
propanol Messages postés 2 Date d'inscription dimanche 30 décembre 2012 Statut Membre Dernière intervention 31 décembre 2012 - 30 déc. 2012 à 17:20
propanol Messages postés 2 Date d'inscription dimanche 30 décembre 2012 Statut Membre Dernière intervention 31 décembre 2012 - 31 déc. 2012 à 12:13
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

2 réponses

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
31 déc. 2012 à 09:58
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
0
propanol Messages postés 2 Date d'inscription dimanche 30 décembre 2012 Statut Membre Dernière intervention 31 décembre 2012
31 déc. 2012 à 12:13
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
0