VBA Chuyển đổi String để Ngày

Question

Tôi có dữ liệu trong một bảng excel theo định dạng sau:

 
ItemCode       DeliveryDate 
5456987        24.01.2009 
5456988           
5456989        12.24.2009 
5456990        12/24/2009 

tôi đã lưu trữ các giá trị của DeliveryDate trong một mảng. Tôi cần đưa ra quyết định về những điều cơ bản về ngày và sau đó in kết quả trong một trang tính mới. Vì vậy, tôi phải chuyển đổi các giá trị vào mảng:

Dim current as Date, highest as Date, result() as Date 
For Each itemDate in DeliveryDateArray 
    current = CDate(itemDate) 
    if current > highest then 
     highest = current 
    end if 
    ' some more operations an put dates into result array 
Next itemDate 
'After activating final sheet... 
Range("A1").Resize(UBound(result), 1).Value = Application.Transpose(result) 

Thật không may, CDate() chức năng ném các lỗi:

Run-time error '13':

Type mismatch

Có một hàm trong VBA mà có thể:

• phân tích cú pháp chuỗi có mọi định dạng ngày ngày và trả lại đối tượng ngày để làm việc.
• trả lại đối tượng ngày trống, nếu chuỗi trống hoặc không đúng định dạng (để so sánh trong vòng lặp).

Edit:

Để sao chép các lỗi, chỉ cần chạy myDate = CDate("24.01.2009")

Answer 1

Hãy thử sử dụng Replace để xem nó có hiệu quả với bạn hay không. Các vấn đề như tôi thấy nó đã được đề cập một vài lần ở trên là chức năng CDate là nghẹt thở trên các giai đoạn. Bạn có thể sử dụng thay thế để thay đổi chúng thành dấu gạch chéo. Để trả lời câu hỏi của bạn về một hàm trong vba có thể phân tích bất kỳ định dạng ngày nào, không có bất kỳ tùy chọn nào của bạn có giới hạn. = "= DATEVALUE (RC [1])" dd FormulaR1C1

cột A sẽ mm/

Dim current as Date, highest as Date, result() as Date 
For Each itemDate in DeliveryDateArray 
    Dim tempDate As String 
    itemDate = IIf(Trim(itemDate) = "", "0", itemDate) 'Added per OP's request. 
    tempDate = Replace(itemDate, ".", "/") 
    current = Format(CDate(tempDate),"dd/mm/yyyy") 
    if current > highest then 
     highest = current 
    end if 
    ' some more operations an put dates into result array 
Next itemDate 
'After activating final sheet... 
Range("A1").Resize(UBound(result), 1).Value = Application.Transpose(result) 

Answer 2

Hình như nó có thể được ném các lỗi trên hàng dữ liệu rỗng, có bạn đã cố gắng để chỉ cần đảm bảo itemDate isn không có sản phẩm nào trước khi bạn chạy hàm CDate()? Tôi nghĩ rằng đây có thể là vấn đề của bạn.

Answer 3

tôi đã sử dụng mã này::

ws.Range ("A A")./yyyy

RC [1] là cột B, chuỗi TEXT, ví dụ: 01/30/12, KHÔNG PHẢI LÀ LOẠI NGÀY