投稿日 | : 2004/04/09(Fri) 14:56 |
投稿者 | : 黒影 |
Eメール | : |
URL | : |
タイトル | : Re^6: これだけでも良かった |
もう見ないだろうけど...
もっとスマートなコードにならないかなと思って
「Trim」の位置を変えたりしてデバッグしてたら、
下記だけで良かったんだ...
Private Sub Command1_Click()
Dim l As Integer
Dim p As Integer
Dim strChar As String
'数値チェック
If Not IsNumeric(Text1.Text) Then
MsgBox "正しい値を入力して下さい。", vbExclamation, "入力エラー"
Exit Sub
End If
strChar = Format(Trim(Text1.Text), "#.###")
l = Len(strChar)
'小数点位置取得
p = InStr(strChar, ".")
'整数部チェック
If Len(Mid(strChar, 1, p - 1)) > 9 Then
MsgBox "整数部は9桁以内!!", vbExclamation, "入力エラー"
Exit Sub
End If
'小数部チェック
If Len(Mid(strChar, p + 1, l - p)) > 2 Then
MsgBox "小数部は2桁以内!!", vbExclamation, "入力エラー"
Exit Sub
End If
Label1.Caption = Format(strChar, "#.00")
End Sub