Ham VB 6 theo ABC

TOP
Các hàm sắp xếp theo ABC
A B C D E F G
H I J K L M N
O P Q R S T U
V W
X
Y
Z

Tên hàm:
Abs
Mô tả:
Abs (number)
Lấy trị tuyệt đối của số Number
Tham số:
Number
Số cần tính
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyNumber
MyNumber = Abs(50.3)' Returns 50.3.
MyNumber = Abs(-50.3)' Returns 50.3.
End Sub
.................................. Return Top ...................................
Tên hàm:
AppActivate
Mô tả:
AppActivate title [, wait]
Gọi một cửa sổ đang chạy activate (Nếu cửa sổ đó chưa được mở sẽ xảy ra lỗi)
Tham số:
title
Tiêu đề của cửa sổ đó
wait
Thời gian chờ
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyAppID, ReturnValue
AppActivate "Microsoft Word"' Activate Microsoft
' Ham AppActivate co the su dung gia tri do hm shell tra ve
MyAppID = Shell("C:\WORD\WINWORD.EXE", 1)' Run Microsoft Word.
AppActivate MyAppID' Activate Microsoft
' Word.
ReturnValue = Shell("c:\EXCEL\EXCEL.EXE", 1)' Run Microsoft Excel.
AppActivate ReturnValue' Activate Microsoft
' Excel.
End Sub
Tham khảo thêm:
SendKeys
Shell
.................................. Return Top .....................................
Tên hàm:
Array
Mô tả:
Array(arglist)
Gán các giá trị trong arglist vào một mảng.
Tham số:
arglist : chứa giá trị của cần tạo mảng, các giá trị cách nhau bằng dấu phẩy (,).
Giá trị đầu sẽ được gán cho chỉ số index đầu, giá trị thứ 2 gán cho chỉ số index
2...
Ví dụ:
Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
' Return values assume lower bound set to 1 (using Option Base
' statement).
MyDay = MyWeek(2)' MyDay contains "Tue".
MyDay = MyWeek(4)' MyDay contains "Thu".
.................................. Return Top .....................................
Tên hàm:
Asc
Mô tả:
Asc (string)
Chuyển ký tự thành mã Ascii
Tham số:
string
Chuỗi cần chuyển
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyNumber
MyNumber = Asc("A")' Returns 65.
MyNumber = Asc("a")' Returns 97.
MyNumber = Asc("Apple")' Returns 65.
End Sub
Tham khảo thêm:
Chr
.................................. Return Top .....................................
Tên hàm:
AscW
Mô tả:
AscW (string)
Chuyển ký tự thành mã Ascii (hỗ trợ Unicode)
Tham số:
string
Chuỗi cần chuyển
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyNumber
MyNumber = AscW("A")' Returns 65.
MyNumber = AscW("a")' Returns 97.
MyNumber = AscW("Apple")' Returns 65.
End Sub
Tham khảo thêm:
ChrW
.................................. Return Top ....................................
Tên hàm:
Atn
Mô tả:
Atn (number)
Lấy Arctang của số Number
Tham số:
Number
Số cần tính
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim Pi
Pi = 4 * Atn(1)' Tinh gia tri cua hang so Pi
End Sub
Tham khảo thêm:
Cos
Sin
Sqr
Tan
.................................. Return Top ....................................
Tên hàm:
Beep
Mô tả:
Beep
Phát ra tiếng Beep từ loa của hệ thống
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim I
'Phat ra ba tieng beep lien tuc
For I = 1 To 3
Beep
Next I
End Sub
.................................. Return Top ....................................
Tên hàm:
Call
Mô tả:
[Call] name [argumentlist]
Thực thi 1 sub, function hay 1 DLL procedure.
Từ khóa Call thì tùy chọn, nhưng nếu nó được sử dụng thì bạn phải đặt argumentlist
trong dấu đóng mở ngoặc () và nên có truyền đối số.
Tham số:
name : tên thủ tục cần gọi.
argumentlist : danh sách các đối số truyền vào (tùy chọn).
Ví dụ:
' Call a Sub procedure.
Call PrintToDebugWindow("Hello World")
' The above statement causes control to be passed to the following
' Sub procedure.
Sub PrintToDebugWindow(AnyString)
Debug.Print AnyString' Print to the Immediate window.
End Sub
' Call an intrinsic function. The return value of the function is
' discarded.
Call Shell(AppName, 1)' AppName contains the path of the
' executable file.
' Call a Microsoft Windows DLL procedure. The Declare statement must be
' Private in a Class Module, but not in a standard Module.
Private Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
Sub CallMyDll()
Call MessageBeep(0)' Call Windows DLL procedure.
MessageBeep 0' Call again without Call keyword.
End Sub
.................................. Return Top ....................................
Tên hàm:
CallByName
Mô tả:
CallByName (object, procname, calltype[, args()])
Điều khiển một đối tượng thông qua các thuộc tính của nó
Tham số:
object
Tên đối tượng
procname
Tên thuộc tính
calltype
Phương thức giao tiếp
args()
Giá trị mảng
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim Result
' Gan thuoc tinh MousePointer cua Text1 = vbCrosshair
CallByName Text1, "MousePointer", VbLet, vbCrosshair
'Lay thuoc tinh MousePointer hien tai cua Text1
Result = CallByName(Text1, "MousePointer", VbGet)
'Di chuyen Text1 den vi tri 100, 100
CallByName Text1, "Move", VbMethod, 100, 100
End Sub
.................................. Return Top ....................................
Tên hàm:
CBool
Mô tả:
Cbool (expression)
Chuyển đổi biểu thức expression sang kiểu Boolean
Tham số:
expression
Biểu thức cần chuyển đổi
Ví dụ:
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
.................................. Return Top ....................................
Tên hàm:
CByte
Mô tả:
Cbyte (expression)
Chuyển đổi biểu thức expression sang kiểu Byte
Tham số:
expression
Biểu thức cần chuyển đổi
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyDouble, MyByte
MyDouble = 125.5678' khoi tao
MyByte = CByte(MyDouble)' MyByte = 126.
End Sub
.................................. Return Top .....................................
Tên hàm:
CCur
Mô tả:
Ccur (expression)
Chuyển đổi biểu thức expression sang kiểu Currency
Tham số:
expression
Biểu thức cần chuyển đổi
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyDouble, MyCurr
MyDouble = 543.214588' Khoi tao
MyCurr = CCur(MyDouble * 2)' Chuyen doi MyDouble * 2
' Returns (1086.429176) to a
' Returns Currency (1086.4292).
End Sub
.................................. Return Top .....................................
Tên hàm:
CDate
Mô tả:
Cdate (expression)
Chuyển đổi biểu thức expression sang kiểu Date
Tham số:
expression
Biểu thức cần chuyển đổi
Ví dụ:
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
.................................. Return Top .....................................
Tên hàm:
CDbl
Mô tả:
CDbl (expression)
Chuyển đổi biểu thức expression sang kiểu Double
Tham số:
expression
Biểu thức cần chuyển đổi
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyCurr, MyDouble
MyCurr = CCur(234.456784)
MyDouble = CDbl(MyCurr * 8.2 * 0.01)
End Sub
.................................. Return Top ....................................
Tên hàm:
CDec
Mô tả:
Cdec (expression)
Chuyển đổi biểu thức expression sang kiểu Decimal
Tham số:
expression
Biểu thức cần chuyển đổi
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyDecimal, MyCurr
MyCurr = 10000000.0587
MyDecimal = CDec(MyCurr)' Returns 10000000.0587
End Sub
.................................. Return Top .....................................
Tên hàm:
ChDir
Mô tả:
ChDir Path
Thay đổi đường dẫn của các thư mục hiện hành
Tham số:
Path
Đường dẫn muốn đến
Ví dụ:
Option Explicit
Private Sub Form_Load()
ChDir "D:\MyPicture"
End Sub
Tham khảo thêm:
ChDrive
CurDir
Dir
.................................. Return Top ....................................
Tên hàm:
ChDrive
Mô tả:
ChDirve Drive
Thay đổi ổ đĩa hiện hành
Tham số:
Drive
ổ đĩa muốn đến
Ví dụ:
Option Explicit
Private Sub Form_Load()
ChDrive "D:\"
End Sub
Tham khảo thêm:
ChDir
CurDir
Dir
.................................. Return Top .....................................
Tên hàm:
Choose
Mô tả:
Choose(index, choice-1[, choice-2,... [, choice-n]])
Chọn một giá trị trong dãy giá trị cho trước
ham số:
index
Vi trí giá trị muốn chọn
choice-1[, choice-2, ... [, choice-n]]
Dãy giá trị ban đầu
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim Result
Result = Choose(1, "Speedy", "United", "Federal")'Returns Speedy
Result = Choose(3, "Speedy", "United", "Federal")'Returns Federal
End Sub
Tham khảo thêm:
IIf
Switch
.................................. Return Top .....................................
Tên hàm:
Chr
Mô tả:
Chr(charcode)
Chuyển mã Ascii thành ký tự
Tham số:
charcode
Mã cần chuyển
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyChar
MyChar = Chr(65)' Returns A.
MyChar = Chr(97)' Returns a.
MyChar = Chr(62)' Returns >.
MyChar = Chr(37)' Returns %.
End Sub
Tham khảo thêm:
Asc
.................................. Return Top ....................................
Tên hàm:
ChrW
Mô tả:
ChrW(charcode)
Chuyển mã Ascii thành ký tự (Hỗ trợ Unicode)
Tham số:
charcode
Mã cần chuyển
Ví dụ:
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
Tham khảo thêm:
AscW
.................................. Return Top .....................................
Tên hàm:
CInt
Mô tả:
Cint (expression)
Chuyển đổi biểu thức expression sang kiểu Integer
Tham số:
expression
Biểu thức cần chuyển đổi
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyDouble, MyInt
MyDouble = 2345.5678' Khoi tao
MyInt = CInt(MyDouble)' Returns 2346.
End Sub
.................................. Return Top .....................................
Tên hàm:
CLng
Mô tả:
CLng (expression)
Chuyển đổi biểu thức expression sang kiểu Long
Tham số:
expression
Biểu thức cần chuyển đổi
Ví dụ:
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
.................................. Return Top .....................................
Tên hàm:
Close
Mô tả:
Close (#Filenum)' Đóng tập tin đã được mở bằng lệnh Open.
Tham số:
#Filenum : chỉ số của tập tin.
Ví dụ:
Option Explicit
Type Record
ID As Integer
Name As String * 20
End Type
Private Sub Form_Load()
Dim MyRecord As Record
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)' Mo file
Do While Not EOF(1)' Lap cho den khi ket thuc file
Get #1, , MyRecord' Doc mau tin
Debug.Print Seek(1)' In so mau tin
'Seek #1, 3 'Trỏ tới vị trí mẫu tin thứ 3
Loop
Close #1' Dong file.
End Sub
Tham khảo thêm:
Open
.................................. Return Top .....................................
Tên hàm:
Command
Mô tả:
Command
Lấy đối số truyền từ dòng lệnh
Ghi chú:
Ví dụ nếu bạn có ứng dụng tên MyApp thì khi bạn chạy:
MyApp.exe caulacbovb ---> đối số bạn nhận được là: caulacbovb
Ví dụ:
Function GetCommandLine(Optional MaxArgs)
'Declare variables.
Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
'See if MaxArgs was provided.
If IsMissing(MaxArgs) Then MaxArgs = 10
'Make array of the correct size.
ReDim ArgArray(MaxArgs)
NumArgs = 0: InArg = False
'Get command line arguments.
CmdLine = Command()
CmdLnLen = Len(CmdLine)
'Go thru command line one character
'at a time.
For I = 1 To CmdLnLen
C = Mid(CmdLine, I, 1)
'Test for space or tab.
If (C <> " " And C <> vbTab) Then
'Neither space nor tab.
'Test if already in argument.
If Not InArg Then
'New argument begins.
'Test for too many arguments.
If NumArgs = MaxArgs Then Exit For
NumArgs = NumArgs + 1
InArg = True
End If
'Concatenate character to current argument.
ArgArray(NumArgs) = ArgArray(NumArgs) & C
Else
'Found a space or tab.
'Set InArg flag to False.
InArg = False
End If
Next I
'Resize array just enough to hold arguments.
ReDim Preserve ArgArray(NumArgs)
'Return Array in Function name.
GetCommandLine = ArgArray()
End Function
.................................. Return Top .....................................
Tên hàm:
Const
Mô tả:
[Public | Private] Const constname [As type] = expression
Khai báo 1 hằng số. Từ khóa [Public | Private] tùy chọn dùng để định nghĩa phạm vi
sử dụng của hằng số
Tham số:
constname : tên hằng số.
[As type] : kiểu dữ liệu (tùy chọn). Nếu không khai báo sẽ lấy kiểu dữ liệu phù hợp
với giá trị hiện có.
expression : giá trị miêu tả.
Ví dụ:
' Constants are Private by default.
Const MyVar = 459
Const Pi = 3.14
' Declare Public constant.
Public Const MyString = "HELP"
' Declare Private Integer constant.
Private Const MyInt As Integer = 5
' Declare multiple constants on same line.
Const MyStr = "Hello", MyDouble As Double = 3.4567
.................................. Return Top ....................................
Tên hàm:
Cos
Mô tả:
Cos (number)
Lấy Cos của số Number
Tham số:
Number
Số cần tính
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyAngle, MySecant
MyAngle = 1.3' Khoi tao
MySecant = 1 / Cos(MyAngle)' Tinh secant
End Sub
Tham khảo thêm:
Atn
Sin
Sqr
Tan
.................................. Return Top....................................
Tên hàm:
CSng
Mô tả:
CSng (expression)
Chuyển đổi biểu thức expression sang kiểu Single
Tham số:
expression
Biểu thức cần chuyển đổi
Ví dụ:
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
.................................. Return Top ....................................
Tên hàm:
CStr
Mô tả:
CStr (expression)
Chuyển đổi biểu thức expression sang kiểu String
Tham số:
expression
Biểu thức cần chuyển đổi
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyDouble, MyString
MyDouble = 437.324' Khoi tao
MyString = CStr(MyDouble)' Returns "437.324".
End Sub
.................................. Return Top .....................................
Tên hàm:
CurDir
Mô tả:
CurDir ([Drive])
Xem đường dẫn hiện tại trên một ổ đĩa
Tham số:
Drive
ổ đĩa muốn xem
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyPath
' Gia su duong dan hien tai tren o C la "C:\WINDOWS\SYSTEM" .
' Gia su duong dan hien tai tren o D la "D:\EXCEL".
' Gia su o dia hien hanh la o C
MyPath = CurDir' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("C")' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("D")' Returns "D:\EXCEL".
End Sub
Tham khảo thêm:
ChDir
ChDrive
Dir
.................................. Return Top ....................................
Tên hàm:
CVar
Mô tả:
Cvar (expression)
Chuyển đổi biểu thức expression sang kiểu Variant
Tham số:
expression
Biểu thức cần chuyển đổi
Ví dụ:
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
.................................. Return Top ....................................
Tên hàm:
CVErr
Mô tả:
CVErr(errornumber)
Trả về con số kiểu lỗi định nghĩa bởi người dùng.
Tham số:
errornumber : số lỗi.
Ví dụ:
' Call CalculateDouble with an error-producing argument.
Sub Test()
Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
If IsNumeric(Number) Then
CalculateDouble = Number * 2' Return result.
Else
CalculateDouble = CVErr(2001)' Return a user-defined error
End If' number.
End Function
.................................. Return Top ....................................
Tên hàm:
Date
Mô tả:
Hàm: Date
Trả về ngày hiện tại của hệ thống.
Lệnh: Date = date
Đặt lại ngày hiện tại cho hệ thống.
Ví dụ:
'Lấy ngày hiện tại của hệ thống:
Dim MyDate
MyDate = Date' MyDate contains the current system date.
'Đặt lại ngày hiện tại cho hệ thống:
Dim MyDate
MyDate = #February 12, 1985#' Assign a date.
Date = MyDate' Change system date.
.................................. Return Top .....................................
Tên hàm:
DateAdd
Mô tả:
DateAdd(interval, number, date)
Thêm thời gian
Tham số:
interval
Đơn vị thời gian
number
Thời gian thêm vào
date
Thời gian cần thêm vào
Ghi chú:
Dùng cho tham số interval
yyyy
Year
q
Quarter
m
Month
y
Day of year
d
Day
w
Weekday
ww
Week
h
Hour
n
Minute
s
Second
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim FirstDate As Date
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m"' "m" gan don vi la thang
FirstDate = InputBox("Nhap vao thoi gian")' Vi du 08/10/2003
Number = InputBox("Nhap vao so thang ban muon them")'3
' Returns 11/10/2003
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg
End Sub
.................................. Return Top ....................................
Tên hàm:
DateDiff
Mô tả:
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
Tính khoảng thời gian giữa date1 và date2
Tham số:
interval
Đơn vị thời gian
date1
Thời điểm 1
date2
Thời điểm 2
firstdayofweek
Ngày đầu tiên trong tuần
firstweekofyear
Tuần đầu tiên trong năm
Ghi chú:
Dùng cho tham số interval
yyyy
Year
q
Quarter
m
Month
y
Day of year
d
Day
w
Weekday
ww
Week
h
Hour
n
Minute
s
Second
Dùng cho tham số firstdayofweek
vbUseSystem = 0
Sử dụng NLS API setting.
VbSunday = 1
Sunday (default)
vbMonday = 2
Monday
vbTuesday = 3
Tuesday
vbWednesday = 4
Wednesday
vbThursday = 5
Thursday
vbFriday = 6
Friday
vbSaturday = 7
Saturday
Dùng cho tham số firstweekofyear
vbUseSystem 0
Sử dụng NLS API setting.
vbFirstJan1 = 1
Bắt đầu tại tuần thứ nhất trong tháng một (default)
vbFirstFourDays = 2
Bắt đầu tại tuần thứ nhất và có ít nhất 4 ngày trong năm
vbFirstFullWeek = 3
Bắt đầu với cả tuần thứ nhất trong năm
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim TheDate As Date
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg
End Sub
Tham khảo thêm:
DatePart
.................................. Return Top .....................................
Tên hàm:
DatePart
Mô tả:
DatePart (interval, date [,firstdayofweek [, firstweekofyear]])
Rút bất kỳ thông tin ngày tháng và thời gian từ giá trị date
Tham số:
interval
Đơn vị thời gian
date
Thời gian
firstdayofweek
Ngày đầu tiên trong tuần
firstweekofyear
Tuần đầu tiên trong năm
Ghi chú:
Dùng cho tham số interval
yyyy
Year
q
Quarter
m
Month
y
Day of year
d
Day
w
Weekday
ww
Week
h
Hour
n
Minute
s
Second
Dùng cho tham số firstdayofweek
vbUseSystem = 0
Sử dụng NLS API setting.
VbSunday = 1
Sunday (default)
vbMonday = 2
Monday
vbTuesday = 3
Tuesday
vbWednesday = 4
Wednesday
vbThursday = 5
Thursday
vbFriday = 6
Friday
vbSaturday = 7
Saturday
Dùng cho tham số firstweekofyear
vbUseSystem 0
Sử dụng NLS API setting.
vbFirstJan1 = 1
Bắt đầu tại tuần thứ nhất trong tháng một (default)
vbFirstFourDays = 2
Bắt đầu tại tuần thứ nhất và có ít nhất 4 ngày trong năm
vbFirstFullWeek = 3
Bắt đầu với cả tuần thứ nhất trong năm
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim TheDate As Date
Dim Msg
TheDate = InputBox("Enter a date:")' 08/10/2003
Msg = "Quarter: " & DatePart("d", TheDate)' Returns 10
Msg = "Quarter: " & DatePart("m", TheDate)' Returns 08
MsgBox Msg
End Sub
Tham khảo thêm:
DateDiff
.................................. Return Top ....................................
Tên hàm:
DateSerial
Mô tả:
DateSerial (year, month, day)
Chuyển các thông số rời rạc của ngày tháng thành một chuỗi ngày tháng
Tham số:
year
Năm
month
Tháng
day
Ngày
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyDate
MyDate = DateSerial(2003, 8, 10)' Return 8/10/2003
End Sub
Tham khảo thêm:
TimeSerial
.................................. Return Top ....................................
Tên hàm:
DateValue
Mô tả:
DateValue(date)
Chuyển ngày tháng dạng chuỗi sang giá trị
Tham số:
date
Ngày tháng cần chuyển
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyDate
MyDate = DateValue("August 10, 2003")' Return 8/10/2003
End Sub
Tham khảo thêm:
TimeValue
.................................. Return Top .....................................
Tên hàm:
Day
Mô tả:
Day(date)
Lấy thông tin ngày từ chuỗi date
Tham số:
date
Ngày tháng
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyDate, MyDay
MyDate = #8/10/2003#' Khoi tao
MyDay = Day(MyDate)' Returns 10
End Sub
Tham khảo thêm:
Month
Year
.................................. Return Top ....................................
Tên hàm:
Declare
Mô tả:
[Public | Private] Declare Sub name Lib "libname" [Alias "aliasname"] [([arglist])]
hay
[Public | Private] Declare Function name Lib "libname" [Alias "aliasname"]
[([arglist])] [As type]
Khai báo tham chiếu tới 1 thủ tục Sub hay Function trong 1 file DLL (dynamic-link
library).
Từ khóa [Public | Private] tùy chọn chỉ định phạm vi sử dụng.
Tham số:
name : tên Sub hay Function cần gọi.
libname : chỉ rỏ file DLL có chứa Sub hay Function được gọi.
aliasname : chỉ rỏ bí danh của Sub hay Function trong file DLL.
arglist : danh sách các đối số.
As type : kiểu dữ liệu trả về của Function.
Ghi chú:
Nếu sử dụng Function bạn phải chỉ rỏ kiểu dữ liệu trả về.
Phát biểu Declare chỉ được sử dụng ở cấp độ module.
Ví dụ:
' In Microsoft Windows (16-bit):
Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
' Assume SomeBeep is an alias for the procedure name.
Declare Sub MessageBeep Lib "User" Alias "SomeBeep"(ByVal N As Integer)
' Use an ordinal in the Alias clause to call GetWinFlags.
Declare Function GetWinFlags Lib "Kernel" Alias "#132"() As Long
' In 32-bit Microsoft Windows systems, specify the library USER32.DLL,
' rather than USER.DLL. You can use conditional compilation to write
' code that can run on either Win32 or Win16.
#If Win32 Then
Declare Sub MessageBeep Lib "User32" (ByVal N As Long)
#Else
Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
#End If
.................................. Return Top .....................................
Tên hàm:
DeleteSetting
Mô tả:
DeleteSetting appname, section [, key]
Xóa registry
Tham số:
appname
Tên registry
section
Tên section
key
Tên key
Ví dụ:
Option Explicit
Private Sub Form_Load()
' luu mot thong tin registry moi
SaveSetting appname:="MyApp", section:="Startup", _
Key:="Top", setting:=75
SaveSetting "MyApp", "Startup", "Left", 50
' Xoa key Startup trong MyApp
DeleteSetting "MyApp", "Startup"
End Sub
Tham khảo thêm:
GetAllSettings
GetSetting
SaveSetting
.................................. Return Top .....................................
Tên hàm:
Dir
Mô tả:
Dir [(pathname [, attributes])]
Tham số:
pathname
Đường dẫn muốn kiểm tra
attributes
Thuộc tích của file hay folder muốn kiểm tra
Ghi chú:
Dùng cho tham số attributes
vbNormal = 0
Không quan tâm đến thuộc tính của các hồ sơ
vbReadOnly = 1
Chỉ quan tâm đến các hồ sơ có thuộc tính chỉ đọc
vbHidden = 2
Chỉ quan tâm đến các hồ sơ có thuộc tính ẩn
vbVolume = 8
Chỉ quan tâm đến các hồ sơ không có thuộc tính
vbDirectory 16
Chỉ quan tâm đến các thư mục
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyFile, MyPath, MyName
' Myfile = WIN.INI neu file do co ton tai
MyFile = Dir("C:\WINDOWS\WIN.INI")
' Myfile = file dau tien trong thu muc C:Windows\ co duoi la INI
MyFile = Dir("C:\WINDOWS\*.INI")
' Goi lai viec kiem tra
MyFile = Dir
' Myfile = file dau tien trong thu muc C:Windows\ co duoi la TXT va co thuoc tinh an
MyFile = Dir("*.TXT", vbHidden)
MyPath = "c:\"' Gan MyPath = "C:\"
MyName = Dir(MyPath, vbDirectory)' Gan MyName= ten thu muc dau tien trong MyPath
Do While MyName <> ""' Bat dau vong lap
'Bo qua cac thu muc hien tai va thu muc xung quanh
If MyName <> "." And MyName <> ".." Then
' Su dung su so sanh phan theo Bit de chac chac MyName la mot thu muc
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName
End If
End If
MyName = Dir' Nhay den thu muc ke tiep
Loop
End Sub
Tham khảo thêm:
ChDir
ChDrive
CurDir
.................................. Return Top ....................................
Tên hàm:
Environ
Mô tả:
Environ({envstring | number})
Tìm đường dẫn environment của hệ thống
Tham số:
envstring | number
Tên của environment
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim EnvString, Indx, Msg, PathLen' Declare variables.
Indx = 1
Do
EnvString = Environ(Indx)' Lay ten environment
' Kiem tra duong dan co ton tai khong
If Left(EnvString, 5) = "PATH=" Then
PathLen = Len(Environ("PATH"))' lay chieu dai duong dan
Msg = "PATH entry = " & Indx & " and length = " & PathLen
Exit Do
Else
Indx = Indx + 1' Tiep tu voi cac environment khac
End If
Loop Until EnvString = ""
If PathLen > 0 Then
MsgBox Msg
Else
MsgBox "Khong co Path environment nao ton tai."
End If
End Sub
.................................. Return Top .....................................
Tên hàm:
EOF
Mô tả:
EOF(filenumber)
Kiểm tra xem file đã kết thúc chưa
Tham số:
filenumber
Tên file (dạng số #n)
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim InputData
Open "MYFILE" For Input As #1' Mo file de doc
Do While Not EOF(1)' Kiem tra xem file da ket thuc chua
Line Input #1, InputData' Doc tung dong
Debug.Print InputData' in ra tung dong
Loop
Close #1' Dong file
End Sub
Tham khảo thêm:
Loc
LOF
.................................. Return Top ....................................
Tên hàm:
Exp
Mô tả:
Exp(number)
Hàm mũ
Tham số:
Number
Số cần tính
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyAngle, MyHSin
MyAngle = 1.3'Khoi tao
' Tinh hyperbolic sine.
MyHSin = (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2
End Sub
Tham khảo thêm:
Log
.................................. Return Top .....................................
Tên hàm:
FileAttr
Mô tả:
FileAttr(filenumber, returntype)
Xem thuộc tính của file đang mở
Tham số:
filenumber
Tên file (dạng số #n)
returntype
Loại giá trị trả về
Ghi chú:
********Giá trị trả về*********
Input = 1
Nhập
Output = 2
Xuất
Random = 4
Ngẫu nhiên
Append = 8
Thêm vào
Binary = 32
Nhị phân
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim FileNum, Mode, Handle
FileNum = 1' Khoi tao
Open "TESTFILE" For Append As FileNum' Mo File
Mode = FileAttr(FileNum, 1)' Returns 8 (Append file)
Handle = FileAttr(FileNum, 2)' Returns file handle.
Close FileNum' Close file.
End Sub
.................................. Return Top ....................................
Tên hàm:
FileCopy
Mô tả:
FileCopy source, destination
Copy file từ thư mục này sang thư mục khác
Tham số:
source
Đường dẫn nguồn
destination
Đường dẫn đích
Ví dụ:
Option Explicit
Private Sub Form_Load()
FileCopy "D:\MyFile.txt", "C:\MyFile.txt"
End Sub
Tham khảo thêm:
FileLen
Kill
.................................. Return Top ....................................
Tên hàm:
FileDateTime
Mô tả:
FileDateTime (pathname)
Trả về chuỗi ngày giờ mà File được tạo hoặc ngày giờ chỉnh sửa cuối cùng
Tham số:
pathname
Đường dẫn file muốn kiểm tra
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyStamp
' Gia su C:\TestFile.txt duoc chinh sua lan cuoi vao ngay 01/08/2003 4:10:45 PM
MyStamp = FileDateTime("C:\TestFile.txt")' MyStamp = "01/08/2003 4:10:45 PM"
End Sub
.................................. Return Top ....................................
Tên hàm:
FileLen
Mô tả:
FileLen (pathname)
Tra ve so Byte cua File
Tham số:
pathname
Đường dẫn file muốn lấy kích thước
Ví dụ:
Option Explicit
Private Sub Form_Load()
FileLen "D:\MyFile.txt"'Return so byte cua MyFile.txt
End Sub
Tham khảo thêm:
FileCopy
Kill
.................................. Return Top ....................................
Tên hàm:
Filter
Mô tả:
Filter (sourcearray, match [, include [, compare]])
Lọc mảng sourcesrray với giá trị lọc là match
Tham số:
sourcearray
Mảng cần lọc
match
Giá trị lọc
include
Lọc đảo (True hoặc False)
compare
Chỉ rõ kiểu dữ liệu để so sánh trong quá trình lọc
Ghi chú:
Dùng cho tham số compare
vbUseCompareOption = –1
Chế độ tùy chọn, VB sẽ tự động lựa lọai dữ liệu thích hợp
vbBinaryCompare = 0
So sánh nhị phân
vbTextCompare = 1
So sánh chuỗi
vbDatabaseCompare = 2
So sánh dữ liệu
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim selNames() As String
Dim Names(1 To 5) As String
Names(1) = "A"
Names(2) = "B"
Names(3) = "C"
Names(4) = "D"
Names(5) = "E"
selNames = Filter(Names, "A")' Returns "A"
selNames = Filter(Names, "B", False)'Returns "A" , "C", "D", "E"
End Sub
.................................. Return Top ....................................
Tên hàm:
Fix
Mô tả:
Fix (number)
Lấy phần nguyên của số Number
Tham số:
Number
Số cần tính
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyNumber
MyNumber = Int(99.8)' Returns 99.
MyNumber = Fix(99.2)' Returns 99.
MyNumber = Int(-99.8)' Returns -100.
MyNumber = Fix(-99.8)' Returns -99.
MyNumber = Int(-99.2)' Returns -100.
MyNumber = Fix(-99.2)' Returns -99.
End Sub
Tham khảo thêm:
Int
Round
.................................. Return Top ....................................
Tên hàm:
Format
Mô tả:
Format (expression [, format [, firstdayofweek [, firstweekofyear]]])
Chuyển biểu thức expression theo định dạng mong muốn
Tham số:
expression
Biểu thức cần định dạng
format
Kiểu định dạng
firstdayofweek
Ngày đầu tiên trong tuần
firstweekofyear
Tuần đầu tiên trong năm
Ghi chú:
Dùng cho tham số firstdayofweek
vbUseSystem = 0
Sử dụng NLS API setting.
VbSunday = 1
Sunday (default)
vbMonday = 2
Monday
vbTuesday = 3
Tuesday
vbWednesday = 4
Wednesday
vbThursday = 5
Thursday
vbFriday = 6
Friday
vbSaturday = 7
Saturday
Dùng cho tham số firstweekofyear
vbUseSystem 0
Sử dụng NLS API setting.
vbFirstJan1 = 1
Bắt đầu tại tuần thứ nhất trong tháng một (default)
vbFirstFourDays = 2
Bắt đầu tại tuần thứ nhất và có ít nhất 4 ngày trong năm
vbFirstFullWeek = 3
Bắt đầu với cả tuần thứ nhất trong năm
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyTime, MyDate, MyStr
MyTime = #5:04:23 PM#
MyDate = #August 10, 2003#
' Tra ve gio hien tai theo format Long Time
MyStr = Format(Time, "Long Time")
' Tra ve ngay hien tai theo format Long Date
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s")' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM")' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy")' Returns "Sunday, Aug 10 2003".
MyStr = Format(23)' Returns "23".
' Mot so dinh dang theo nguoi dung
MyStr = Format(5459.4, "##,##0.00")' Returns "5,459.40".
MyStr = Format(334.9, "###0.00")' Returns "334.90".
MyStr = Format(5, "0.00%")' Returns "500.00%".
MyStr = Format("HELLO", "<")' Returns "hello".
MyStr = Format("This is it", ">")' Returns "THIS IS IT
End Sub
Tham khảo thêm:
Time
Date
Year
.................................. Return Top ....................................
Tên hàm:
FormatCurrency
Mô tả:
FormatCurrency (Expression [,NumDigitsAfterDecimal [,IncludeLeadingDigit
[,UseParensForNegativeNumbers [,GroupDigits]]]])
Chuyển biểu thức expression theo định dạng Currency
Tham số:
Expression
Biểu thức cần định dạng
NumDigitsAfterDecimal
Số số lẻ sau dấu phẩy
IncludeLeadingDigit
Tham số phụ không cần thiết
UseParensForNegativeNumbers
Tham số phụ không cần thiết
GroupDigits
Tham số phụ không cần thiết
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyStr
MyStr = FormatCurrency("12345", 5)'Returns $12,345.00000
MyStr = FormatCurrency("12.345", 5)'Returns $12.34500
MyStr = FormatCurrency("12.345", 3)'Returns $12.345
End Sub
Tham khảo thêm:
Str
Val
.................................. Return Top....................................
Tên hàm:
FormatDateTime
Mô tả:
FormatDateTime(Date[,NamedFormat])
Tham số:
Date
Ngày giờ cần định dạng
NamedFormat
Kiểu định dạng
Ghi chú:
Dùng cho tham số NamedFormat
vbGeneralDate = 0
GeneralDate
vbLongDate = 1
LongDate
vbShortDate = 2
ShortDate
vbLongTime = 3
LongTime
vbShortTime = 4
ShortTime
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyTime, MyDate, MyStr
MyTime = #3:08:56 PM#
MyDate = #8/10/2003#
MyStr = FormatDateTime(MyTime, vbShortTime)'Returns "15:08"
MyStr = FormatDateTime(MyDate, vbLongDate)'Returns "Tueday, August 10, 2003"
End Sub
Tham khảo thêm:
Date
Time
Year
.................................. Return Top ....................................
Tên hàm:
FormatNumber
Mô tả:
FormatNumber (Expression [,NumDigitsAfterDecimal [,IncludeLeadingDigit
[,UseParensForNegativeNumbers [,GroupDigits]]]])
Chuyển biểu thức expression theo định dạng Number
Tham số:
Expression
Biểu thức cần định dạng
NumDigitsAfterDecimal
Số số lẻ sau dấu phẩy
IncludeLeadingDigit
Tham số phụ không cần thiết
UseParensForNegativeNumbers
Tham số phụ không cần thiết
GroupDigits
Tham số phụ không cần thiết
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyStr
MyStr = FormatNumber("12345", 5)'Returns 12,345.00000
MyStr = FormatNumber("12.345", 5)'Returns 12.34500
MyStr = FormatNumber("12.345", 3)'Returns 12.345
End Sub
Tham khảo thêm:
Str
Val
.................................. Return Top....................................
Tên hàm:
FormatPercent
Mô tả:
FormatPercent(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit
[,UseParensForNegativeNumbers [,GroupDigits]]]])
Chuyển biểu thức expression theo định dạng Percent
Tham số:
Expression
Biểu thức cần định dạng
NumDigitsAfterDecimal
Số số lẻ sau dấu phẩy
IncludeLeadingDigit
Tham số phụ không cần thiết
UseParensForNegativeNumbers
Tham số phụ không cần thiết
GroupDigits
Tham số phụ không cần thiết
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyStr
MyStr = FormatPercent("12345", 5)'Returns 1,234,500.00000%
MyStr = FormatPercent("12.345", 5)'Returns 1,234.50000%
MyStr = FormatPercent("12.345", 3)'Returns 1,234.500%
End Sub
Tham khảo thêm:
Str
Val
.................................. Return Top ....................................
Tên hàm:
FreeFile
Mô tả:
FreeFile [(rangenumber)]
Giải phóng file
Tham số:
rangenumber
Tên file (dạng số #n)
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyIndex, FileNumber
For MyIndex = 1 To 5
FileNumber = FreeFile' Gan FileNumber = Trong
Open "TEST" & MyIndex For Output As #FileNumber' mo file
Write #FileNumber, "This is a sample."' Ghi vào file
Close #FileNumber' Dong file
Next MyIndex
End Sub
.................................. Return Top ....................................
Tên hàm:
Get
Mô tả:
Get [#Filenum, position, ByteArray]
Lấy thông tin từ tập tin được mở theo Binary tại vị trí xác định bởi Position và lưu
vào ByteArray. Số byte lấy ra tùy thuộc vào kích thước của mảng ByteArray. Mỗi khi
lấy ra 1 byte con trỏ tập tin tự động chuyển tới vị trí byte kế tiếp.
Ví dụ:
Dim Str as String * 4
Get #Filenum, 3, Str ---> lấy 4 byte bắt đầu từ byte thứ 3 lưu vào Str.
(nếu có câu lệnh Get tiếp theo mà tham số Position bỏ trống, thì vị trí bắt đầu lấy
ra sẽ là byte thứ 8)
Dim noidung() As Byte
On Error Resume Next
Open fname For Binary Access Read As #1
ReDim noidung(LOF(1))
Get #1, , noidung'Đọc toàn bộ nội dung file vào biến
Close #1
Tham khảo thêm:
Put
.................................. Return Top....................................
Tên hàm:
GetAllSettings
Mô tả:
GetAllSettings (appname, section)
Lấy tất cả thông tin registry của appname
Tham số:
appname
Tên registry
section
Tên section
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MySettings As Variant, intSettings As Integer
' luu mot thong tin registry moi
SaveSetting appname:="MyApp", section:="Startup", _
Key:="Top", setting:=75
SaveSetting "MyApp", "Startup", "Left", 50
'Lay thong tin registry
MySettings = GetAllSettings(appname:="MyApp", section:="Startup")
'Duyet qua va in ra tung hang trong MyApp
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
'Xoa registry
DeleteSetting "MyApp", "Startup"
End Sub
Tham khảo thêm:
DeleteSetting
GetSetting
SaveSetting
.................................. Return Top ....................................
Tên hàm:
GetAttr
Mô tả:
GetAttr (pathname)
Cho biết thuộc tính hiện tại File
Tham số:
pathname
Đường dẫn file muốn gán thuộc tính
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyAttr
' Gia su TESTFILE co thuoc tinh an
MyAttr = GetAttr("TESTFILE")' Returns 2.
' Gia su TESTFILE co thuoc tinh an va thuoc tinh chi doc
MyAttr = GetAttr("TESTFILE")' Returns 3 = 2 + 1
' Gia su MYDIR la thu muc
MyAttr = GetAttr("MYDIR")' Returns 16.
End Sub
Tham khảo thêm:
SetAttr
.................................. Return Top ....................................
Tên hàm:
GetSetting
Mô tả:
GetSetting (appname, section, key [, default])
Lấy thông tin registry
Tham số:
appname
Tên registry
section
Tên section
key
Tên key
default
Giá trị trả về khi hàm không tìm thấy thông tin registry muốn lấy
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MySettings As Variant
'Luu mot thong tin registry moi
SaveSetting "MyApp", "Startup", "Top", 75
SaveSetting "MyApp", "Startup", "Left", 50
'In ra man hinh thong tin registry vua tao
Debug.Print GetSetting(appname:="MyApp", section:="Startup", _
Key:="Left", Default:="25")
'Xoa registry
DeleteSetting "MyApp", "Startup"
End Sub
Tham khảo thêm:
DeleteSetting
GetAllSettings
SaveSetting
.................................. Return Top ....................................
Tên hàm:
Hex
Mô tả:
Hex(number)
Chuyển số Number sang dạng hexadecimal (hệ thập lục phân)
Tham số:
Number
Số cần chuyển
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyHex
MyHex = Hex(5)' Returns 5.
MyHex = Hex(10)' Returns A.
MyHex = Hex(459)' Returns 1CB
End Sub
Tham khảo thêm:
Oct
.................................. Return Top ....................................
Tên hàm:
Hour
Mô tả:
Hour (time)
Lấy thông tin giờ từ chuỗi time
Tham số:
time
Thời gian
Ví dụ:
Option Explicit
Private Sub Form_Load()
Dim MyTime, MyHour
MyTime = #4:35:17 PM#' Khoi tao
MyHour = Hour(MyTime)' Returns 16
End Sub
Tham khảo thêm:
Minute
Second
.................................. Return Top ....................................
Tên hàm:
IIf
Mô tả:
Iif (expr, truepart, falsepart)
Cấu trúc rẽ nhánh 2 điều kiện
Tham số:
expr
Biểu thức điều kiện
truepart
Giá trị trả về nếu biểu thức đúng
falsepart