-
Một số hàm C... trong Access
Xuân Thanh > 12-12-13, 03:42 PM
Hôm trước giới thiệu với các bạn một số hàm D trong Access. Hôm nay giới thiệu tiép một số hàm C thường dùng
1/ CBoll Function
1.1/ Tên hàm: CBool
1.2/ Mô tả:Cbool (expression)
1.3/ Công dụng : Chuyển đổi biểu thức expression sang kiểu Boolean
1.4/ Tham số:expression là Biểu thức cần chuyển đổi
1.5/ Ví dụ:
Mã: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
2/ CDate Function
2.1/ Tên hàm:CDate
2.2/ Mô tả:Cdate (expression)
2.3/ Công dụng :Chuyển đổi biểu thức expression sang kiểu Date
2.4/ Tham số:expression là Biểu thức cần chuyển đổi
2.5/ Ví dụ:
Mã: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
3/ CDbl Function
3.1/ Tên hàm:CDbl
3.2/ Mô tả:CDbl (expression)
3.3/ Công dụng : Chuyển đổi biểu thức expression sang kiểu Double
3.4/ Tham số:expression là Biểu thức cần chuyển đổi
3.5/ Ví dụ:
Mã:Option Explicit
Private Sub Form_Load()
Dim MyCurr, MyDouble
MyCurr = CCur(234.456784)
MyDouble = CDbl(MyCurr * 8.2 * 0.01)
End Sub
4/ ChrW Function
4.1/ Tên hàm:ChrW
4.2/ Mô tả:ChrW(charcode)
4.3/ Công dụng :Chuyển mã Ascii thành ký tự (Hỗ trợ Unicode)
4.4/ Tham số:charcode là Mã cần chuyển
4.5/ Ví dụ:
Mã: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
(Còn tiếp) -
RE: Một số hàm C... trong Access
Xuân Thanh > 14-12-13, 10:43 AM
5/ CInt Function
5.1/ Tên hàm:CInt
5.2/ Mô tả:Cint (expression)
5.3/ Công dụng :Chuyển đổi biểu thức expression sang kiểu Integer
5.4/ Tham số:expression là Biểu thức cần chuyển đổi
5.5/ Ví dụ:
Mã:Option Explicit
Private Sub Form_Load()
Dim MyDouble, MyInt
MyDouble = 2345.5678' Khoi tao
MyInt = CInt(MyDouble)' Returns 2346.
End Sub
6/ CLng Function
6.1/ Tên hàm:CLng
6.2/ Mô tả:CLng (expression)
6.3/ Công dụng : Chuyển đổi biểu thức expression sang kiểu Long
6.4/ Tham số:expression là Biểu thức cần chuyển đổi
6.5/ Ví dụ:
Mã:Option Explicit
Private Sub Form_Load()
Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45: MyVal2 = 25427.55' Khoi tao
MyLong1 = CLng(MyVal1)'Returns 25427.
MyLong2 = CLng(MyVal2)'Returns 25428.
End Sub
7/ CSng Function
7.1/ Tên hàm:CSng
7.2/ Mô tả:CSng (expression)
7.3/ Công dụng :Chuyển đổi biểu thức expression sang kiểu Single
7.4/ Tham số:expression là Biểu thức cần chuyển đổi
7.5/ Ví dụ:
Mã:Option Explicit
Private Sub Form_Load()
Dim MyDouble1, MyDouble2, MySingle1, MySingle2
MyDouble1 = 75.3421115: MyDouble2 = 75.3421555' khoi tao
MySingle1 = CSng(MyDouble1)' Returns 75.34211.
MySingle2 = CSng(MyDouble2)' Returns 75.34216.
End Sub
8/ CStr Function
8.1/ Tên hàm:CStr
8.2/ Mô tả:CStr (expression)
8.3/ Công dụng : Chuyển đổi biểu thức expression sang kiểu String
8.4/ Tham số:expression là Biểu thức cần chuyển đổi
8.5/ Ví dụ:
Mã:Option Explicit
Private Sub Form_Load()
Dim MyDouble, MyString
MyDouble = 437.324' Khoi tao
MyString = CStr(MyDouble)' Returns "437.324".
End Sub
9/ CVar Function
9.1/ Tên hàm:CVar
9.2/ Mô tả:Cvar (expression)
9.3/ Công dụng : Chuyển đổi biểu thức expression sang kiểu Variant
9.4/ Tham số:expression là Biểu thức cần chuyển đổi
9.5/ Ví dụ:
Mã:Option Explicit
Private Sub Form_Load()
Dim MyInt, MyVar
MyInt = 4534' MyInt is an Integer.
MyVar = CVar(MyInt & "000")' MyVar contains the string 4534000.
End Sub -
RE: Một số hàm C... trong Access
khanghychu > 21-01-16, 11:06 AM
Nhờ bạn giúp mình chút, cảm ơn trước nhé!
mình làm 1 database về quản lí sức khỏe trong đó có:
- t_nhanvien: Manv là khóa chính
- t_lankham: Malankham là khóa chính
- t_ khambenh: gồm Manv, Malankham là khóa chính và nội dung khám
Mình tạo f_khambenh từ t_khambenh. Mình tạo button_Luu. khi Makhambenh rỗng thì thông báo"Ma kham benh rong, yeu cau nhap ma kham benh" phần này mình làm được. Lưu ý: 1 nhân viên có thể có nhiều lần khám. Nhờ bạn giúp mình code: nếu 1 nhân viên trùng Malankham thì sẽ thông báo"Ma kham benh bị trung, xin nhap ma khac". Trân trọng!