[VB6] Integer e arrotondamento

[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