Reset the system clock 1

[rgbanse]

We have some jobs that are Date Dependent when pulling data. I the report runs a day late - Bad data. We can reset the computers system date to yesterday - hopefully remember to reset it. Is there some VB that can change the system date to a date other than today and reset to today when done?
thx.
RGB

 

[Databaseguy]

You'll have to make and API call. I think some Virus programs will yell at you if you try this. Tyrone Lumley
augerinn@gte.net

http://server105.hypermart.net/databaseguy

 

[pcdaveh]

An API call isn't needed. Here you go.

Put this in a Form Module under a button click event.

Call SetDate(#1/1/2001#)

Put this in a Database Module

Public Sub SetDate(NewDate As Variant)

On Error Resume Next

DateTime.Date = NewDate

End Sub

 

[pcdaveh]

This code will work for the time:


Public Sub SetTime(NewTime As Variant)

On Error Resume Next

DateTime.Time = NewTime

End Sub

 

[Databaseguy]

Didn't know that. Here's a Star. Tyrone Lumley
augerinn@gte.net

http://server105.hypermart.net/databaseguy