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;
}

}