Mil Gracias Manu ahora lo Puebo !!! Agradecidoooo
"Manu" <
messoft@gmail.com> escribió en el mensaje
news:[email=4939e207@svctag-j7w3v3j....]4939e207@svctag-j7w3v3j....[/email]
> Faltaba un ;
>
> HB_FUNC( ISINTEGER )
> {
> PHB_ITEM pNumber = hb_param( 1, HB_IT_NUMERIC );
>
> if( pNumber )
> {
> hb_retl( HB_IS_NUMINT( pNumber ) );
> }
> else
> {
> hb_retl( FALSE );
> }
> }
>
> Manu escribió:
>> Diego mete este "include" en tus programas:
>>
>> hbextern.ch
>>
>> Por cierto, hacerlo en C es muy fácil así:
>>
>> HB_FUNC( ISINTEGER )
>> {
>> PHB_ITEM pNumber = hb_param( 1, HB_IT_NUMERIC );
>>
>> if( pNumber )
>> {
>> hb_retl( HB_IS_NUMINT( pNumber ) )
>> }
>> else
>> {
>> hb_retl( FALSE );
>> }
>> }
>>
>> Diego Ferreira escribió:
>>> Esa ya la probe ya que sale en el manual de xharbour pero cuando la
>>> coloco en el IDE y trato de Compilar me dice que NO HAYA LA FUNCION
>>> EXTERNA como si le faltara la libreria... en que .LIB de harbour estara
>>> ¿?
>>>
>>>
>>> "Manu" <
messoft@gmail.com> escribió en el mensaje
>>> news:[email=4938cf7b@svctag-j7w3v3j....]4938cf7b@svctag-j7w3v3j....[/email]
>>>> Diego prueba esta función a ver si funciona:
>>>>
>>>> function IsInteger( nNum )
>>>> return( int( nNum ) == nNum )
>>>>
>>>> Te devuelve .t. si el número pasado es integer
>>>>
>>>> Espero que te pirule
>>>>
>>>>
>>>> Diego Ferreira escribió:
>>>>> Holas de nuevo foro. quizas es una tontada pero no veo como saber si
>>>>> un numero ejemplo 1,99 me devuelva Cierto en caso de tener decimales
>>>>> mayores a ,00 o falso en caso contrario. Hay alguna Funcion para esto
>>>>> ? sino m toca inventarme una a mano..!
>>>>>
>>>>> Mil Gracias de Antemano...
>>>>> Diego ferreira
>>>>> Caracas - Venezuela
>>>
>>>