PROBLEMA... NAO ARREDONDAR...

USUARIO.EXCLUIDOS 29/03/2005 10:55:16
#75542
GALERA TENHO UM NUMERO QUE é A NOTA DE UM ALUNO... SO QUE DEPOIS DA
MEDIA O NUMERO FICOU ASSIM
5.756
COMO FAZER COM QUE ELE FIQUE
ASSIM
5,7 OU 5,75
??? AJUDA POR FAVOR..
USUARIO.EXCLUIDOS 29/03/2005 10:59:22
#75544 Resposta escolhida
Dica 'Quente' faça assim cara...

Public Function NoArred(Valor As Double, Itens As Single) As Double
NoArred = CDbl(Mid$(CStr(Valor), 1, InStr(1, CStr(Valor), ".") + Itens))
End Function

Private Sub Command1_Click()
MsgBox NoArred(5.75666, 4)
End Sub

Onde 4 é o número de itens, contando com a ','...
com 4 vai sair 5,75
com 3 vai sair 5,7

Entendeu?
[txt-color=#ff0000]Por favor, não se esqueça de ENCERRAR o tópico...[/txt-color]
Tópico encerrado , respostas não são mais permitidas
Voltar