by BingoMan » 2005年7月17日(日) 23:46
こんな関数はどうでしょうか。
コード: 全て選択
Function GetN(Num As Long,Kurai As Long)As Long
GetN=Int((Num Mod 10^(Kurai+1))/10^(Kurai))
EndFunction
Num
数字を指定します。
Kurai
Numで指定した値のうち、取得したい位を指定します。
ただし、771の場合、
コード: 全て選択
GetN(771,0)=1
GetN(771,1)=7
GetN(771,2)=7
のように1の位を取得するときに
Kuraiに0を指定することに注意してください。
こんな関数はどうでしょうか。
[code]Function GetN(Num As Long,Kurai As Long)As Long
GetN=Int((Num Mod 10^(Kurai+1))/10^(Kurai))
EndFunction[/code]
[i][b]Num[/b][/i]
数字を指定します。
[i][b]Kurai[/b][/i]
[i][b]Num[/b][/i]で指定した値のうち、取得したい位を指定します。
ただし、771の場合、
[code]GetN(771,0)=1
GetN(771,1)=7
GetN(771,2)=7[/code]
のように1の位を取得するときに[i][b]Kurai[/b][/i]に0を指定することに注意してください。