536: Mainline

Once you have a Date instance, you can send that instance day and year messages. The day message answers with the number of days since January 1, 1901:

Workspace
DateHandle := Date newDay: 36 year: 2000. 
Transcript show: DateHandle printString; cr; 
           show: DateHandle year printString; cr; 
           show: DateHandle day printString; cr 
Transcript 
Feb  5, 2000 
2000 
36194