<br><font size=2 face="Courier New">> Wondering if there was already a unit available that could</font>
<br><font size=2 face="Courier New">> tell me the day of week a certain date was.  An example perhaps</font>
<br><font size=2 face="Courier New">> would be:</font>
<br>
<br><font size=2 face="Courier New">Try passing this function a packed longint and it should return the weekday in a 0..6 sequence, with 0 being Sunday. Note I didn't compile this so it might need to be tweaked.  :-)</font>
<br>
<br><font size=2 face="Courier New">Jim<br>
</font>
<br>
<br><font size=2 face="sans-serif">Function DayOfWeek (DateToCheck : longint) : byte</font>
<br>
<br><font size=2 face="sans-serif">const</font>
<br><font size=2 face="sans-serif">  FileDays : array[1..12] of byte = (6,2,2,5,0,3,5,1,4,6,2,4);</font>
<br>
<br><font size=2 face="sans-serif">var</font>
<br><font size=2 face="sans-serif">  DateAndTime : datetime;</font>
<br><font size=2 face="sans-serif">  AdjustedYear : integer;</font>
<br>
<br><font size=2 face="sans-serif">begin</font>
<br>
<br><font size=2 face="sans-serif">  unpacktime (DateToCheck,DateAndTime);</font>
<br>
<br><font size=2 face="sans-serif">  //  leap year adjustment</font>
<br><font size=2 face="sans-serif">  if DateAndTime.month > 2 then AdjustedYear := DateAndTime.year else AdjustedYear := pred (DateAndTime.year);</font>
<br>
<br><font size=2 face="sans-serif">  WeekDay := ((DateAndTime.day + (AdjustedYear div 4) - (AdjustedYear div 100) + (AdjustedYear div 400) + DateAndTime.year + FileDays [DateAndTime.month]) mod 7);</font>
<br>
<br><font size=2 face="sans-serif">end;</font>