Khai báo kiểu dữ liệu Date không được

[khunglongcodon]

Em có một đoạn Code sao đây:

Sub Ngay()
Dim Ngay As Date
On Error GoTo Loi
Ngay = InputBox("Nhap ngay vao o nay: ", "Nhap ngay")
Loi:
MsgBox "Nhap sai dinh dang ngay!"
Exit Sub
End Sub

sao cái inputbox em nhập ngày 1/1/2010 nó cũng báo lỗi là sao vậy ạ?

 

[ndu96081631]

Em có một đoạn Code sao đây:

Sub Ngay()
Dim Ngay As Date
On Error GoTo Loi
Ngay = InputBox("Nhap ngay vao o nay: ", "Nhap ngay")
Loi:
MsgBox "Nhap sai dinh dang ngay!"
Exit Sub
End Sub

sao cái inputbox em nhập ngày 1/1/2010 nó cũng báo lỗi là sao vậy ạ?

Exit Sub phải nằm trên nhản Loi chứ

Sub Ngay()
Dim Ngay As Date
On Error GoTo Loi
Ngay = InputBox("Nhap ngay vao o nay: ", "Nhap ngay")
Exit Sub
Loi:
MsgBox "Nhap sai dinh dang ngay!"
End Sub

Có lỗi thì mới xuất MsgBox, không lỗi thì Exit Sub

 

[SA_DQ]

Tranh thử SPAM cái, khi trời chưa sáng!

Bạn thử với macro sau

Option Explicit
Sub Ngay()
 Dim Ngay As Date
 On Error GoTo Loi

 Ngay = InputBox("Nhap ngay vao o nay: ", "Nhap ngay")
 MsgBox Ngay & "GPE", , Ngay + 9
 Exit Sub
Loi:
   MsgBox "Nhap sai dinh dang ngay!"
End Sub

Chí ít 2 lần, mà ngày nhập lần sau hơn lần trước 20 ngày!

 

[khunglongcodon]

Em xin cảm ơn ạ. Em mới mua quyển lập trình VBA nên đang mày mò. Em đang cố gắng nắm bắt. Có gì các anh chị cứ góp ý giúp em nhé.