Letter Counter

Today I needed a function that counts in letters. Basically saying 1 equals A, 2 equals B, 26 equals Z, 27 equals AA, …

Here it is in case anyone ever needs this

Function LetterCounter(Number : Integer) Result : Text
IF Number <= 0 THEN EXIT;

IF Number <= 26 THEN
  Result[STRLEN(Result)+1] := 64 + Number
ELSE BEGIN
  LastDigit := Number MOD 26;
  IF LastDigit = 0 THEN LastDigit := 26;
  Result := LetterCounter((Number - LastDigit) / 26 ) + LetterCounter(LastDigit);
END;