• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Một số hàm C... trong Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư Viện Hàm
  • Hướng Dẫn Một số hàm C... trong Access
• Một số hàm C... trong Access

• 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!
• Bài trước Bài tiếp