숫자 하나,10 자리,100 자리 함수 코드 가 져 오기
Function NumberSplit(num)
Dim i,length
length=Len(num)
For i=1 To length
NumberSplit=NumberSplit & num mod 10 & "," '
num = num \ 10 '
Next
NumberSplit=Left(NumberSplit,Len(NumberSplit)-1)
End Function
Menu
Function NumberSplit(num)
Dim i,length
length=Len(num)
For i=1 To length
NumberSplit=NumberSplit & num mod 10 & "," '
num = num \ 10 '
Next
NumberSplit=Left(NumberSplit,Len(NumberSplit)-1)
End Function