Can this meet your needs?

Code:
------------------------------
Text1.Text = Weekday(#1/20/1960#)
------------------------------