séparer heures et minutes

Version imprimable

11/07/2018, 18h56
gpay56

séparer heures et minutes

Bonjour,

Je dois additionner des heures et minutes, les convertir en décimales pour ensuite les multiplier par un taux horaire.

Nombre d'heures travaillées dans une journée X nombre de jours X taux horaire = 00,00$

exemple : 8:30 + 10:15 + 5:30 = 24:15 (soit 24heures et 15 minutes)X 23,00$ = 557,75$

Existe-t-il une formule VBA Access simple ???

Merci
11/07/2018, 20h23
tee_grandbois

Bonsoir,
Si tes heures sont de type date/heure, il suffit de les multiplier par 24.
08:30 *24 donnera 8.5
10:15 *24 donnera 10.25
reste ensuite à les multiplier par le taux horaire

Bonjour.

Si tu as plus de 24h alors tu ne peux pas utiliser le type Date (qui est en realite Date/Heure).
Le plus simple est de stocker tes minutes ou tes heures dans un reel double.
Si tu stocke des heures, la partie decimale est une fraction d'heure pas des minutes.
Ex : 10:15 devient 10.25

Pour convertir :
Code:

1 2 3 4 5 public function HeureDecimal(prmHeure as date) as double dim result as double result=hour(prmHeure)+(minute(prmHeure)/60) HeureDecimal=result end function
Code:

1 2 3 4 5 6 7 public function InverseHeureDecimal(prmNbHeure as double) as string dim result as string dim heure as double=int(prmNbHeure) dim minute as double:minute=(prmNbHeure-heure)*60 result=heure & ":" & format(minute,"00") InverseHeureDecimal=result end function
Attention, le resultat de Inverse est une chaine de caracteres pas un nombre. C'est juste pour de l'affichage.

A mettre dans un module.

A+

11/07/2018, 21h25
tee_grandbois

bonsoir marot_r

Citation:

Si tu as plus de 24h alors tu ne peux pas utiliser le type Date (qui est en realite Date/Heure).

quelle législation autorise de travailler 24 heures et plus dans une journée ?

Salut,

Pour les besoins d'une appli, j'avais élaboré ces fonctions qui convertissent des heures/minutes en centièmes ou inversement ce qui permet de faire des opérations en base 10 sur les chiffres obtenus:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ConvH2Centi(H)
    Dim PEnt As Integer, PEntM As Integer, PEntS As Integer, PDimM As Double, PDimS As Double
    'H
    PEnt = Int(Val(Left(H, 2)))
    'mn
    PEntM = Int(Mid(H, 4, 2))
    PDimM = (PEntM / 60)
    's
    If Len(H) > 5 Then
        PEntS = Int(Mid(H, 7, 2))
        PDimS = (PEntS / 60) / 60
    End If
    ConvH2Centi = CDbl(PEnt + PDimM + PDimS)
End Function

...Conversion en HH -> Centièmes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function ConvCenti2H(Centi)
    Dim PEnt As Long, PDimM As Double, PEntM As Long, PDimS As Double, PEntS As Long
    If Nz(Centi, 0) = 0 Then
        ConvCenti2H = "00:00:00"
        Exit Function
    End If
 
    'H
    PEnt = Int(Centi)
    'Mn
    PDimM = Centi - PEnt
    PDimM = Int((PDimM) * 60)
    'S
    PDimS = (Centi * 3600) - (PEnt * 3600) - (PDimM * 60)
 
    ConvCenti2H = Format(PEnt, "#00") & ":" & Format(PDimM, "00") & ":" & Format(PDimS, "00")
End Function

...Conversion Centièmes -> Heures

Code:

1
2
3
4
5
6
Function TpsHH2Mn(tps) As Long
    TpsHH2Mn = 0
    If tps <> 0 Then
        TpsHH2Mn = (Format(tps, "hh") * 60) + Format(tps, "nn")
    End If
End Function

...Conversion HH:NN -> Minutes

et

Code:

1
2
3
4
5
6
7
8
9
Function TpsDiffTxt(tps As Long) As String
    Dim H As String, mn As String
    Dim Hl As Long, mnl As Double
    Hl = Int(tps / 60)
    mnl = tps Mod 60
    H = Format(Trim(str(Hl)), "00")
    mn = Format(Trim(str(mnl)), "00")
    TpsDiffTxt = H & ":" & mn
End Function

...Conversion Minutes -> HH:NN

Si çà répond à ton besoin...

12/07/2018, 18h10
marot_r

Citation:

Envoyé par tee_grandbois

bonsoir marot_r

quelle législation autorise de travailler 24 heures et plus dans une journée ?

Dans une meme journee, 24 c'est le max mais si tu cumules des heures sur la semaine c'est assez facile de depasser.

Et l'exemple donne 24h15 soit plus d'une jounee.

Mais en effet on peut contourner en partie le probleme en faisant la somme (heures du jour x Taux horaire).

A+
13/07/2018, 16h46
hyperion13

Citation:

Envoyé par tee_grandbois

bonsoir marot_r

quelle législation autorise de travailler 24 heures et plus dans une journée ?

Salut,
L'exemple donné par pgay56 évoque une périodicité hebdomadaire, base légale du Droit du travail en France (35h/hebdo)
C'est ainsi que fonctionne la paie en France.
@+
13/07/2018, 18h43
tee_grandbois

bonsoir hyperion13,

Citation:

L'exemple donné par pgay56 évoque une périodicité hebdomadaire, base légale du Droit du travail en France (35h/hebdo)

oui, et pour brouiller un peu plus les pistes, il a mis un montant en $ :D
13/07/2018, 19h56
gpay56

Merci à tous

Je suis du Canada, c'est pour cette raison que j'utilise le signe $.

Je me suis cassé le bicycle pour rien. Il m'arrive parfois de faire compliqué lorsque c'est si simple.

La réponse de tee_grandbois a très bien fait le travail.

Merci à tous