VBA para convertir la cadena Fecha

Question

tengo los datos en una hoja de Excel en el siguiente formato:

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

He almacenados los valores de fechaEntrega en una matriz. Necesito tomar una decisión sobre los principios básicos de la fecha y luego imprimir el resultado en una hoja nueva. Así que tengo que convertir los valores en la matriz:

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) 

Desafortunadamente, CDate() función emite el error:

Run-time error '13':

Type mismatch

¿Hay una función en VBA, que puede:

• de análisis string con cualquier formato de fecha y devolver un objeto de fecha para trabajar.
• devuelve un objeto de fecha vacía, si la cadena está vacía o mal formada (para comparación en el ciclo).

Editar:

para reproducir el error, sólo tiene que ejecutar myDate = CDate("24.01.2009")

Answer 1

Intente usar Replace para ver si le conviene. El problema, como lo veo, que se ha mencionado algunas veces arriba, es que la función CDate se está ahogando en los períodos. Puede usar replace para cambiarlos a barras diagonales. Para responder a su pregunta sobre una función en vba que puede analizar cualquier formato de fecha, no hay ninguna que tenga opciones muy limitadas.

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

parece que podría estar lanzando el error en la fila de datos vacía, has necesitado sólo asegúrese de ISN itemDate ¿Está vacío antes de ejecutar la función CDate()? Creo que este podría ser tu problema.

Answer 3

I utiliza este código:

ws.Range ("A: A"). FormulaR1C1 = "= DATEVALUE (RC [1])"

columna A será mm/dd/aaaa

RC [1] es la columna B, la cadena de texto, por ejemplo, 01/30/12, esto no es FECHA TIPO