Pb VB fonction

Question

Bonjour,
J'ai un petit probleme de comprehension d'une fonction :
Public Function PutFieldR(sVal as variant) as Single
if IsEmpty(sVal) = True then
        PutFieldR = 0
Else
        PutFieldR = CSng(sVal)
End if
End fonction

Quesque cela veut dire Single et que fait cette fonction, dont je peut vous donner un exemple d'utilisation :
With FTIRDef
          CmbVelocite = PutFieldR (.Velocite)
....
end with

ps : dans le code, il y en a d'autres du meme genre :
Public function PutFieldN(sVal as variant) as Integer
Public function PutFieldB(sVal as variant) as Byte ....

merci d'aider un novice !!
andrei

HFanny · Answer

En gros ta fonction regarde si la valeur passée en paramètre sVal est vide (isEmpty).
Si celle ci l'est, alors la variable PutFieldR vaut 0 sinon PutFieldR vaut sVal convertie en Single (CSng).

Single est tout simplement un type de nombre à virgule flottante.

Fanny

mihaesti · Answer

Cela fait plusieurs messages que vous me repodez,
je vous remercie beaucoup pour votre rapidite.
andrei :big)

Pb VB fonction

2 réponses

Discussions similaires