Bài 13
a. Hướng dẫn: Sử dụng thuộc tính CustomFormat để định dạng theo khuôn dạng mong muốn. Có thể dùng các hàm Month, Year v,v…để trích riêng từng thành phần. mong muốn. Có thể dùng các hàm Month, Year v,v…để trích riêng từng thành phần.
b. Chương trình mẫu
Form1.frm
Option Explicit
PrivateSub cmdHienThiGiaTri_Click()
With dtpNgayThang
MsgBox "Ngày " & .Day &" Tháng " & .Month & " Năm " & .Year
End With End Sub
'///---
PrivateSub Form_Load()
dtpNgayThang.Format = dtpCustom '/// Cho phép tuỳ biến định dạng ngày tháng
End Sub
'///---
PrivateSub optMy_Click()
dtpNgayThang.CustomFormat = "MM/dd/yyyy" '/// Định dạng ngày kiểu Mỹ
End Sub
'///---
PrivateSub optNhatBan_Click()
dtpNgayThang.CustomFormat = "yyyy/MM/dd"
End Sub
'///---
PrivateSub optVietNam_Click()
dtpNgayThang.CustomFormat = "dd/MM/yyyy"
End Sub
Bài 14