Printable View
Hi gays,
I made a program in VB6.0 and Access database.
How I can insert system date (time) in program to compare with date/time which appears in toolbar.
It is important because the documents have to folloves each to another by dates, but someone can cick on Adjust Date/Time and change the date to back. I want to block that action by compare real time and Adjust time.
Help me.
Thanks
VB6 has Date(), Time() and Now() functions. The last one returns date and time.
Those functions just return the system time, which would be changed if the user changes the system time (duh). They aren't very useful for protecting against the user changing the time. There are websites that give you time synchs, but they can be problematic. Do you have a server that you could compare times against?
Oh good point. I missed this part " but someone can cick on Adjust Date/Time and change the date to back". In that case, what Shaggy said.
No, I have not a server to compare date (time). Maybe I can build a counter in program?Quote:
Originally Posted by Shaggy Hiker
Thread Moved from General Devleoper to Classic VB6 forum
Well, you can, but the problem with that approach is that the user could change the time when your program isn't running. That would be undetectable.Quote:
Originally Posted by Nuvanda
For when the program is actually running, the process is fairly straightforward. On startup, store Now() to a date variable. Have a timer fire every 1000 milliseconds. In the timer event you increment a counter variable. The idea being that each time the timer fires, Now() should be within a couple seconds of the date variable + counter seconds. If it's more than a few seconds off, it's reasonable to assume the user just changed the system date (or Daylight Saving just happened) and you can adjust your times accordingly.
But again, if your program isn't running you have no way of knowing if the user changed the system time.
I'm not sure what sort of mischief you're trying to guard against, or why it is critical that:
You might consider though that using the usual Date(), Time(), Now() are meant to tell the user what time (and date) it is, not for creating important timestamps.Quote:
the documents have to folloves each to another by dates
The most obvious thing to consider is that Daylight Savings Time can come or go between the creation of two of your "documents." So you might create Document A when Now() reports one time, then a minute later create Document B just after crossing back to Standard Time and have Now() report a time 59 minutes earlier.
Filesystem timestamps are generally in UTC, getting around the problem much of the time.
Date(), Time(), and Now() do not report the system time, but give the system time corrected to the current time zone (i.e. the local time). The system time is UTC.
GetSystemTime Function
None of that solves your dilemma, but should be considered if you're planning to rely on values from the intrinsic date and time functions in VB.
Maybe if you can tell us why:
... we might suggest alternatives.Quote:
the documents have to folloves each to another by dates
For example perhaps you'd be better off with a "document ID" value that gets bumped every time a new "document" is created? That might be more useful in establishing chronology (or ordinality at least).
It means: one working order per day. Those are jobs during the months. Each day you have new working order. You can not back the day before to get a working order, because it is to late. You got a working order which you can do that day or any day later, but you must not go back with date. But customers trick me by changing date in toolbars.Quote:
Originally Posted by dilettante