WMA link
DigitCount
DigitCount[1022]
DigitCount[Floor[Pi * 10^100]]
DigitCount[1022, 2]
DigitCount[1022, 2, 1]