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;
}
}
Ważne artykuły