0.3 Các kiểu dữ liệu có cấu trúc  (Page 2/4)

Ví dụ 1:

Dim myString As String, Position As Integer

myString = "The *rain in Spain mainly..."

Position = Instr(myString,"*") ' Position sẽ là 5

Nếu trong myString không có dấu "*" thì Position sẽ bằng 0

Ví dụ 2:

Dim KeyValuePair As String, Key As String

Dim Value As String

KeyValuePair = "BeatlesSong=Yesterday"

Pos = Instr(KeyValuePair, "=")

Key = Left(KeyValuePair, Pos-1)

Value = Mid(KeyValuePair, Pos+1)

• Replace: tìm và thay thế chuỗi.

Cú pháp:

Replace(Expression, find, replace[, start[, count[, compare]]])

Trong đó:

- Expression:Biểu thức chuỗi chứa chuỗi cần thay thế.

- find:Chuỗi cần tìm.

- replace: Chuỗi thay thế chuỗi tìm được.

- start:Tương tự như hàm InStr.

- count: Xác định số lần thay thế. Mặc định là 1.

- compare: Tương tự như hàm InStr.

• LTrim (RTrim): cắt tất cả các khoảng trắng bên trái (bên phải của chuỗi)

Cú pháp:LTrim(string)

RTrim(string)

• UCase: đổi chuỗi sang chuỗi gồm các ký tự là chữ hoa.

Cú pháp:UCase(string)

• Asc: cho mã Ascii của một ký tự.
• Chr: trả về ký tự ứng với mã Ascii được chỉ định.

Dim ASCIINumberA As Integer, CharB As String * 1

Dim StrFive As String * 1

ASCIINumberA = Asc("A") ' ASCIINumberA bây giờ bằng 65

CharB = Chr(66)

StrFive = Chr(Asc("0") + 5) ' ta có digit "5"

• InstrRev: tương tự như InStr nhưng việc tìm kiếm được tiến hành từ phải sang.
• Val: Hàm đổi chuỗi sang số.
• Str: Hàm đổi số sang chuỗi.

Kiểu ngày tháng (date)

- Là kiểu mà các biến của nó chứa giá trị ngày tháng.

- Để cho VB biết dữ liệu là kiểu Date ta cần đặt giữa hai dấu # (hoặc cặp “”).

Ví dụ:

Dim D As Date

D = #01/02/98# ‘ Hay “01/02/98”

- Hộp thoại hình IV.1 hiển thị khi ta chọn Regional Setting trong cửa sổ Control Panel của Windows, nó cho phép quy định kiểu ngày tháng tùy thuộc cách mà người dùng quy định. VB xử lý ngày tháng theo kiểu Mỹ, nhưng nếu máy hiển thị theo kiểu Anh thì nó vẫn hiển thị theo kiểu Anh.

- Hàm Now: trả về ngày giờ hiện tại.

Ví dụ: Dùng hàm Now&Format:

MsgBox "NOW IS "&Format (Now, "ddd dd-mmm-yyyy hh:nn:ss")

' sẽ hiển thị

NOW IS Tue 05-Oct-2004 16:15:53

Các loại số

• Để chuyển đổi một chuỗi ra số ta có các hàm Val, CInt, CSng. Ngược lại để chuyển đổi từ số sang chuỗi ta dùng CStr, Str.

Ví dụ:

Dollars = "500"

ExchangeRatePerDollar = "7000"

tempValue= Val(Dollars) * Val(ExchangeRatePerDollar)

VNDong = CStr(tempValue)

MsgBox "Amount in VN Dong is "&VNDong

Ví dụ:

Dollars = "500.0" ExchangeRatePerDollar = "7000.0"'Dùng hàm CSng để đổi chuỗi ra SingletempValue = CSng(Dollars) * CSng(ExchangeRatePerDollar)'Dùng hàm Format để có các dấu phẩy ở ngàn và triệu

‘ và phải có 2 chữ số sau dấu chấm thập phân.VNDong = Format (tempValue, "#,###,###.00")MsgBox "Amount in VN Dong is "&VNDong

• Round: bỏ bớt một số chữ số sau dấu chấm thập phân

Ví dụ:

Round ( 12.3456789, 4 )

chỉ giữ lại 4 con số sau dấu chấm thập phân và cho ta 12.3457

Kiểu object

Biến kiểu Object chứa một địa chỉ 4 Byte trỏ đến đối tượng trong ứng dụng hiện hành hoặc các ứng dụng khác. Dùng lệnh Set để chỉ ra đối tượng cụ thể.