すみません。間違えました。
前のサンプルは、「数値→全角文字」のサンプルでした。
本当は「全角数字→数値」の情報が必要だったんですね。

基本的なロジックは同じですが、「全角数字→数値」のサンプルをアップロードします。
????????????????????????????????????????
//
//グローバル関数 ｢gf_wbyteNumberToDecimal｣
//  全角数字を数値(decimal型)に変換します
//
// IN :(1)wbyteNumber(string)  変換する全角文字列(数字のみ)
//
// OUT:(1)           (decimal) 変換後の数値(decimal型)
//                             エラーの場合、NULLを返す
//
//※\"Jpn_func.pbf\"で、日本語処理関数の定義を必ず行って下さい。
//
decimal d
string s,decString
long l,ll

//変数の初期化
decString = \"\"
ll = Len(wbyteNumber)

//全角数字を半角数字(string型)に変換
For l=1 to ll
s = Mid(wbyteNumber,l,1)

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

Case \"２\"
decString = decString + \"2\"

Case \"３\"
decString = decString + \"3\"

Case \"４\"
decString = decString + \"4\"

Case \"５\"
decString = decString + \"5\"

Case \"６\"
decString = decString + \"6\"

Case \"７\"
decString = decString + \"7\"

Case \"８\"
decString = decString + \"8\"

Case \"９\"
decString = decString + \"9\"

Case \"０\"
decString = decString + \"0\"

Case \"．\"
decString = decString + \".\"

Case \"，\"
/*「，」は、無視する */

Case Else
SetNull(d)
Return(d)

End Choose

Next

d = dec(decString)
If d=0 Then SetNull(d)

Return(d)