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

[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