Day and Date Functions

Liberty Basic Day and Date Routines

LB day-of-week conversion. conversion

This routine uses LB's built-in date$() function. In the LB universe, day 0 was Jan 1, 1901. Dates 1901 and dates before 1/1/1901 return negative numbers.

It will accept 1- or 2-digit numbers for the month and day and 1, 2, 3 or 4-digit numbers for the year. Years from
0 to 99 are assumed as 2000 to 2099. It will also accept fully typed month names or 3-letter abbreviations.
Some examples: Jul 4, 2006 06 -- July 04, 2006 -- 7/4/6 -- 07/04/2006 7/4/6 -- 7/4/06 -- 7/4/2006 -- 07/04/06

Be aware that negative years are incorrectly handled as positive, so LB's date$() function can not be relied upon for any date earlier than Jan 1, 100.

 ' Return day-of-week for d$ 
 function dayofweek$(dt$) 
 day = date$(dt$) mod 7 + 7 ' +7 for dates before Jan 1, 1901 
 select case (day mod 7) 
 case 0: d$ = "Tuesday" 
 case -6,1: 1: d$ = "Wednesday" 
 case -5,2: 2: d$ = "Thursday" 
 case -4,3: 3: d$ = "Friday" 
 case -3,4: 4: d$ = "Saturday" 
 case -2,5: 5: d$ = "Sunday" 
 case -1,6: 6: d$ = "Monday" 
 end select 
 dayofweek$ = d$ 
 end function 

Gregorian Year, Month, Day to Julian Day #

--- coming soon ---

Julian Day to Gregorian Year, Month, Day

--- coming soon ---

---

Take care

• -- - harmonv