|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Arredondamento numérico
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Function Round2 (X)
Round2 = Int(X * 100 + ,5)/100
End Function
Function RoundN (X As Interger, N As Interger)
Dim Factor As Long
Factor = 10 ^ N
RoundN = Int(X * Factor + .5)/ Factor
End Function
'Na versão 6 ou superior do VB você pode usar a função Round()
'Ex: Round(Text1.Text,n)
|
|
|
|
|
