ARREDONDAR PARA 0,5 OU 1,00

SERGIOPASCOAL 01/07/2010 00:40:34
#346203
Pessoal o VB6 tem alguma função onde posso arredondar assim:
exemplo:
1,1 = 1
1,2 = 1
1,3 = 1,5
1,4 = 1,5
1,5 = 1,5
1,6 = 2
1,7 = 2
1,8 = 2
1,9 = 2
2,0 = 2
2,1 = 2
2,2 = 2
2,3 = 2,5 assim sucessivamente

ou seja, arredondar, sempre para 0,5 | 1 | 1,5 | 2 | 2,5 .......
obrigado
MOREIRA 01/07/2010 00:50:26
#346204
poste o seu código pra vermos como está fazendo a formatação...
FEDERHEN 01/07/2010 08:51:24
#346217 Resposta escolhida
Private Function Arredondar(ByVal Valor As Double) As Double
Dim Inteiro As Double
Dim Resto As Double
Dim Retorno As Double
Inteiro = Int(Valor)
Resto = Round(Valor - Inteiro, 1)
If Resto <= 0.2 Then
Retorno = Inteiro
ElseIf Resto <= 0.5 Then
Retorno = Inteiro + 0.5
Else
Retorno = Inteiro + 1
End If
Arredondar = Retorno
End Function

Passe o valor que deseja arredondar pelo parametro Valor da função e retornará o desejado...
SERGIOPASCOAL 01/07/2010 08:55:07
#346218
MOREIRA;

No momento estou fazendo um format normal,
exemplo:
Variavel1 = 12,4
text = format(Variavel1, [Ô]##,#[Ô])
Resultado: 12,4 [ô]aqui gostaria que ficasse 12,5

Variavel2 = 12,6
text = format(Variavel1, [Ô]##,#[Ô])
Resultado: 12,6 [ô]aqui gostaria que ficasse 13,0

entende? obrigado
SERGIOPASCOAL 01/07/2010 09:17:27
#346221
Valew FEDERHEN, eh isso mesmo que eu preciso, pensei em contruir uma função, mas achava que existia uma fórmula, obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar