[VB6] Integer e arrotondamento

[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