Salut, moi je comprends pas tout, tu veux savoir quel est le plus petit des deux nombres d'après les réponses, toi tu parles de minimum ??? Je dirais:
dim a as long dim b as long dim plusPetit as string * 1 plusPetit = "a" if a > b then: plusPetit = "b" --------------------- et si c'est égal ???
"Yann" a écrit dans le message de news:
Bonjour,
Une question toute bête : comment avoir le min(expr1, expr2) en VB ?
Merci d'avance. Cordialement. Yann
Pascal B.
Salut,
Le plus court des plus courts:
Minimum = IIf(Expr1 < Expr2, Expr1, Expr2)
Si tu cherches 1 seule fois le minimum de 2 nombres dans ton programme il n'est pas nécessaire d'écrire une fonction
Pascal B.
"Barsalou" wrote in message news:% | Bonjour | | Le plus court: | | minimum=expr1 | if expr2<expr1 then minimum=expr2
Salut,
Le plus court des plus courts:
Minimum = IIf(Expr1 < Expr2, Expr1, Expr2)
Si tu cherches 1 seule fois le minimum de 2 nombres dans ton programme
il n'est pas nécessaire d'écrire une fonction
Pascal B.
"Barsalou" <eric.barsalou@wanadoo.fr> wrote in message news:%230h1hhIzEHA.2656@TK2MSFTNGP14.phx.gbl...
| Bonjour
|
| Le plus court:
|
| minimum=expr1
| if expr2<expr1 then minimum=expr2
Si c'est égal la réponse est "les deux mon capitaine", plus sérieusement en cas d'égalité le test a>b est faux donc on prend l'autre réponse.
"LE TROLL" <le a écrit dans le message de news:
Salut, moi je comprends pas tout, tu veux savoir quel est le plus petit des deux nombres d'après les réponses, toi tu parles de minimum ??? Je dirais:
dim a as long dim b as long dim plusPetit as string * 1 plusPetit = "a" if a > b then: plusPetit = "b" --------------------- et si c'est égal ???
"Yann" a écrit dans le message de news:
Bonjour,
Une question toute bête : comment avoir le min(expr1, expr2) en VB ?
Merci d'avance. Cordialement. Yann
Bul
bonjour, un autre solution ? Public Function PlusPetit(ByVal A As Double, ByVal B As Double) As Double PlusPetit = (-A * (A <= B) - B * (B < A)) End Function
bonjour,
un autre solution ?
Public Function PlusPetit(ByVal A As Double, ByVal B As Double) As Double
PlusPetit = (-A * (A <= B) - B * (B < A))
End Function
bonjour, un autre solution ? Public Function PlusPetit(ByVal A As Double, ByVal B As Double) As Double PlusPetit = (-A * (A <= B) - B * (B < A)) End Function
LE TROLL
Yes, plein de façons de pour faire ça... :o)
"Patrice Henrio" a écrit dans le message de news: %
Si c'est égal la réponse est "les deux mon capitaine", plus sérieusement en cas d'égalité le test a>b est faux donc on prend l'autre réponse.
"LE TROLL" <le a écrit dans le message de news:
Salut, moi je comprends pas tout, tu veux savoir quel est le plus petit des deux nombres d'après les réponses, toi tu parles de minimum ??? Je dirais:
dim a as long dim b as long dim plusPetit as string * 1 plusPetit = "a" if a > b then: plusPetit = "b" --------------------- et si c'est égal ???
"Yann" a écrit dans le message de news:
Bonjour,
Une question toute bête : comment avoir le min(expr1, expr2) en VB ?
Merci d'avance. Cordialement. Yann
Yes, plein de façons de pour faire ça...
:o)
"Patrice Henrio" <patrice.henrio@laposte.net> a écrit dans le message de
news: %23jbwYpJzEHA.2656@TK2MSFTNGP14.phx.gbl...
Si c'est égal la réponse est "les deux mon capitaine", plus sérieusement
en cas d'égalité le test a>b est faux donc on prend l'autre réponse.
"LE TROLL" <le troll@paris.fr> a écrit dans le message de news:
eXPfRrIzEHA.908@TK2MSFTNGP11.phx.gbl...
Salut, moi je comprends pas tout, tu veux savoir quel est le plus
petit des deux nombres d'après les réponses, toi tu parles de minimum ???
Je dirais:
dim a as long
dim b as long
dim plusPetit as string * 1
plusPetit = "a"
if a > b then: plusPetit = "b"
--------------------- et si c'est égal ???
"Yann" <Yann@discussions.microsoft.com> a écrit dans le message de news:
542C125C-BF7A-4B59-AEC4-FAD90F18B31A@microsoft.com...
Bonjour,
Une question toute bête : comment avoir le min(expr1, expr2) en VB ?
"Patrice Henrio" a écrit dans le message de news: %
Si c'est égal la réponse est "les deux mon capitaine", plus sérieusement en cas d'égalité le test a>b est faux donc on prend l'autre réponse.
"LE TROLL" <le a écrit dans le message de news:
Salut, moi je comprends pas tout, tu veux savoir quel est le plus petit des deux nombres d'après les réponses, toi tu parles de minimum ??? Je dirais:
dim a as long dim b as long dim plusPetit as string * 1 plusPetit = "a" if a > b then: plusPetit = "b" --------------------- et si c'est égal ???
"Yann" a écrit dans le message de news:
Bonjour,
Une question toute bête : comment avoir le min(expr1, expr2) en VB ?
Merci d'avance. Cordialement. Yann
Patrice Henrio
A proscrire dans une programmation correcte, rien ne prouve que les booléens sont toujours codés Vrai=-1 et faux = 0 (ou le contraire parfois). Un booléen n'est pas un nombre La fonction donnée c'était bien quand on manquait de place mémoire ou quand on ne savait pas coder les booléens (adeptes du C) ... Mais maintenant essayons d'écrire des fonctions qui soient explicites.
"Bul" a écrit dans le message de news: %
bonjour, un autre solution ? Public Function PlusPetit(ByVal A As Double, ByVal B As Double) As Double PlusPetit = (-A * (A <= B) - B * (B < A)) End Function
A proscrire dans une programmation correcte, rien ne prouve que les booléens
sont toujours codés Vrai=-1 et faux = 0 (ou le contraire parfois). Un
booléen n'est pas un nombre
La fonction donnée c'était bien quand on manquait de place mémoire ou quand
on ne savait pas coder les booléens (adeptes du C) ... Mais maintenant
essayons d'écrire des fonctions qui soient explicites.
"Bul" <marcel.bultez@spamtiscali.fr> a écrit dans le message de news:
%23UnD3xJzEHA.2692@TK2MSFTNGP10.phx.gbl...
bonjour,
un autre solution ?
Public Function PlusPetit(ByVal A As Double, ByVal B As Double) As Double
PlusPetit = (-A * (A <= B) - B * (B < A))
End Function
A proscrire dans une programmation correcte, rien ne prouve que les booléens sont toujours codés Vrai=-1 et faux = 0 (ou le contraire parfois). Un booléen n'est pas un nombre La fonction donnée c'était bien quand on manquait de place mémoire ou quand on ne savait pas coder les booléens (adeptes du C) ... Mais maintenant essayons d'écrire des fonctions qui soient explicites.
"Bul" a écrit dans le message de news: %
bonjour, un autre solution ? Public Function PlusPetit(ByVal A As Double, ByVal B As Double) As Double PlusPetit = (-A * (A <= B) - B * (B < A)) End Function
ng
Salut,
Le probmèe c'est que IIf() travail en variant => C'est donc plus lent (à cause des castings), le mieux (surtout si c'est une fonction bcp utilisée) est de la coder toi même en la typant correctement.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Pascal B. wrote:
Salut,
Le plus court des plus courts:
Minimum = IIf(Expr1 < Expr2, Expr1, Expr2)
Si tu cherches 1 seule fois le minimum de 2 nombres dans ton programme il n'est pas nécessaire d'écrire une fonction
Pascal B.
"Barsalou" wrote in message news:%
Bonjour
Le plus court:
minimum=expr1 if expr2<expr1 then minimum=expr2
Salut,
Le probmèe c'est que IIf() travail en variant => C'est donc plus lent (à
cause des castings), le mieux (surtout si c'est une fonction bcp utilisée)
est de la coder toi même en la typant correctement.
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Pascal B. wrote:
Salut,
Le plus court des plus courts:
Minimum = IIf(Expr1 < Expr2, Expr1, Expr2)
Si tu cherches 1 seule fois le minimum de 2 nombres dans ton programme
il n'est pas nécessaire d'écrire une fonction
Pascal B.
"Barsalou" <eric.barsalou@wanadoo.fr> wrote in message
news:%230h1hhIzEHA.2656@TK2MSFTNGP14.phx.gbl...
Le probmèe c'est que IIf() travail en variant => C'est donc plus lent (à cause des castings), le mieux (surtout si c'est une fonction bcp utilisée) est de la coder toi même en la typant correctement.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Pascal B. wrote:
Salut,
Le plus court des plus courts:
Minimum = IIf(Expr1 < Expr2, Expr1, Expr2)
Si tu cherches 1 seule fois le minimum de 2 nombres dans ton programme il n'est pas nécessaire d'écrire une fonction
