Número tipo Long

[asimoes]

Tem como o Harbour trabalhar com tipo long

aa := 11111112222344555555

Esse número é truncado no 15 digito

[asimoes]

Consegui criar a função para trabalhar com ULONGLONG

nResto := C_Resto("11111112222344555555","97")

Código: Selecionar todos

#pragma BEGINDUMP

#include <windows.h>
#include <windef.h>
#include <tlhelp32.h>
#include <hbapi.h>
#include <hbapiitm.h>
#include <string.h>
#include <stdlib.h>

HB_FUNC ( C_RESTO )
{
        
  HB_ULONGLONG    parax1;
  HB_ULONGLONG    parax2;
   
  double resulta;
   
  const char * para1 = hb_parcx(1);
  
  const char * para2 = hb_parcx(2);
  
  parax1 = strtoull(para1, &parax1, 10); 

  parax2 = strtoull(para2, &parax2, 10); //atoi(para2);
 
  resulta = (parax1 % parax2);
  
  hb_retnl( resulta );

}

#pragma ENDDUMP