Calendar Functions

Dear Technical Helpers & Saviours,

I need to display a calender onscreen where I can specify the month & year and year and it displays the date's in the right row for the day and column for the week. So I guess a bit like the motorbike monthly ones on your office wall's but without the half naked woman.

I need a way of working out what day of the week the 1st falls on, and I thought one way to do this would be to set the date to the 1st of whatever month i'm looking up, reading the day with =systemDate() and then setting the date back again.

Unfortunately I cannot find a date command in BMax and I cannot execute a DOS prompt command because it is a multiplatform program (PC/MAC).

Does anyone know of a good way to solve this, or am I reduced to calculating the date based upon iteration from a known date?

Thank you :)

Currentdate$() will get the date then there's a complicated algo to work out the day.

Zeller's congruence gives the day of the week.

Local dayName$[] = ["Sat","Sun","Mon","Tue","Wed","Thu","Fri"]

Print
Print "Day name for Dec 8, 2005 is " + dayName[ Zeller( 2005, 12, 8 ) ]


Function Zeller( year%, month%, day% )  ' January = 1, February = 2...
                                        ' Returns 0 for Saturday, 1 for Sunday...
   If month < 3
      month :+ 12
      year :- 1
   End If

   century = year / 100
   year = year - 100 * century

   z = day + ( (month+1) * 26 ) / 10 + year + year/4 + century/4 - 2*century

   z :Mod 7
   If z < 0 Then z :+ 7
   Return z

End Function

I was hoping that Bmax would have a calendar gadget built-in. As Purebasic shows it is possible to do this cross-platform. It looks like this:


I wonder if its possible to create a DLL (and the equivalent for Mac/Linux) from PB to do this.

Thank you so much for that snippet Floyd it should prove most useful :)