. , , , , ..
, :
1.
Sub CInt()
' :
Dim MyDouble, MyInt
MyDouble = 2345.5678
MyInt = CInt(MyDouble)
MsgBox " " & MyDouble & _
" " & MyInt, _
vbInfomation, " "
End Sub
2. , :
Sub Str_CStr()
Dim MyString1 As String
Dim MyString2 As String
MyString1 = Str(459)
MyString2 = CStr(459)
MyString1 = Str(-459.65)
MyString2 = CStr(-459.65)
MyString1 = Str(459.001)
MyString2 = CStr(459.001)
End Sub
Sub Val()
Dim MyValue
MyValue = Val("2345")
MyValue = Val(" 2 34 5")
MyValue = Val("23 and 45")
End Sub
.
1. LCase/UCase:
Sub LCase_UCase()
Dim MyString As String
MyString = InputBox(" :")
MsgBox " : " & LCase(MyString), _
vbInfomation, " "
MsgBox " : " & UCase(MyString), _
vbInfomation, " "
End Sub
2. :
Sub LeftMidRight()
Dim MyString As String
MyString = " "
MsgBox " ! : " & Left(MyString,5) & ", : " & Right(MyString,8) & ", " & _
Mid(MyString, 7, 4) & ".", vbInfomation, MyString
End Sub
3. :
Sub Len()
Dim MyString As String
MyString = InputBox(" :")
MsgBox " " & Len(MyString) & _
" .", vbInfomation, " "
End Sub
4. . , :
Sub Trim()
Dim MyString As String
Dim As String
= " "
MyString = LTrim()
MyString = RTrim()
MyString = Trim()
End Sub
5. :
Sub InStr()
Dim MyString As String
MyStringVal = InStr(" ", "")
If MyStringVal > 0 Then
|
|
MsgBox " , " & MyStringVal & _
"- .", vbInfomation, " "
End If
End Sub
.
1. Date. :
Sub ()
Dim As Date
= Date()
MsgBox " " & , vbInfomation, ""
End Sub
2. Year. :
Sub ()
Dim
= Year(Date)
MsgBox " " & & "- . ", vbInfomation, ""
End Sub
3. Month. :
Sub ()
Dim
= Month(Date)
MsgBox " " & & "- .", vbInfomation, _
""
End Sub
4. Day. :
Sub ()
Dim
= Day(Date)
MsgBox " " & & "- .", vbInfomation, _
""
End Sub
9. : On Error
8.2 . , On Error.
8 :
1) | Sub Error () |
2) | Dim x As Double |
3) | Dim y As Double |
4) | Dim As String |
5) | ' , _ |
6) | On Error GoTo |
7) | x = CDbl(InputBox(" :")) |
8) | y = 1 / x |
9) | MsgBox " :" & y |
10) | Exit Sub |
11) | ' |
12) | : |
13) | MsgBox " : " & Cstr(Err.Number) & "-" & _ Err.Description, vbInformation, "C " |
14) | Select Case Err.Number |
15) | Case 11 |
16) | MsgBox " !", vbExclamation, _ " " |
17) | Case 13 |
18) | MsgBox " !", _ vbExclamation, " " |
19) | Case Else |
20) | MsgBox " !", _ vbExclamation, " " |
21) | End Select |
22) | End Sub |
10- , . , .. , .
:
, On Error. , 20- : . !