Datum format wijzigen van YYYY-MM-DD naar YYYY-MM-DDTHH:MM:SS

[mause01]

Heren,

Ik heb het volgende gemaakt wat perfect werkt op YYYY-MM-DD.
Maar dit wil ik ook gebruiken voor YYYY-MM-DDTHH:MM:SS.
Ik loop vast met Cdate ik wil daar Cdate & Time hebben.

In de cell geeft deze het correcte format weer maar ik krijg toch een fout door mijn code.
Dit door dat ik niet de tijd heb gedefinieerd.

CODE:

    Set rng = Range("Z7:Z" & lMax)
    If Not Application.Intersect(Target, rng) Is Nothing Then
        For Each aCell In rng
            If aCell.Value <> "" Then
                If CellContentCanBeInterpretedAsADate(aCell) Then
                    cvalue = Format(CDate(aCell.Value), "YYYY-MM-DDTHH:MM:SS")
                    aCell.Value = CStr(cvalue)
                Else
                    aCell.Interior.ColorIndex = 3
                    MsgBox "Incorrect date in cell " & aCell.Address
                End If
            End If
        Next
    End If

Function:

Function CellContentCanBeInterpretedAsADate(cell As Range) As Boolean
    Dim d As Date
    On Error Resume Next
    d = CDate(cell.Value)
    If Err.Number <> 0 Then
        CellContentCanBeInterpretedAsADate = False
    Else
        CellContentCanBeInterpretedAsADate = True
    End If
    On Error GoTo 0
End Function

Bekijk bijlage Sync_Salto_V2.1.0 MvO.rar

 

[alphamax]

[SIZE=1]Option Explicit

Public Function CellContentCanBeInterpretedAsADate(rngRange As Range) As Boolean
    Dim avntRange As Variant
    On Error Resume Next
    CellContentCanBeInterpretedAsADate = False
    avntRange = Split(rngRange.Value, "T")
    CellContentCanBeInterpretedAsADate = IsDate(avntRange(0)) And IsDate(avntRange(1))
End Function[/SIZE]

 

[mause01]

Perfect deze werkt TOP.

Bedankt.