VB numeri pari e negativi

[gyonny]

ciao raga

sono alle prese con due piccoli problemini che non riesco a correggere.

il primo devo determiare se un numero è pari o dispari
il secondo devo formattare un numero e se negativo in rosso

analis 'variabile contenente un numero integer

if analis = (pari) then
msgbox "numero pari"
else
msgbox "Numero dispari"
end if

myValore = 'numero dooble
text1.text = format(myValore, "#,##0.00")

'in caso di numeri negativi in rosso

by
gyonny

[Gugu]

Ciao, prova così:

Private Sub Command1_Click()
Dim analis As Integer 'variabile contenente un numero integer
analis = CInt(Text2.Text)
If InStr(1, CStr(CDbl(analis) / 2), ",", vbTextCompare) = 0 Then
MsgBox "numero pari"
Else
MsgBox "Numero dispari"
End If

End Sub

Private Sub Command2_Click()
Dim myValore As Double
myValore = CDbl(Text2.Text) 'numero dooble

If myValore > 0 Then
    Text1.ForeColor = vbBlack
Else
    Text1.ForeColor = vbRed
End If

Text1.Text = Format(myValore, "#,##0.00")

'in caso di numeri negativi in rosso

End Sub

Ciao
Gugu

[gyonny]

perfetto
è prorio quello che cercavo

ciao e grazie gugu

gyonny

[biste]

per determinare se il numero è pari puoi usare l'operatore Mod, che ti ritorna il resto della divisione tra 2 numeri

If Val(Text2.Text) Mod 2 = 0 Then
    MsgBox "numero pari"
Else
    MsgBox "Numero dispari"
End If

HTH

[gyonny]

funziona anche con mod

grazie biste

ciao gyonny