[VB6] Integer e arrotondamento

[Toeke]

Ho bisogno di gestire l'arrotondamento delle variabili integer.

Di default VB se ho un valore = a 1.51 me lo arrotonda a 2.
Come posso impedire che questo accada?



Toe

[biste]

beh certo... come dice il nome Integer contiene interi, prova a utilizzare variabili Single

[Toeke]

Ma se io dovessi arrotondare sempre e comunque per difetto?






Toe

[Toeke]

Ho risolto cosi:

dim i as integer
i= Int(1.51)

Toe

[xegallo]

devi comunque crearti delle variabili con decimali single o double e prendere la sola parte decimale con magari una left$() fino al punto decimale

[Toeke]

Originariamente inviato da xegallo
devi comunque crearti delle variabili con decimali single o double e prendere la sola parte decimale con magari una left$() fino al punto decimale

Toe

[xegallo]

function arrXdiff(inp as single) as integer
   dim sInput as string
   dim i as integer
   sInput = str(inp)
   i = instr(sInput,".")
   arrXdiff = cint(mid$(sinput,1,i -1))
end function

[Toeke]

Originariamente inviato da xegallo

function arrXdiff(inp as single) as integer
   dim sInput as string
   dim i as integer
   sInput = str(inp)
   i = instr(sInput,".")
   arrXdiff = cint(mid$(sinput,1,i -1))
end function

E' un po come aggirare il problema, ma visto che esiste una funzione che fa la stessa cosa semplicemente facendo Int(Valore) credo che usero quest'ultima

Toe


Tnk

[xegallo]

Originariamente inviato da Toeke
E' un po come aggirare il problema, ma visto che esiste una funzione che fa la stessa cosa semplicemente facendo Int(Valore) credo che usero quest'ultima

Toe


Tnk

perchè quando fai il typecast vb fa la funzione round() in automatico