VB2005で(1)を１に変換したい

こんにちは。

1つ教えてください。
VB2005で(1)から(20)を0001から0020に変換したいのですが（最初に0を付けて4文字にする)
何かよい方法はありませんか？

宜しくお願いします。

No.1 回答者： naktak 回答日時： 2015/01/23 17:02

string.Format("{0:D4}", value)

value値は数値型である必要があります。
必要に応じて数値にキャストした値を渡してください。

この回答への補足

回答ありがとうざいます。

string.Format("{0:D4}", value)
ですが まる１ を 0001に変換したいのですが。

大丈夫ですか？

補足日時：2015/01/23 18:11

No.2 回答者： naktak 回答日時： 2015/01/23 21:35

> ですが まる１ を 0001に変換したいのですが。

元々の値は"01"という文字列ということでしょうか？
もしそうであれば、Integerに変換すればいいです。
string.Format("{0:D4}", Ctype("01", Integer))


こんな感じ。
Dim target As String = "01"
Dim result As String = String.Format("{0:D4}", CType(target, Integer))
Console.WriteLine(result)

No.3 回答者： wtz 回答日時： 2015/01/26 07:50

ひょっとして (1) とかいうのは機種依存文字の丸数字のことですか?

違っていたらすいません。

この回答への補足

wtzさんありがとうございます。

このサイトで投稿すると変わってしまいますが
まる１は丸数字文字です。まる20まで使います

補足日時：2015/01/26 10:35

No.4 回答者： naktak 回答日時： 2015/01/26 09:58

他の方の回答を見て、なるほどなるほど、囲み文字ことですか。

決め打ちならこんなんでいいのでは。
下のコードでは、もちろん、対象文字1文字である必要があるので、元データが『文字列』ならば、
対象文字を抽出するとか、対象が何文字目なのか把握するとかしないといけませんが。
Const SUBTRACT_VALUE As Integer = 9311 ' 9312が(1)、9331が(20)
Dim target As String = "(20)"
Dim result As String = String.Format("{0:D4}", Convert.ToInt16(target(0)) - SUBTRACT_VALUE)
Console.WriteLine(result)

この回答への補足

naktakさん回答ありがとうございました。

Const SUBTRACT_VALUE As Integer = 931
String.Format("{0:D4}", Convert.ToInt16(vKMK(0)) - SUBTRACT_VALUE)
で変換できました。

感動ですね。
Const SUBTRACT_VALUE As Integer = 9311 ' 9312が(1)、9331が(20)と
ありますが
まる１もまる２も変換できましたがConst SUBTRACT_VALUE
とは何なのでしょうか？

補足日時：2015/01/26 10:32