Numero inferiore a O

[dex]

Ciao raga
mi serve un mano per capire dove toppo
devo fare una divisione con numeri float, ed evitare la divisione se un numero è 0

Codice: [Seleziona]

Public Btc As Float
Dim Opg as Float
Dim Parcella as String
Opg = 85
IF Btc <> 0 Then
Parcella =  (Opg/Btc) * 1.22 
End If

Il problema è che a Volte Btc è inferiore a 0, Tipo 0,852 e non entra nell'IF

[vuott]

 

Non mi pare che 0,852 sia inferiore a 0....... semmai è inferiore a 1. 


Ad ogni modo, provando questo codice:

Codice: [Seleziona]

Public Sub Main()

Dim Btc As Float
Dim Opg As Float
Dim Parcella As String

Opg = 85

Btc = 0.852

If Btc <> 0 Then
   Parcella = CStr((Opg / Btc) * 1.22)
End

End

a me funziona, ossia è "verificato" dalla condizione IF.

[dex]

Scusa vuott
sara la stanchezza o la vecchiaia.
mea culpa,non avevo visto che La variabile Float Btc non era più float

si può chiudere

[vuott]

non avevo visto che La variabile Float Btc non era più float

...in che senso ?

[dex]

il dato partiva float ma aveva un passaggio che mi era sfuggito dove diventava integer

[kicco]

 

[Gianluigi]

Prova a scrivere:

Codice: [Seleziona]

  Print Int(0.852)

E vedi cosa ti ritorna 

[vuott]

Prova a scrivere:

Codice: [Seleziona]

  Print Int(0.852)

E vedi cosa ti ritorna 

....perché non con Fix( ) allora ?!