Hàm lập sẵn của VBA

Hàm lập sẵn của VBA

HÀM LẬP SẴN CỦA VBANgười sọan: Msc.Lê Minh TrungKhoa Tóan - Tin ĐHSPTp Hồ Chí Minh CÁC HÀM LẬP SẴN CỦA VBCác hàm chuỗiCác hàm liên quan tới sốCác hàm liên quan tới ngày/tháng Vài điều nói trước…VB 6.0 có một “thư viện” các hàm được lập truớc (built-in function) rất hữu ích.Để sử dụng các hàm lập trước của VB 6.0 cần:Gọi hàm và cung cấp các giá trị cho các tham số  truyền đối số cho các tham số.Sử dụng giá trị trả về của hàm (cho vp phép gán).•Tip: Hàm luôn trả về một giá trị Ví dụ…Hàm Len có cú pháp:Len(Chuỗi) Tham số Chuỗi “tượng trưng” một chuỗi tổng quátTrả về chiều dài (số kí tự) của Chuỗi. Dim Dai As Integer, ThongBao As StringThongBao = “Thong bao hom nay khong co gi de thong báo”Dai = Len(ThongBao) Gọi hàm bằng cách truyền đối số cho các tham sốDài41 Hàm Space…Cú pháp:Space(n)Trả về một chuỗi gồm n khỏang trắng.Space(n,Chuỗi)Trả về một chuỗi gồm n kí tự là kí tự đầu của Chuỗi.Msg = Space(4)Msg = Space(4,”a”) Msg = Space(4,”acd”)Msg = “□□□□“Msg = “aaaa“•Tip:•Space(…) trả về Variant•Space$(…) trả về một chuỗi Gỡ bỏ khỏang trắng ra khỏi một chuỗi với LTrim,Rtrim,Trim…Gỡ bỏ các khỏang trắng bên trái chuỗiLTrim(Chuỗi) Gỡ bỏ các khỏang trắng bên phải chuỗiRTrim(Chuỗi)Gỡ bỏ khỏang trắng hai đầu chuỗi.Trim(Chuỗi)Msg = “□□□Hello World□□□□”LTrim(Msg) RTrim(Msg)Trim(Msg)“Hello World□□□□”“□□□Hello World”“Hello World” Tìm chiều dài của chuỗi…Cú pháp:Len(Chuỗi)Có thể dùng với vòng lặp For – Next để duyệt qua tất cả các kí tự của Chuỗi.Dim I As Integer,Chuoi As String For I=1 To Len(Chuoi) ………………………………… Next I Các hàm cắt chuỗi…Cắt bên trái một số kí tự:Left(Chuỗi,n) :trả về chuỗi gồm n kí tự đầu của chuỗi Chuỗi.Cắt bên phải một số kí tự:Right(Chuỗi,n) : trả về chuỗi n kí tự cuối của chuỗi Chuỗi.Cắt tại vị trí ,n kí tự:Mid(Chuỗi,VịTrí,n) : trả lại chuỗi con của Chũoi bắt đầu tại vị trí VịTrí gồm n kí tự. Ví dụ…Dim Msg As StringMsg= “VB that tuyet voi!”Left$(Msg,7)Right$(Msg,4)Mid$(Msg,4,10) Mid$(Msg,4,100)123456789012345678“VB that”“voi!”“that tuyet”“that tuyet voi!” Mid được dùng như một điều lệnh… Có thể dùng Mid(…) như một lệnh để thay đổi nội dung của một chuỗi.Giả sử: Msg =“Pascal la so 1”Mid$(Msg,1,6)=“VBasic” Msg = “VBasic la so 1”Mid$(Msg,1,6)=“VBasic cua Microsoft” Msg = “VBasic la so 1”Mid$(Msg,1,6)=“VB” Msg = “VBscal la so 1”•Tip:Mid không bao giờ thay đổi chiều dài của chuỗi [...]... CÁC HÀM NGÀY-GiỜ Hàm Date…   Trả về ngày lịch theo dạng thức tháng-ngàynăm(mm-dd-yyyy) cho ngày hiện hành Có thể dùng hàm này để ấn định lại ngày hiện hành cho hệ thống     Date = “mm-dd-yyyy” Date=“mm/dd/yyyy” Nếu ngày ấn định không hợp lệ sẽ báo lỗi Chỉ là ấn định tạm thời Hàm Time…   Dùng Time để đọc giờ khắc hiện tại của đồng hồ hệ thống Dùng Time để thiết lập tạm thời giờ khắc của đồng... trong khỏang [0;1) Để gieo giống lại bộ phát sinh ngẫu số ta dùng hàm Randomize Hàm Int,Fix,Round…  Int(SoThuc): cho phần nguyên của số    Fix(SoThuc): loai bỏ phần thập phân ra khỏi SoThuc   Int(3.4523) ‘=3 Int(-3.4523) ‘=-4 Fix(3.567) ‘=3 Fix(-3.452) ‘=-3 Round(SoThuc[,SoChuSoTPhân])  Round(3.786,2) ‘=3.79 Các hàm khác…  Hàm Sgn(x): hàm dấu trả về 1 nếu x>0 , -1 nếu x thứ sáu Print Weekday("8/14/98“,vbMonday) ‘ 5 -> thứ sáu Hàm DateAdd…   Trả lại ngày mới khi thêm một khỏang thời gian vào ngày đang xét Cú pháp:  NewDate=DataAdd(Interval,number,date) Thiết lập “yyyy” “q” “m” “y” “d” “w” “ww” “h” “n” “s” Mô tả Năm Quí Tháng Ngày của năm (tương tự d) Ngày Tuần Tuần Giờ Phút Giây Hàm DateDiff…   Để tính số tháng, năm,quí ,giờ… khác biệt giữa hai khỏang... Time=“hh:mm:ss” Hàm Mô tả Now Ngày và giờ khắc hiện hành Date Ngày hiện hành Time Giờ khắc hiện hành Hàm DateValue…     Dùng # # để khai báo ngày rất bất tiện Có thể dùng DateValue như giải pháp thay thế Dim Today As Date Today = DateValue(“3-13-2006”) Today = DateValue(“March 13,2006”) Today = DateValue(“Mar 13,2006”) Sẽ báo lỗi “Type Mismatch” vào thời điểm thực thi nếu ngày không tồn tại Hàm DateSerial…... Có thể dùng hàm DateSerial để khai báo ngày     DateSerial(Năm,Tháng,Ngày) Năm từ 09999 DateSerial(2006,1,35): cho một ngày trong tháng hai Dùng TimeSerial để khai báo thời khắc   TimeSerial(Giờ,Phút,Giây) TimeSerial(3,62,30) : ‘4:2:30 Xác định năm nhuận…  If DateSerial(2000,2,29) DateSerial(2000,3,1) Then ‘nam nhuận Else ‘năm không nhuận End If Hàm WeekDay ()… xác định thứ của một ngày…... KiTu thanh Next I Chu hoa tuong ung Đổi tòan bộ chữ thường của Chuỗi sang chữ hoa Hàm so sánh hai chuỗi…  Select Case StrComp(first, second, vbTextCompare) Case 0 ' first = second (e.g "VISUAL BASIC" vs "Visual Basic") Case -1 ' first < second (e.g "C++" vs "Visual Basic") Case 1 ' first > second (e.g "Visual Basic" vs "Delphi") End Select Hàm đổi chữ hoa, chữ thường…  Text = "New York, USA“ Print... Text = "New York, USA“ Print UCase$(Text) ' "NEW YORK, USA" Print LCase$(Text) ' "new york, usa" Hàm đổi chữ hoa, chữ thường…  Text = "New York, USA“ Print StrConv(Text, vbUpperCase) ' "NEW YORK, USA" Print StrConv(Text, vbLowerCase) ' "new york, usa" Print StrConv(Text, vbProperCase) ' "New York, Usa" Hàm tìm kiếm một chuỗi trong chuỗi khác…  InStr([NơiBắtĐầu,]ChuỗiCha,ChuỗiCon)  Tham số NơiBắtĐầu... DateAdd("yyyy", -1, Now) "8/14/97 8:35:48 P.M." ‘ Print DateDiff("m", #1/30/1998#, Now) 7 Print DateDiff("y", #1/30/1998#, Now) 196 Print DateDiff("w", #1/30/1998#, Now) 28 Print DateDiff("ww", #1/1/2000#, Now) -7 Hàm Format… Dạng Hiển thị Format(Now,”m/d-yy”) 3/13-06 Format(Now,”hh:mm”) 08:15 Format(Now,”hh:mm AM/PM”) 08:15 AM Format(Now,”hh:mm mm/dd/yy”) 08:15 03/13/06 . HÀM LẬP SẴN CỦA VBANgười sọan: Msc.Lê Minh TrungKhoa Tóan - Tin ĐHSPTp Hồ Chí Minh CÁC HÀM LẬP SẴN CỦA VBCác hàm chuỗiCác hàm liên quan. các hàm lập trước của VB 6.0 cần:Gọi hàm và cung cấp các giá trị cho các tham số  truyền đối số cho các tham số.Sử dụng giá trị trả về của hàm (cho