VB.NET InputBox のMessageの出し方で困っています。

VB.NETの超初心者ですのでよろしくお願いします。月曜夜１２時までの宿題提出ですのでご協力いただければ幸いです。

２個のInputBoxへそれぞれ12か月分のRevenue/Expenseをいれます。ButtonRevenueとButtonExpenseと分けてあります。
まず、Revenueを1月から１２月までいれたらCloseして、ButtonExpenseでExpenseを入れます。(Dim strInputBoxMessage As String = )"Enter the Revenue amount for the month #12"が最後にでて入力後、buttonExpenseに行くと、どうやっても"Enter the Expsense amount for the month #13"になってしまいます。intMaxNumberOfEntries = 12 はPublicにいれてあります。この＃１３を＃１からスタートしたいのですが、どのようにやったらいいでしょうか。

No.1 ベストアンサー 回答者： AKARI0418 回答日時： 2010/03/15 08:38

DateTime構造体を有効に使用してください。

まず、
If IsNumeric("インプットボックスの戻り値") Then
DateTime revenueDate = new DateTime(DateTime.Now.Year,Integer.Perse("インプットボックスの戻り値",1)
Integer ExpenseValue = revenueDate.AddMonths(1).Month
End If

これで、12の次は1月にできます。

この回答へのお礼

助かりました。ありがとうございました。

お礼日時：2010/03/15 22:17