Change windows system date and time

[Ed in Aus]

Hey does anyone know how to change the systemd date and time via a macro...

what I want to do is record the current date and time in the exact format that windows will take it back in and wind the clock back say ten years, then when the macro is run again or the second macro is run it restores the proper time

 

[Willem!]

Hi,

Check out thiz UtterAccess-thread.

BTW: I would not recommend to alter your systemdate, can't you find a workaround of some kind?

 

[Ed in Aus]

I cannot beleive how simple that is... the work around is doing it manually once a day, so I wanted to make it simpler.

All I have to do is

sub backtothefuture()
Dim MyDate
cells(1,1) = date()
MyDate = date()-365*10' ten years ago approx. Assign a date.
Date = MyDate ' Change system date.
end sub

sub futuretotheback()
Dim MyDate
mydate = cells(1,1)
Date = MyDate ' Change system date.
end sub

Run code 1 before what I need to do then code 2. Thanks for your help I was searching for hours

 

[Willem!]

Glad I could assist!