IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Calcul du nombre de jours par mois entre deux dates


Sujet :

VBA Access

  1. #1
    Candidat au Club
    Inscrit en
    Janvier 2010
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Janvier 2010
    Messages : 6
    Points : 4
    Points
    4
    Par défaut Calcul du nombre de jours par mois entre deux dates
    Bonjour,

    Je suis à la recherche d'une formule me permettant de calculer le nombre de jours par mois entre deux dates.

    Je m'explique : sur une période du 28/12/09 au 5/02/10 je voudrais avoir
    - 4 jours pour décembre
    - 31 jours pour janvier
    - 5 jours pour février

    de façon à mettre à jour une table où sont les mois les années pour calculer un salaire en fonction du nombre de jours travailler par mois.

    Merci

  2. #2
    Rédacteur/Modérateur

    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2004
    Messages
    8 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Août 2004
    Messages : 8 241
    Points : 19 367
    Points
    19 367
    Billets dans le blog
    61
    Par défaut
    Bonjour,

    tu peux adapter cette fonction test en remplaçant les debug.print par des ajouts dans ta table en utilisant DAO.

    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
    Function NbreJoursParMois(date1 As Date, date2 As Date) As Integer
    Dim nbJours As Integer
    Dim DateD As Date, DateF As Date
     
    DateD = date1
    DateF = DateSerial(Year(DateD), Month(DateD) + 1, 1)
     
    nbJours = DateDiff("d", DateD, DateF)
     
    Do While (DateD <= date2)
     
    Debug.Print Format(DateD, "mmmm yyyy")
    Debug.Print nbJours
     
    DateD = DateF
     
       If (DateSerial(Year(DateD), Month(DateD) + 1, 1) <= date2) Then
          DateF = DateSerial(Year(DateD), Month(DateD) + 1, 1)
       Else
          DateF = date2 + 1
       End If
     
    nbJours = DateDiff("d", DateD, DateF)
     
    Loop
     
    End Function
    PS: si tu veux le nombre de jours travaillés entre 2 dates tu peux remplacer les datediff par cette fonction.

    A+
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération

    Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel


    Importer un fichier JSON dans une base de données Access :
    Import Fichier JSON

  3. #3
    Rédacteur/Modérateur
    Avatar de Jeannot45
    Homme Profil pro
    Retraité
    Inscrit en
    Octobre 2004
    Messages
    3 871
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 74
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Enseignement

    Informations forums :
    Inscription : Octobre 2004
    Messages : 3 871
    Points : 8 489
    Points
    8 489
    Par défaut


    Et pour compléter l'information sur la gestion des dates et des heures, lire l'excellent tuto de Maxence Hubiche : Les fonctions dates et heures sous vba

    Bonne continuation
    Jeannot

    Liens Office indispensables à visiter: Cours (Tutos), F.A.Q., Sources VBA

    Ne posez pas de questions par MP, je n'ai pas le temps d'y répondre

Discussions similaires

  1. [VxiR2] Calcul du nombre de jours par mois entre deux date
    Par trabelsi dans le forum Designer
    Réponses: 4
    Dernier message: 02/10/2017, 16h17
  2. [XL-2003] Compter le nombre de jours par mois entre deux dates
    Par Mikayel dans le forum Excel
    Réponses: 8
    Dernier message: 23/09/2016, 14h36
  3. Calcul du nombre de jours non ouvrés entre deux dates
    Par allweneed dans le forum Oracle
    Réponses: 6
    Dernier message: 27/04/2010, 18h34
  4. Réponses: 6
    Dernier message: 12/01/2008, 19h21
  5. Comment compter les jours par mois entre deux dates
    Par Doo89 dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 10/01/2008, 22h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo