جدا كردن اعداد سه رقم سه رقم و گذاشتن داخل تكست هاي جداگانه

با سلام
من براي يك گزارش نياز دارم كه اعداد را سه رقم سه رقم جدا كنم و هر كدام را داخل يك تكست باكس بگذارم.

Public Function number3digit(num As Long, state As Integer) As Integer



If state = 1 Then number3digit = Right(num, 3)



If state = 2 Then number3digit = Left(Right(num, 6), 3)



If state = 3 Then number3digit = Left(Right(num, 9), 3)



End Function

اين روش را امتحان كردم ولي اشتباه است.

نقل قول:

---

نوشته شده توسط sajjad_kochekian

با سلام
من براي يك گزارش نياز دارم كه اعداد را سه رقم سه رقم جدا كنم و هر كدام را داخل يك تكست باكس بگذارم.

Public Function number3digit(num As Long, state As Integer) As Integer



If state = 1 Then number3digit = Right(num, 3)



If state = 2 Then number3digit = Left(Right(num, 6), 3)



If state = 3 Then number3digit = Left(Right(num, 9), 3)



End Function

اين روش را امتحان كردم ولي اشتباه است.

---

اين تابع را امتحان كن ولي بهتره خروجي تابع از نوع رشته اي باشد

Public Function number3digit(num As Long, state As Integer) As Integer

    S = CStr(num)

    

    F = ""

    For i = 1 To state

        F = F & "000"

    Next i

    S = Format(S, F)

    n = Len(S)

    number3digit = Mid(S, n + 1 - (state * 3), 3)

End Function