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

[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

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

[hghb57]

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

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