Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hướng dẫn] Một số hàm C... trong Access
#1
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)
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Minh Tiên , quan_pc , tranthanhan1962
#2
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
#3
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!
Chữ ký của khanghychu khanghychu,gia nhập Thủ Thuật Access từ 21-01 -16.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hàm] Demo Hàm mở mọi loại file ( Access) maidinhdan 7 1,738 26-05-16, 10:53 AM
Bài mới nhất: lmthu
  Hướng Dẫn Hàm API trong quản lý file và folder maidinhdan 1 291 22-04-16, 09:40 AM
Bài mới nhất: kieu manh
  Hướng Dẫn Một số hàm D trong Access Xuân Thanh 12 6,627 22-01-16, 01:55 PM
Bài mới nhất: khanghychu
  [Hàm] Hàm tách lấy số trong một chuỗi cho trước Xuân Thanh 11 2,126 13-10-15, 10:08 AM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn Demo Code Xếp hạng trong Query giống như hàm Rank trong Excel maidinhdan 0 1,187 02-03-15, 01:01 AM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ