This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(236.8, 43%, 32%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EP%3C/text%3E%3C/svg%3E)
Hi,
It is having
to the line like
Worksheets(List1).Cells(RowID2, 8).Value = Format(Now - Worksheets(List0).Cells(RowID, 7).Value, "Standard")
Worksheets(List0).Cells(RowID, 7).Value is having the value below.
21/07/2020 6:02:59 PM
How to resolve it?
Hi,
Just checking in to see if the information was helpful. Please let us know if you would like further assistance.
If the response is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.
Click on "Debug" and check all values.
And use the function CDATE for en explict conversion from string to date, see
Worksheets(List0).Cells(RowID, 7).Value is having the value
04/09/2024 12:29:44 PM
But the line below
Worksheets(List1).Cells(RowID2, 8).Value = Format(Now - CDate(Worksheets(List0).Cells(RowID, 7).Value), "Standard")
is returning -145.96 as the result. I think there is mm/dd issue to it. How to correct it?
Can you help?
Maybe you should use Mid, Left and Mid to transform dates like 21/07/2020 to 07/21/2020.
Any help to
due to the 2nd line below?
Dim str30, str31: str30 = CStr(Worksheets(List0).Cells(RowID, 8).Value)
Worksheets(List0).Cells(RowID, 8).Value = Mid(str30, 4, 3) & Left(str30, 3) & Right(Worksheets(List0).Cells(RowID, 8).Value, Len(str30) - 6)
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(172.8, 53%, 26%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EBS%3C/text%3E%3C/svg%3E)
Try breaking the assignment into separate steps so you can see which expression is problematic.
Worksheets(List0).Cells(RowID, 8).Value = Mid(str30, 4, 3)
Worksheets(List0).Cells(RowID, 8).Value = Worksheets(List0).Cells(RowID, 8).Value & Left(str30, 3)
Worksheets(List0).Cells(RowID, 8).Value = Worksheets(List0).Cells(RowID, 8).Value & Right(Worksheets(List0).Cells(RowID, 8).Value, Len(str30) - 6)
xx