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

VB.NET Discussion :

vb.net : calcul de nbre de jours ouvrables


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    freeLance
    Inscrit en
    Avril 2011
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Burkina Faso

    Informations professionnelles :
    Activité : freeLance
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2011
    Messages : 22
    Par défaut vb.net : calcul de nbre de jours ouvrables
    slt à toute la communauté,
    j'ai un souci et j'aimerais partager avec vous afin d'en solutionner.
    j'aimerais calculer le nombre de jours ouvrables entre 2 dates.
    je fais :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     Me.NBRE_JOURS.text = DateDiff(DateInterval.Day,Me.DateTime_debut.Value, Me.DateTime_fin.Value)
    mais cela n'est pas suffisant je calcule en ce moment le nombre de jours entre 2 dates uniquement.

    Merci d'avance

  2. #2
    Invité
    Invité(e)
    Par défaut
    Voila une solution, c'est bête-comme choux (pardonnez-moi messieurs choux), mais ça marche :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
        Sub Main()
     
            'On récupére les variables ds le bon format
            Dim T0 As Date = Convert.ToDateTime(Console.ReadLine())
            Dim T1 As Date = Convert.ToDateTime(Console.ReadLine())
            'on calcul le nb de jour total
            Dim NBjours As Integer = DateDiff(DateInterval.Day, T0, T1)
            'on prend le nb de semaine (jour /7) puis on retire le samedi -dimanche ( *5)
            Dim NBjoursTravailés As Integer = (NBjours / 7) * 5
            'et on sort tout ça !
            Console.WriteLine("nb de jour travaillés :" & NBjoursTravailés)
            Console.Read()
        End Sub

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2011
    Messages
    57
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2011
    Messages : 57
    Par défaut
    Citation Envoyé par mamatheking Voir le message
    Voila une solution, c'est bête-comme choux (pardonnez-moi messieurs choux), mais ça marche :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
            Dim NBjours As Integer = DateDiff(DateInterval.Day, T0, T1)
            'on prend le nb de semaine (jour /7) puis on retire le samedi -dimanche ( *5)
            Dim NBjoursTravailés As Integer = (NBjours / 7) * 5
    Bonjour, je suis débutant, donc excusez moi si ce n'est pas pertinent, mais d'après moi:
    Si NBjours n'est pas divisible par 7, on va avoir une erreur non??
    Exemple:
    NB_jours = 11 jours
    Or 11/7= 1.57, ce n'est pas un entier d'ou:

    NBjoursTravaillés=11/7 *5=7.8... si on travaille en rééls

    NBjoursTravaillés=11/7 *5=10 si on travaille en Entier (Dans ce cas, 11/7 est arrondi au supérieur)

    J'avais trouvé un code sur DVP concernant les dates, et on pouvait faire toute sorte d'opérations y compris celle-ci, je vais le chercher.

    Bonne journée

    edit: au cas ou, voici déjà un lien pour faire une différence entre deux dates: http://faqvbnet.developpez.com/?page...meBetweenDates
    J'arrive pas à retrouver le lien dont je te parlais au dessus :/

  4. #4
    Membre averti
    Homme Profil pro
    freeLance
    Inscrit en
    Avril 2011
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Burkina Faso

    Informations professionnelles :
    Activité : freeLance
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2011
    Messages : 22
    Par défaut
    bonjour et merci à vous,

    Si NBjours n'est pas divisible par 7, on va avoir une erreur non??
    Exemple:
    NB_jours = 11 jours
    Or 11/7= 1.57, ce n'est pas un entier.
    je la solution de divisibilité entraine de erreurs d'exactitude du Nbrejours.

  5. #5
    Membre averti
    Homme Profil pro
    freeLance
    Inscrit en
    Avril 2011
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Burkina Faso

    Informations professionnelles :
    Activité : freeLance
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2011
    Messages : 22
    Par défaut
    j'ai trouvé une solution mais l'incrementation de ma variable de type date me pose problème. voici ma solution :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub Calacul_Nbre_Jrs_Ouvrable(ByVal Date_Debut As Date, ByVal Date_Fin As Date)
            Dim n As Integer = 0  'n = nbre de jours non ouvrables
            Dim dateValue As Date = Date_Debut
            Do
                If dateValue.DayOfWeek Or dateValue.DayOfYear Then
                    n = n + 1 
                    dateValue.Add() ' Comment dois je incerementer cette variable de type Date
                End If
            Loop Until dateValue <= Date_Fin
            NBRE_JOURS.Text = (DateDiff(DateInterval.Day, Date_Debut, Date_Fin)) - n
        End Sub

  6. #6
    Membre Expert
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Avril 2009
    Messages
    1 048
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : Suisse

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2009
    Messages : 1 048
    Par défaut
    Faut en premier lieu définir précisement ce que tu entends par jours ouvrables !

    Je vais t'économiser du temps dans un futur proche quand on va te demander de ne pas compter les jours fériés. Après il y a encore la problèmatique de la localisation et la culture. (Ex. à Dubai on a congé le vendredi et samedi mais on bosse le dimanche, certaines entreprises font des ponts (Noël - nouvel an) ou on des jours fermé spécifique (En suisse la plupart des coiffeurs sont fermé le lundi par exemple)). La librairie externe a donc une couverture très limitée sur ce sujet!

    Pour résoudre cette problématique, il n'est pas rare de devoir créer une interface et une source de donnée permettant de lister les jours ouvrables/fermés du calendrier manuellement.

    Si tu as une telle source, ta problématique initiale devient alors triviale (c'est le compte du nombre d'enregistrement dans ta source entre les 2 dates)

    Bonne chance !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2007] Calculer le nombre de jours ouvrables entre 2 dates
    Par sarah12 dans le forum VBA Access
    Réponses: 7
    Dernier message: 06/05/2015, 11h30
  2. [AC-2007] calcul ecart entre date jour ouvrable
    Par popofpopof dans le forum Requêtes et SQL.
    Réponses: 8
    Dernier message: 04/12/2012, 13h51
  3. [AC-2007] Calculer le nombre de jours ouvrables entre 2 dates
    Par Viggen0020 dans le forum Requêtes et SQL.
    Réponses: 21
    Dernier message: 27/03/2009, 08h59
  4. Réponses: 1
    Dernier message: 11/09/2007, 12h10
  5. [Dates] calculer le nombre de jour ouvrable entre 2 dates
    Par pimpmyride dans le forum Langage
    Réponses: 1
    Dernier message: 20/11/2006, 17h10

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