Date change after vba running

[Rana2014]

Dear all,

could you please help how to resolved this issue
why the date in the column #K# if the day <12 the date showing as mm-dd-yyyy instead of dd-mm-yyyy

please help

Thanks

Sub WYN()

    Dim r As Range

    Dim a, ms

            

    With CreateObject("Scripting.Dictionary")

        For Each r In Range("A2", Cells(Rows.Count, 1).End(xlUp))

            ms = r.Offset(, 4).Value

            If .Exists(ms) Then

                a = .Item(ms)

                a(1, 12) = a(1, 12) + r.Offset(, 11)

                .Item(ms) = a

            Else

                a = r.Resize(, 13).Value

                .Item(ms) = a

            End If

        Next

        a = Application.Transpose(Application.Transpose(.items))

        Cells(Rows.Count, 1).End(xlUp)(3, 1).Resize(UBound(a), 13) = a

        [a2].CurrentRegion.Offset(1).Delete xlUp

        [a2].CurrentRegion.Columns("j").NumberFormat = "hh:mm:ss"

           [a2].CurrentRegion.Columns("k").NumberFormat = "dd-mm-yyyy”

    End With

End Sub

 

[Fluff]

Duplicate to: Vba dd-mm-yyyy

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.