I just got a job about a month ago and have been back to work on DarkDATA. I've had to do some "clean up" here with evicting tenants and repairs and trying to balance the budget inside but I'm back at it.
Among other things are date fields. I was going to use dates but then date-time works better arithmetically for everyone because you can (or will soon) have the computer store in a record:
(Assuming "Now" is May 17, 2010)
Now = DFS DATE() `System Date
Due = DFS DATE(Now, "+30d")
DFS Put datafile, "Invoice Date", Now
DFS Put datafile, "Due Date", Due
DFS Save datafile, recnum
Later
------
DFS Load datafile, recnum
InvDate$ = DFS Get(datafile, "Invoice Date", "yyyy/mm/dd")
DueDate$ = DFS Get(datafile, "Due Date", "yyyy/mm/dd")
PRINT "Invoice Date: "; InvDate$ `Shows 2010/05/17
PRINT "Due Date: "; DueDate$ `Shows 2010/06/16
At least that's the plan.
Now I have to go grocery shopping but I'll be back.
Steele
Maybe it's just a bunch of stuff that happens. -- Homer Simpson