Qué día de la semana le corresponde a cualquier fecha.

Por ejemplo, para saber en qué día cae el 14 de octubre del 2002

void __fastcall TForm1::Button1Click(TObject *Sender)
{

BYTE dia;

dia=DayOfWeek(EncodeDate(2002,10,14));
switch(dia) {
case 1: ShowMessage(« Domingo »);break;
case 2: ShowMessage(« Lunes »);break;
case 3: ShowMessage(« Martes »);break;
case 4: ShowMessage(« Miércoles »);break;
case 5: ShowMessage(« Jueves »);break;
case 6: ShowMessage(« Viernes »);break;
case 7: ShowMessage(« Sábado »);break;
}

}