FreeVBCode code snippet: Day of Week Function