FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Funcion que me retorna los decimais
Posts: 332
Joined: Thu Nov 17, 2005 09:11 PM
Funcion que me retorna los decimais
Posted: Sun Nov 07, 2010 11:30 PM

Olá, como pego lo decimal de uno valor?

1.240,50

Int() me retorna 1240
Como posso pegar lo 50?

Gracias.

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Funcion que me retorna los decimais
Posted: Mon Nov 08, 2010 02:28 AM

Wanderson:

Intenta con lo siguiente:

MsgInfo(124.50 % 1)

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Funcion que me retorna los decimais
Posted: Mon Nov 08, 2010 12:44 PM

Wanderson

También existe la función MOD

?MOD(123.45,1)

Saludos,

Adhemar

Saludos,



Adhemar C.
Posts: 332
Joined: Thu Nov 17, 2005 09:11 PM
Re: Funcion que me retorna los decimais
Posted: Mon Nov 08, 2010 03:07 PM

Gracias a todos voy a probar.

Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Re: Funcion que me retorna los decimais
Posted: Mon Nov 08, 2010 03:39 PM

Wanderson,

1.240,50
Int() retorna 1240

1240.50 - Int( 1240.50 ) = 0.50

Me parece que es lo que buscas.

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Posts: 159
Joined: Wed Mar 28, 2007 01:19 PM
Re: Funcion que me retorna los decimais
Posted: Tue Nov 09, 2010 11:01 AM

Hola,
Ojo com el MOD:
mod(-12.4,1) retorna 0.6 :wink:
saludos, Euclides

Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Funcion que me retorna los decimais
Posted: Tue Nov 09, 2010 12:27 PM
Sip, alguna veces el MOD falla,,, asi que uso esto:
Code (fw): Select all Collapse
//-------------------------------------------------------------------------------------------------
Function RESTO(nTotal, nDivi)
local nResul, nResto
If nDivi = 0 .OR. nTotal = 0
  Return(0)
EndIf
nResul := INT( nTotal / nDivi )
nResto := nTotal - nResul * nDivi
Return(nResto)

Continue the discussion