Discussion :

[wanted08]

Bonjour, je voudrait faire le calcul d'heures supplémentaires et le nombres d'heures d'absences à partir d'une requête. Mais je n'arrive pas au résultat souhaité.
voici ma requête

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT SelectForPG.[Heure total], IIf([Heure total]<#12/30/1899 8:0:0#,Format(#12/30/1899 8:0:0#-[Heure total],"hh:nn:ss")," ") AS Absences, IIf([Heure total]>[LogDate]+#12/30/1899 8:0:0#,Format([Heure total]-#12/30/1899 8:0:0#,"hh:nn:ss")," ") AS [Heure Suplémentaires]
FROM SelectForPG;

et la pièce jointe correspond au résultat retourné par ma requête.


Pourriez-vous m'aider à corriger cette requête ou m'indiquer une autre méthode pour arriver à mon résultat s'il vous plait?
Et merci d'avance pour vos réponses.

[marot_r]

Bonjour.

Vérifie que HeureTotal est bien de type date/heure.

Ensuite essaye cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

iif(TimeSerial(Hour([HeureTotal]), Minute([HeureTotal]), Seconde([HeureTotal]))<TimeSerial(8, 0, 0))

remplace les calculs sur les date par DateAdd(). Voir l'aide pour les paramètres de DateAdd.

A+

[wanted08]

Merci marot_r pour ta réponse je vais le testé tout de suite

[wanted08]

ça me renvoie le message "la syntaxe de l'expression entrée n'est pas valide" . et pour la fonction DATEADD je crois qu'elle permet d' ajouter un intervalle de temps à une date , et moi je veux soustraire des heures pour avoir la durée entre les deux. j'ai essayer avec diffdate et j'ai comme résultat "!fonct" à la place de "#erreur"

[wanted08]

C'est un peut tard mais je résolue mon problème, si ça peut servir à ceux qui rencontreront le même problème que moi voici une solution:

j'ai trouver une fonction en cherchant sur internet . on l'intègre dans un module

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Function TimeDuration(dtmFrom As Date, dtmTo As Date, _
            Optional blnShowdays As Boolean = False) As String
 
    ' Returns duration between two date/time values
    ' in format hh:nn:ss, or d:hh:nn:ss if optional
    ' blnShowDays argument is True.
 
    ' If 'time values' only passed into function and
    ' 'from' time is later than or equal to 'to' time, assumed that
    ' this relates to a 'shift' spanning midnight and one day
    ' is therefore subtracted from 'from' time
 
    Dim dtmTime As Date
    Dim lngDays As Long
    Dim strDays As String
    Dim strHours As String
 
    ' subtract one day from 'from' time if later than or same as 'to' time
    If dtmTo <= dtmFrom Then
        If Int(dtmFrom) + Int(dtmTo) = 0 Then
            dtmFrom = dtmFrom - 1
        End If
    End If
 
    ' get duration as date time data type
    dtmTime = dtmTo - dtmFrom
 
    ' get whole days
    lngDays = Int(dtmTime)
    strDays = CStr(lngDays)
    ' get hours
    strHours = Format(dtmTime, "hh")
 
    If blnShowdays Then
        TimeDuration = lngDays & ":" & strHours & Format(dtmTime, ":nn:ss")
    Else
        TimeDuration = Format((Val(strDays) * 24) + Val(strHours), "00") & _
            Format(dtmTime, ":nn:ss")
    End If
 
End Function

et dans ma requette access je fait appelle au module pour le calcul d'heure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Heure Suplémentaires: VraiFaux([Heure total]>#08:00:00#;TimeDuration(#08:00:00#;[Heure total]);" 00:00:00")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Absences: VraiFaux([Heure total]<#08:00:00#;TimeDuration([Heure total];#08:00:00#);" 00:00:00")

et j'obtient le résultat voulu