hex to bcd second edition

Hallo Andreas und der Rest des Forums,
"typecasting" habe ich leider nicht verstanden, kannst du bitte mal ein 
Beispiel posten.

Meine Lösung:

bcd=(hex/1000<<12)+(hex%1000/100<<8)+
    (hex%100/10<<4)+(hex%10);

Geht es vielleicht etwas eleganter ?

Danke Reini