Différence entre deux heures sous Vba excel
Akroma0
Messages postés
3
Statut
Membre
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai un petit soucis, je m'explique:
j'ai sous vba une fonction pour calculer le difference de jours entre deux dates.
J'aimerai faire exactement la meme chose avec des heures le problème c'est que je ne trouve pas se qui pourrait pour remplacer NetWorkDays.
Si quelqun a des idées merci ,)
J'ai un petit soucis, je m'explique:
j'ai sous vba une fonction pour calculer le difference de jours entre deux dates.
Function evalDuration(startTime As Range, EndTime As Range) evalDuration = WorksheetFunction.NetWorkDays(startTime.Value, EndTime.Value) End Function
J'aimerai faire exactement la meme chose avec des heures le problème c'est que je ne trouve pas se qui pourrait pour remplacer NetWorkDays.
Si quelqun a des idées merci ,)
A voir également:
- Différence entre deux heures sous Vba excel
- Nombre de jours entre deux dates excel - Guide
- Liste déroulante excel - Guide
- Différence entre tcp et udp - Guide
- Word et excel gratuit - Guide
- Difference entre million et milliard - Accueil - Technologies
1 réponse
Salut,
Peut être ce code pour les heures
Function EcartDates(DateOuverture As Date, DateReception As Date)
EcartDates = DateDiff("h", DateOuverture, DateReception, vbMonday, vbFirstJan1)
End Function
et celui ci pour les lours
Function EcartDates(DateOuverture As Date, DateReception As Date)
EcartDates = DateDiff("d", DateOuverture, DateReception, vbMonday, vbFirstJan1)
End Function
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
Peut être ce code pour les heures
Function EcartDates(DateOuverture As Date, DateReception As Date)
EcartDates = DateDiff("h", DateOuverture, DateReception, vbMonday, vbFirstJan1)
End Function
et celui ci pour les lours
Function EcartDates(DateOuverture As Date, DateReception As Date)
EcartDates = DateDiff("d", DateOuverture, DateReception, vbMonday, vbFirstJan1)
End Function
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
