Xuân Thanh > 12-12-13, 03:42 PM
Option Explicit
Private Sub Form_Load()
Dim A, B
Dim Check As Boolean
A = 5: B = 5'Khoi tao bien
Check = CBool(A = B)' Returns True
A = 0' Define variable.
Check = CBool(A)' Returns False
End Sub
Option Explicit
Private Sub Form_Load()
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "August 10, 2003"' Khoi tao
MyShortDate = CDate(MyDate)'Returns 8/10/1003
MyTime = "4:35:47 PM"' Khoi tao
MyShortTime = CDate(MyTime)'Returns 4:35:47 PM
End Sub
Option Explicit
Private Sub Form_Load()
Dim MyCurr, MyDouble
MyCurr = CCur(234.456784)
MyDouble = CDbl(MyCurr * 8.2 * 0.01)
End Sub
Option Explicit
Private Sub Form_Load()
Dim MyChar
MyChar = ChrW(65)' Returns A.
MyChar = ChrW(97)' Returns a.
MyChar = ChrW(62)' Returns >.
MyChar = ChrW(37)' Returns %.
End Sub