Excel VBA Lỗi chức năng đúng

Tôi đang cố gắng tự động cập nhật phạm vi ngày trên đầu báo cáo của mình trong Excel dựa trên phạm vi ngày từ dữ liệu tôi tải xuống từ cơ sở dữ liệu văn bản. Trong macro được liệt kê bên dưới, tôi gặp lỗi Thời gian chạy '13': Nhập không khớp PEndDt = Right(PaidDateRange, 8).

Tôi nghĩ biến ngày, PEndDt, không thích nhận Chuỗi. Nhưng tôi đã gán các chuỗi cho các biến ngày trong các macro khác! Bây giờ tôi không biết cách khắc phục điều này. Xin hãy giúp đỡ.

Sub test()

Dim PEndDt As Date
Dim PaidDateRange As String

PaidDateRange = "PAID DATE  1/01/13 -  9/31/13"
PEndDt = Right(PaidDateRange, 8)
Range("A1") = "Report thru " & Format(PEndDt, "Long Date")

End Sub

Vấn đề là trong chuỗi.

31/9/13 không phải là ngày hợp lệ.

31/9/2013 cũng không phải là ngày hợp lệ.

Bạn sẽ phải phân tích chuỗi thành định dạng tháng, ngày, năm

Dim itemDate as String
itemDate = Right(PaidDateRange, 8)

PEndDt = DateSerial(Right(itemDate, 2), Left(itemDate, 2), Mid(itemDate, 4, 2))

Nếu bạn chỉ đặt nó trở lại thành một chuỗi tại sao chuyển đổi thành ngày?

Range("A1") = "Report thru " & Right(PaidDateRange, 8)