Concenation d'entier avec macro

Question

Comment concenrer correctement un entier avec une macro? Je dois l'appeler deux fois ici parce que je ne peux pas ajouter quelque chose après « » (erreur)

#define concat(a,b,c) a##b##c 
dim as integer a=10,b=20,c=30,d 
d = a concat(*100+,,)b 
d = d concat(*100+,,)c 
?d 'output = 102030 
sleep 

Answer 1

J'ai trouvé une solution de forum FreeBasic

#define concat(a,b,c) (((a)*100+(b))*100+(c)) 
dim as integer a=10,b=20,c=30,d 
d = concat(a,b,c) 
?d 'output = 102030 
sleep 

Answer 2

#define concat(a,b,c) val(str(a)+str(b)+str(c))