vb6 Num Pari e Dispari

basy82

Utente Attivo
31 Dic 2005
210
0
0
siracusa
Mi sa ke invece di migliorare....sto diventando più scema..a forza di programmare :eek: ..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:confused: :confused:
 

lukeonweb

Utente Attivo
5 Mar 2003
5.177
10
38
43
Napoli
www.lucaruggiero.it
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

Utente Attivo
31 Dic 2005
210
0
0
siracusa
basy82 ha scritto:
'----------------------------------
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...:confused:
Bah starò diventando pazza...
 
Discussioni simili
Autore Titolo Forum Risposte Data
StephenSoftware [Visual Basic] Da VB6 a VB.NET Visual Basic 0
G Conversione da VB6 a PHP PHP 8
P [Visual Basic] Copiare file piu' grandi di 2 gb in vb6 senza usare filecopy,usando get e put Visual Basic 6
M [MySql - VB6 sp6] Problema connessione db con alcuni pc (errore Lost connection to MySQL server...). MySQL 1
V [Visual Basic] trovare versione di un .exe con vb6 Visual Basic 0
M VB6 Errore di run-time '91' Programmazione 2
A Ricerca interno RichTexbox Vb6 Presentati al Forum 1
P Rubrica in Vb6 Visual Basic 0
Z [VB.NET] equivalente del comando Attribute (vb6) in VB.NET .NET Framework 1
Z [VB6] Variabile Booleana e Load Form Visual Basic 1
Z [VB6] Listview Visual Basic 0
Z [VB6] Mschart / Listview Visual Basic 0
D VB6 Copiare contenuto di una cartella in un'altra cartella Visual Basic 1
C vb6 query sbagliata Visual Basic 1
T Programmatore vb6 Offerte e Richieste di Lavoro e/o Collaborazione 0
WorldWideWeb Invio SMS da VB6 Visual Basic 0
WorldWideWeb PDF e TXT in un form VB6 Visual Basic 0
WorldWideWeb Invio e-mail tramite oggetto CDO - VB6 Visual Basic 1
WorldWideWeb PictureBox.Circle (VB6) Visual Basic 1
S VB6 da checkbox a variabile Visual Basic 1
M webbrowser vb6 che non clicca bottone Visual Basic 0
S [vb6 - xml - dom] Visual Basic 0
c.ronaldo Winsock Problema (VB6) Programmazione 0
Q VB6 Caricamento spezzettato matrici di controlli Programmazione 0
M [VB6] Crystal report e Autenticazione Win MSSQL Programmazione 0
B vb6 stampa foglio A4 Programmazione 18
C [VB6] visibilità delle variabili/matrici Programmazione 1
B VB6 e crystal report Visual Basic 0
B VB6 Conoscere l'id di un Rs appena creato Programmazione 2
B [Vb6] Stampare etichette su carta Visual Basic 5
O [vb6 e/o c++] connettersi a db access onlined a locale C/C++ 0
C [VB6] Ruotare e salvare due immagini. Visual Basic 0
S [VB6]parametri Programmazione 0
S [VB6]file dati Programmazione 0
A inviare informazioni con VB6 su un sito tramite GET o POST Programmazione 0
B salvataggio area excel in formato gif in vb6 Programmazione 0
X Controllo se record esistente(VB6) Visual Basic 1
C VB6 - XpressSideBar Programmazione 0
max1850 Trovare il num. di ricerche mensili di una keyword SEO e Posizionamento 2
R Num campi max Database 2
filippino Riconoscere numeri pari e dispari con PHP PHP 1
Vale2 Gioca a Pari o Dispari Snippet Javascript 0
G funzione pari e dispari che non va Javascript 5

Discussioni simili