Hola
Encontre esta funcion que esta interesante:
No es exactamente con numeros, pero me parece que te dara una idea de como hacerlo.
Código Delphi
[-]
function TFunciones.DiaDeLaSemana(Fecha: TDate; Completo:Boolean=False): string;
var
DiasSemana:array[1..7] of string;
begin
if Completo then
begin
DiasSemana[1] := 'DOMINGO'; DiasSemana[2] := 'LUNES';
DiasSemana[3] := 'MARTES'; DiasSemana[4] := 'MIERCOLES';
DiasSemana[5] := 'JUEVES'; DiasSemana[6] := 'VIERNES';
DiasSemana[7] := 'SABADO';
end
else
begin
DiasSemana[1] := 'D'; DiasSemana[2] := 'L'; DiasSemana[3] := 'M';
DiasSemana[4] := 'X'; DiasSemana[5] := 'J'; DiasSemana[6] := 'V';
DiasSemana[7] := 'S';
end;
Result := DiasSemana[DayOfWeek(Fecha)];
end;
Con esto se puede establecer en donde esta el dia de semana, seria el mismo caso con numeros, me parece.
En esto de los arrays estoy para aprender pero ten paciencia, ya deben de estar por llegar los maestros.
Saludos