עזרה פונקציה שסופרת לפי האב'

[hezi_an]

עזרה פונקציה שסופרת לפי האב'

אני כותב פונציה ב vba (אקסל)
הפונקציה שאני מנסה לבנות היא ככה

עד המספר 22 הוא יתן לי א-ת
23 יתן לי אא
24 - אב
25 - אג

וכו'
הצלחתי לכתוב את הקוד עד שני תווים
אני מסתבך עם השלב שזה מגיע לתו השלישי

הקוד שכתבתי הוא

function numb (numb2 as double)
If ((numb2 - (numb2 Mod 22)) / 22) = 0 Then
numb = numb & gem(numb2 + 1)
Else
numb = gem(((numb2 - (numb2 Mod 22)) / 22)) & numb(numb2 Mod 22)
End If

הפונקציה היא numb
הערך שמתקבל הוא numb2
הפונקציה gem לוקחת את המספר והופכת אותו לתו (פונקציה נוספת שבניתי)

השאלה מה אני מכניס במספר גדולים יותר
הבנתי שאני צריך לבדוק מה קורה שהערך גדול מ22
אבל אני לא מצליח להכניס נוסחא שתתן לי את זה לתמיד


אשמח לעזרה
תודה רבה

 

[computer helper]

לולאה

אני לא יודע vb אז אני יכתוב לך בc
לא נראה לי מסובך להבין את זה

int num;
while(--num>=0){
     gem(1+num%22);
     num/=22;
}

זה יתן לך מחרוזת בסדר הפוך, עכשיו תפעיל רברס על זה.
בטח אפשר לעשות כאן פתרון רקורסיבי שיתן מחרוזת לא הפוכה. בהצלחה.