[futurebasic] Re: [FB] Day of the week routine

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : October 1999 : Group Archive : Group : All Groups

From: Jamin <benjamen@...>
Date: Sun, 17 Oct 1999 10:11:04 +1000
Warren Furman said something like:

> Hi all,
>
> I discovered this goodie, which could be useful to many of us, amongst the
> FB archives. It appears to be exactly what I'm looking for, but I can't
> find the key to extracting the day. Clues, anyone?
>

Heres a bright idea, lets use the toolbox to do it all for us, its much less code...


DIM myDateRec.DateTimeRecSize

myDateRec.Day%   = 17
myDateRec.Month% = 10
myDateRec.Year%  = 1999

myDateAsSeconds& = FN DATE2SECS(@myDateRec)
CALL SECS2DATE(myDateAsSeconds&,@myDateRec)
PRINT "Day Of Week as Number: ";myDateRec.DayOfWeek%

Jamin