N'afficher rien quand le champ en paramètre est vide.

Version imprimable

Bonjour,

je me sers du code ci-dessous pour
Code:

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.

Je ferai comme cela

Code:

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+

04/08/2012, 19h12
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:

secondes = charge Mod 60

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

T'aurais pas une autre astuce?

Merci

Bonjour

J'aurais mis cela

Code:

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

05/08/2012, 19h16
kedmard

Citation:

Envoyé par 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 :cry: ?

je continue à chercher ...
06/08/2012, 09h22
marsouin_89

Bonjour,

Et avec ceci :

Code:

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

Cordialement

Christophe
06/08/2012, 09h36
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.

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

Essaye

Code:

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+

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:

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:

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,

J'essayerai ceci

Code:

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

10/08/2012, 09h32
kedmard

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

Cordialement,