＞全角で入力された数字を半角の数字に変換したいのですが、どうしたら良いのでしょう？
＞桁数はできれば可変にしたいのですが・・・

以前に書いたサンプルがあります。
Choose Case文を使い、力技で変換しているだけなので、
たいして参考にならないかもしれませんが...
????????????????????????????????????????
//
//グローバル関数 ｢gf_dec_to_wbyte｣
//数値(decimal型)を全角文字列に変換します
// IN :(1)d   (decimal)    変換する数値
//     (2)e   (Integer)    decinmal型の小数点以下の有効桁数(0:整数)
// OUT:(1)    (String)     変換後の全角文字列
//
Int i
String sbyte_string,wbyte_string,s,f
Long l,ll

//書式フォーマットの決定
f = \"#.\"
For I=1 to e
f = f + \"0\"
Next
If f=\"#.\" Then f=\"#\"

//変数の初期化
wbyte_string = \"\"
sbyte_string = String(d,f)
ll = Len(sbyte_string)

//全角文字列への変換
For l=1 to ll
s = Mid(sbyte_string,l,1)

Choose Case s
Case \"1\"
wbyte_string = wbyte_string + \"１\"

Case \"2\"
wbyte_string = wbyte_string + \"２\"

Case \"3\"
wbyte_string = wbyte_string + \"３\"

Case \"4\"
wbyte_string = wbyte_string + \"４\"

Case \"5\"
wbyte_string = wbyte_string + \"５\"

Case \"6\"
wbyte_string = wbyte_string + \"６\"

Case \"7\"
wbyte_string = wbyte_string + \"７\"

Case \"8\"
wbyte_string = wbyte_string + \"８\"

Case \"9\"
wbyte_string = wbyte_string + \"９\"

Case \"0\"
wbyte_string = wbyte_string + \"０\"

Case \".\"
wbyte_string = wbyte_string + \"．\"

Case Else
Return(\"ERROR\")

End Choose

Next

Return(wbyte_string)
????????????????????????????????????????