Discussion :

[kedmard]

Bonjour,

je me sers du code ci-dessous pour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function conversion(charge As Long) As String
   Dim secondes As Long
   Dim minutes As Long
   Dim heures As Long
   secondes = charge Mod 60 
   charge = ((charge - secondes) / 60) 
   minutes = charge Mod 60 
   charge = (charge - minutes) / 60 
   heures = charge Mod 48
   conversion = (Format(heures, "00") & ":" & Format(minutes, "00") & ":" & format(secondes, "00")) 
End Function

convertir des entiers longs en heure:minute:seconde (HH:MM:SS)
et cela se fait sans problème; seulement voilà mon champs charge contient quelques cases vides et
je souhaite que ma fonction conversion renvoie un blanc (vide) lorsque c'est le cas.
Quelqu'un aurait-il une solution pour moi ?

Merci d'avance.


Kedmard.

[marot_r]

Je ferai comme cela

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
Function conversion(charge As variant) As String
   dim result as string
 
   if not isnull(charge) then
        Dim secondes As Long
        Dim minutes As Long
        Dim heures As Long
        secondes = charge Mod 60 
        charge = ((charge - secondes) / 60) 
        minutes = charge Mod 60 
        charge = (charge - minutes) / 60 
        heures = charge Mod 48
        result = (Format(heures, "00") & ":" & Format(minutes, "00") & ":" & format(secondes, "00")) 
    else
        result=""
   end if
 
   conversion=result
End Function

A+

[kedmard]

Bonsoir marot_r, merci pour ta réponse; j'ai testé ton code il pose juste un problème d'incompatibilité de type

sur la ligne

Code :

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

 secondes = charge Mod 60 

je crois que le Modulo ne marche pas avec un "variant " .


T'aurais pas une autre astuce?


Merci

[78chris]

Bonjour

J'aurais mis cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function conversion(charge As Long) As String
   Dim secondes As Long
   Dim minutes As Long
   Dim heures As Long
   if isnull(charge) then exit function
   secondes = charge Mod 60 
   charge = ((charge - secondes) / 60) 
   minutes = charge Mod 60 
   charge = (charge - minutes) / 60 
   heures = charge Mod 48
   conversion = (Format(heures, "00") & ":" & Format(minutes, "00") & ":" & format(secondes, "00")) 
End Function

Ainsi le null reste null

[kedmard]

Bonsoir 78chris, marot_r

Avec le code de 78chris j'obtiens des #erreur quand charge est vide (c'est aussi ce que j'obtiens avec mon code).
Il doit bien avoir un moyen d'obtenir un vide ?

je continue à chercher ...

[marsouin_89]

Bonjour,

Et avec ceci :

Code :

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

If nz(charge,0)=0 Then Exit Function

Cordialement

Christophe

[78chris]

Bonjour

Il faudrait repréciser comment est utilisée dans la fonction : dans une requête, un formulaire ?

Les champs sont null on contiennent quelque chose : chaîne vide, caractère spécial ?

Si null, et devant rester null, il faut plutôt gérer cela au niveau de l'appel de la fonction.

[marot_r]

Bizare le Variant est un truc passe partout, il ne devrait pas poser de problème.

Essaye

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
Function conversion(prmCharge As variant) As String
   dim result as string
 
   if not isnull(prmCharge) then
        dim charge as long:charge=clng(prmCharge) 'Converti explicitement le variant en long integer
 
        Dim secondes As Long
        Dim minutes As Long
        Dim heures As Long
        secondes = charge Mod 60 
        charge = ((charge - secondes) / 60) 
        minutes = charge Mod 60 
        charge = (charge - minutes) / 60 
        heures = charge Mod 48
        result = (Format(heures, "00") & ":" & Format(minutes, "00") & ":" & format(secondes, "00")) 
    else
        result=""
   end if
 
   conversion=result
End Function

A+

[kedmard]

Bonsoir à tous désolé de répondre si tard,

Le dernier code marot_r marche sur certains champs mais lorsque j'applique ma fonction conversion sur le résultat de la fonction Delais ci-dessous j'ai un problème d'incompatibilté de type.

Code :

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

1
2
3
4
5
6
7
Function Delais(ByVal dat1 As Variant, ByVal dat2 As Variant) As Variant
      If dat2 <> "" Then
         Delais = DateDiff("s", dat1, dat2)
      Else
         Delais = ""
      End If
    End Function

Alors qu' en appliquant la fonction conversion (de marot_r) sur le résultat de la fonction Duree, j'obtiens bien le vide ("") quand Duree="" ( comme je le souhaitais).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function Duree(ByVal date1 As Variant, ByVal date2 As Variant, ByVal date3) As Variant
      If date1 <> "" Then
         Duree = DateDiff("s", date1, date2)
      Else
        If (date2 = "" And date3 <> "") Then
           Duree = DateDiff("s", date1, date3)
        Else
           If (date2 = "" And date3 = "") Then
              Duree = ""
           End If
        End If
      End If
   End Function

Il suffit donc de repérer pourquoi conversion marche dans l'une mais pas dans l'autre fonction.

Si quelqu'un a une idée...



cordialement,

[marot_r]

J'essayerai ceci

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
Function conversion(prmCharge As variant) As String
   dim result as string
 
   if not isnull(prmCharge) then
      if prmCharge<>"" then
        dim charge as long:charge=clng(prmCharge) 'Converti explicitement le variant en long integer
 
        Dim secondes As Long
        Dim minutes As Long
        Dim heures As Long
        secondes = charge Mod 60 
        charge = ((charge - secondes) / 60) 
        minutes = charge Mod 60 
        charge = (charge - minutes) / 60 
        heures = charge Mod 48
        result = (Format(heures, "00") & ":" & Format(minutes, "00") & ":" & format(secondes, "00")) 
      else
        result=""
      end if
    else
        result=""
   end if
 
   conversion=result
End Function

[kedmard]

Bonjour à tous ça y est ça marche
Merci à tous pour votre aide.


Cordialement,