Current Time +2 Hours (keep min and second from Original Time)

[Andresuru]

Hi Excel MVP Team,

Please note I am trying to add 2 hours for the current time keeping the minutes and second for the original time since I need to add a time stamp.

Sub ChangeDateToTime()

'Track date of the Modified Date

Application.ScreenUpdating = False

With Sheets("TrackDate")

Y = Time

.Visible = True
.Range("D2").Value = Date & " " & Y
.Visible = xlSheetVeryHidden

Debug.Print Date & " " & Y


End With

End Sub

Result was 5/11/2022 10:48:37 AM
Result required : 5/11/2022 12:48:37 AM (Current Time +2 hours)

Appreciate your help as soon as possible since I checked many pages and I cannot find a solution.

Thank in advance'
Andres

 

[Andresuru]

Hi Guys,

I guess I find the solution but hopefully this thread will help another people.
It looks like the code works as this: I already check and gave the result required

Sub ChangeDateToTime()

'Track date of the Modified Date

Application.ScreenUpdating = False

Dim LDate As Date
 
LDate = DateAdd("n", 120, Time())

With Sheets("TrackDate")

Y = Time

.Visible = True
.Range("D2").Value = Date & " " & LDate
.Visible = xlSheetVeryHidden

Debug.Print Date & " " & LDate


End With

End Sub

Regards
Andres