vb6 Num Pari e Dispari

[basy82]

Mi sa ke invece di migliorare....sto diventando più scema..a forza di programmare ..Ho gestito un magazzino di tessuti..in base alle misure etc etc..e poi x ste cavolate mi vengono i dubbi.

Problema....Quando un numero è pari?

If TmpQuantità / 2 = (Int(TmpQuantità) / 2) Then
Print "Num pari"
Else ' se è dispari
Print "Num Dispari"
end if

Cosa c'è di sbagliato qui sopra?...
'----------------------------------
L'ho dovuto sostituire con questo..

If TmpQuantità mod 2=0 Then
Print "Num pari"
Else ' se è dispari
Print "Num Dispari"
end if
'----------------------------------
La stranezza è che funzionava...ieri vado a ricontrollare e mi sballava tutti i calcoli x sta cosa..boh

 

[lukeonweb]

Un esempio banale...

Private Sub Form_Load()
Dim numero As Integer
numero = 1
If numero Mod 2 = 1 Then
Debug.Print "DISPARI"
Else
Debug.Print "PARI"
End If
End Sub

:byebye:

 

[basy82]

'----------------------------------
L'ho dovuto sostituire con questo..

If TmpQuantità mod 2=0 Then
Print "Num pari"
Else ' se è dispari
Print "Num Dispari"
end if
'----------------------------------

Cmq questo mi funziona....solo nn capisco perchè non funzia il primo metodo ke avevo usato...visto ke l'ho visto funzionare coi miei okki...
Bah starò diventando pazza...

 

[lukeonweb]

Perchè non ha molto senso quel controllo...