Tente:
if Valor - Int(Valor) > 0 then
Valor := Int(Valor) + 1;
Lembrando que Valor deve ser Extended.
[]'s
---------------------------------------------------
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---------------------------------------------------
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---------------------------------------------------
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---------------------------------------------------
----- Mensagem original ----
De: Filippe Maymone <[EMAIL PROTECTED]>
Para: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 30 de Junho de 2008 17:34:52
Assunto: [delphi-br] Arredondamento
Galera,
Preciso fazer um arredondamento e não estou conseguindo.
Eu tenho uma conta emcima de um resultado de um clientdataset
(FieldByName( 'Quantidade' ).Value)/ 4)
O resultado as vezes da 4,25 por exemplo ..
Eu preciso que se der maior do que 4,0 por exemplo 4,1 .. arredonde para 5 ..
sempre para maior.
5,5 = 6
4,1 = 5
5,001 = 6
Sempre para maior .. como fazer ?? alguem pode me dar um help ..
obrigado,
Filippe Maymone
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
