ARRENDONDAMENTO
Tenho uma variável currency que retorna, por exemplo, 166,6666 quando aplico o format(variavel, "###,###,##0.00") automaticamente este valor é arredondado para cima, como posso pegar só as 2 primeiras casas decimais sem arredondamento?
Obrigada
Nina
Obrigada
Nina
Pode ser que o VB já tenha uma função pronta, mas não achei... e como tava precisando disto ae, dae fiz esta função aqui...
Public Function FuncaoTrunca(ByVal ValorX As Double) As String
Dim LocalVirgula As Integer
LocalVirgula = InStr(1, ValorX, ",", vbTextCompare)
If LocalVirgula > 0 Then
ValorX = Mid(ValorX, 1, LocalVirgula - 1) & Mid(ValorX, LocalVirgula, 3)
End If
FuncaoTrunca = Format(ValorX, "###,###,##0.00")
End Function
espero que ajude,
Public Function FuncaoTrunca(ByVal ValorX As Double) As String
Dim LocalVirgula As Integer
LocalVirgula = InStr(1, ValorX, ",", vbTextCompare)
If LocalVirgula > 0 Then
ValorX = Mid(ValorX, 1, LocalVirgula - 1) & Mid(ValorX, LocalVirgula, 3)
End If
FuncaoTrunca = Format(ValorX, "###,###,##0.00")
End Function
espero que ajude,
Tópico encerrado , respostas não são mais permitidas