אופיס 365 המרת מספר לאותיות

[אהרן ר]

אני צריך פונקציה שתהפוך מספר לאותיות, המטרה שיהיה לי א, ב, עד 1000 ויותר
האם מישהו יודע לעזור בזה

 

[Rרחמים]

מצאתי פונקציה כזו באתר של דר' ויבי

  Private Function GematriaRev(ByVal value As Integer) As String
        ' פונקציה זו מחשבת את הערך באותיות עבריות עבור המספר
        ' שמועבר אליה כארגומנט

        ' (מערך המכיל את הערכים העבריים (ערכי האחדות) עד האות יוד (לא כולל
        Dim TillYod() As String = {"א", "ב", "ג", "ד", "ה", "ו", "ז", "ח", "ט"}
        ' (מערך המכיל את הערכים העבריים (ערכי העשרות) עד האות קוף (לא כולל
        Dim TillKuf() As String = {"י", "כ", "ל", "מ", "נ", "ס", "ע", "פ", "צ"}
        ' (מערך המכיל את הערכים העבריים (ערכי המאות) 
        Dim TillElef() As String = {"ק", "ר", "ש", "ת", "תק", "תר", "תש", "תת", "תתק", "תתר"}

        ' מציאת מספר האחדות בערך שהועבר לפונקציה
        Dim HebSingles As Integer = Int(value Mod 10)
        ' מציאת מספר העשרות בערך שהועבר לפונקציה
        Dim HebTens As Integer = Int((value Mod 100) / 10)
        ' מציאת מספר המאות בערך שהועבר לפונקציה
        Dim hebHundreds As Integer = Int((value Mod 1000) / 100)

        '  במידה ומספר המאות גדול או שווה לאחד
        If hebHundreds >= 1 Then
            ' הוסף למחרוזת המוחזרת את מספר המאות
            GematriaRev = TillElef(hebHundreds - 1)
        End If

        If HebSingles = 5 And HebTens = 1 Then
            ' במידה ומספר האחדות הוא 5 ומספר העשרות הוא 1
            ' הערך שיוחזר הוא ט"ו
            GematriaRev &= "טו"
        ElseIf HebSingles = 6 And HebTens = 1 Then
            ' במידה ומספר האחדות הוא 6 ומספר העשרות הוא 1
            ' הערך שיוחזר הוא ט"ז
            GematriaRev &= "טז"
        Else
            If HebSingles = 0 And HebTens = 0 Then
                ' במידה שאין ספרת אחדות ומאות - אז אין מה להוסיף
                GematriaRev &= ""
            ElseIf HebTens = 0 Then
                ' במידה שאין ספרת עשרות - נוסיף רק את ספרת האחדות
                GematriaRev &= TillYod(HebSingles - 1)
            ElseIf HebSingles = 0 Then
                ' במידה שאין ספרת אחדות - נוסיף רק את ספרת המאות
                GematriaRev &= TillKuf(HebTens - 1)
            Else
                ' במידה שיש ספרת עשרות וגם מאות נוסיף את שתיהן למחרוזת שתוחזר
                GematriaRev &= TillKuf(HebTens - 1) & TillYod(HebSingles - 1)
            End If
        End If

        If GematriaRev.Length = 1 Then
            ' אם המחרוזת מכילה רק תו אחד, אז יש להוסיף בסופו גרש
            GematriaRev &= "'"
        Else
            ' אם המחרוזת מכילה יותר מתו אחד, אז לפני התו האחרות יש להוסיף גרשיים
            GematriaRev = GematriaRev.Substring(0, GematriaRev.Length - 1) & """" & GematriaRev.Substring(GematriaRev.Length - 1, 1)
        End If

    End Function