Cette fonction retourne le jour de la semaine de la date indiqué.
Function DayOfWeek(Date: TDateTime):Integer;