PROBLEM DATE IN VBA

[roykana]

Dear master all,


I have a problem in vba, namely the date results from the vba process do not match in column C
and I use the date with the formula in column D so that I can compare the results in column e.
The results in column e should be the same. Please solve my problem.
this my link : PROBLEM DATE IN VBA.xlsm
file

thanks
roykana

 

[My Aswer Is This]

Dear master all,


I have a problem in vba, namely the date results from the vba process do not match in column C
and I use the date with the formula in column D so that I can compare the results in column e.
The results in column e should be the same. Please solve my problem.
this my link : PROBLEM DATE IN VBA.xlsm
file

thanks
roykana

I never click on links in this forum. Would you please post your code here in the forum.

 

[roykana]

Sub Get_Data_From_File()
    Dim L As Integer
    Dim LastRow As Long
    Dim LastColumn As Long
    Application.ScreenUpdating = False
        LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row
        LastColumn = Range("A1").SpecialCells(xlCellTypeLastCell).Column

    For L = 2 To LastRow
    Cells(L, 3).Value = DateSerial(Mid(Cells(L, 2), 11, 4), Mid(Cells(L, 2), 4, 2), Mid(Cells(L, 2), 1, 2))
    Next L
    
    Application.ScreenUpdating = True
    End Sub

 

[joeu2004]

In Excel, you correctly write:

=DATE(MID(B2,7,4),MID(B2,4,2),MID(B2,1,2))

In VBA, you incorrectly write:

Cells(L, 3).Value = DateSerial(Mid(Cells(L, 2), 11, 4), Mid(Cells(L, 2), 4, 2), Mid(Cells(L, 2), 1, 2))

 

[roykana]

In Excel, you correctly write:

=DATE(MID(B2,7,4),MID(B2,4,2),MID(B2,1,2))

In VBA, you incorrectly write:

Cells(L, 3).Value = DateSerial(Mid(Cells(L, 2), 11, 4), Mid(Cells(L, 2), 4, 2), Mid(Cells(L, 2), 1, 2))

ok thanks