19 respuestas en este tema

[egostar]

Hola amigos, a ver si me puedo explicar

Resulta que necesito encontrar los días correspondientes a una semana dada, es decir en el año tenemos 52 semanas, pero necesito saber que días contiene, por ejemplo, si busco en cualquier calendario de 2014 veo que la Semana 22 inicia el 26 mayo y termina el 1° junio.

El problema es que necesito saber en base al año y número de semana cuales días contiene, estoy soñando algo como ésto:

delphi

function getDias(const anio,semana: integer):TStringList;

¿ alguna idea de como obtener dichos días ?

Saludos y gracias

[eduarcol]

y no es siempre 7 dias? o hay semanas cortas y semanas santas?? jejeje

[egostar]

y no es siempre 7 dias? o hay semanas cortas y semanas santas?? jejeje

pues...... tieners razón, no había pensado en eso

No wey, quiero saber Qué días no Cuantos días  

Saludos

[eduarcol]

Disculpa sigo sin entender, si ejecutas esto:

function getDias(2014, 3):TStringList;

que esperas obtener?

[TiammatMX]

...Resulta que necesito encontrar los días correspondientes a una semana dada, es decir en el año tenemos 52 semanas, pero necesito saber que días contiene, por ejemplo, si busco en cualquier calendario de 2014 veo que la Semana 22 inicia el 26 mayo y termina el 1° junio.

El problema es que necesito saber en base al año y número de semana cuales días contiene, estoy soñando algo como ésto:

delphi

function getDias(const anio,semana: integer):TStringList;

...

Delphi tiene una función StartOfMonth() que te devuelve el día en que inicia el mes. También una función WeekOfYear la cual se basa en el día para darte la semana..., ¿algo más que se me olvide?

[Fenareth]

Disculpa sigo sin entender, si ejecutas esto:

function getDias(2014, 3):TStringList;

que esperas obtener?

Se esperaría obtener un TStringList que contenga:

12/Enero/2014
13/Enero/2014
14/Enero/2014
15/Enero/2014
16/Enero/2014
17/Enero/2014
18/Enero/2014

Que corresponden a los días que pertenecen a la semana 3 del 2014...

Saludox !

[egostar]

...Resulta que necesito encontrar los días correspondientes a una semana dada, es decir en el año tenemos 52 semanas, pero necesito saber que días contiene, por ejemplo, si busco en cualquier calendario de 2014 veo que la Semana 22 inicia el 26 mayo y termina el 1° junio.

El problema es que necesito saber en base al año y número de semana cuales días contiene, estoy soñando algo como ésto:

delphi

function getDias(const anio,semana: integer):TStringList;

...

Delphi tiene una función StartOfMonth() que te devuelve el día en que inicia el mes. También una función WeekOfYear la cual se basa en el día para darte la semana..., ¿algo más que se me olvide?

Gracias Felipe, el punto es que el número de la semana y el año ya los tengo, lo que necesito es saber que días son los que corresponden a la semana dada.

Disculpa sigo sin entender, si ejecutas esto:

function getDias(2014, 3):TStringList;

que esperas obtener?

Se esperaría obtener un TStringList que contenga:

12/Enero/2014
13/Enero/2014
14/Enero/2014
15/Enero/2014
16/Enero/2014
17/Enero/2014
18/Enero/2014

Que corresponden a los días que pertenecen a la semana 3 del 2014...

Saludox !

Efectivamente; tal como lo dices es como necesito obtener los días de la semana.

Saludos

[Sergio]

Pues yo lo haria asi:

Semana 13 implica que el dia (13-1)*7 del año 2014, el 91, es de esa semana (el -1 es porque el 1/1/2014 ya de la semana 1, no la 0, aunque esto no lo se seguro, la semana 1 puede no empezar el 1/1 habría que adaptarlo), asi que si calculo ese dia, solo necesito ir para atras hasta que localice el lunes de esa semana, ese y los 6 siguientes son los que buscas:

delphi

function GetDias(Anio, Mes: integer): TStringList;
var
  i: integer;
  dia: TDate;
begin
  result:= TStringList.create;
  dia:= StrToDate('01/01/'+IntToStr(Anio)) + (Semana-1)*7;
  while DayOfTheWeek(dia)<>1 do
    dia:= dia-1;
  for i:= 0 to 6 do
    result.add(DateToStr(dia+i));
end;

Es de memoria, así que alguna línea podría no compilar, pero la idea se entiende.

Ojo que exactamente no se cual seria la semana 1 si el año empieza en viernes, igual la 1 empezaria el primer lunes del año. Esto habría que cambiarlo según sea el criterio bueno.

[seoane]

Se me han adelantado, pero lo dejo igual 

delphi

function getDias(const anio,semana: integer):TStringList;
var
  i: Integer;
  F: TDateTime;
begin
  F:= EncodeDate(anio,1,1);
  for i:= 2 to Semana do
    F:= F + 7;
  F:= 1 + F - DayOfWeek(F);
  Result:= TStringList.Create;
  for i:= 0 to 6 do
    Result.Add(DateToStr(F+i));
end;

[egostar]

Prueba con código Sergio

Semana 22
26/05/2014
27/05/2014
28/05/2014
29/05/2014
30/05/2014
31/05/2014
01/06/2014

Semana 3
13/01/2014
14/01/2014
15/01/2014
16/01/2014
17/01/2014
18/01/2014
19/01/2014

Prueba con código de Seoane

Semana 22
25/05/2014
26/05/2014
27/05/2014
28/05/2014
29/05/2014
30/05/2014
31/05/2014

Semana 3
12/01/2014
13/01/2014
14/01/2014
15/01/2014
16/01/2014
17/01/2014
18/01/2014

Muy interesante, excelentes códigos, rápidos, concisos y precisos, hay un detalle que me parece es un tema de año bisiesto.

Muchas gracias

[egostar]

Ah no no

Yo soy el que está mal, depende de que día inicie la semana, Sergio la incia en lunes y Seoane en Domingo.

Excelente amigos,



Saludos

[seoane]

Ah no no

Yo soy el que está mal, depende de que día inicie la semana, Sergio la incia en lunes y Seoane en Domingo.

Excelente amigos,



Saludos

Efectivamente, aquí en España es costumbre empezar la semana los lunes, pero después del ejemplo que puso Fenareth supuse que la costumbre por allí es diferente

[Sergio]

¿Mi código compiló? ...no me lo creo!

[egostar]

¿Mi código compiló? ...no me lo creo!

Bueno, sólo tuve que cambiar MES por SEMANA en los parámetros de la función, pero por lo demás funcionó y muy bien  

Saludos

[egostar]

Ah no no

Yo soy el que está mal, depende de que día inicie la semana, Sergio la incia en lunes y Seoane en Domingo.

Excelente amigos,



Saludos

Efectivamente, aquí en España es costumbre empezar la semana los lunes, pero después del ejemplo que puso Fenareth supuse que la costumbre por allí es diferente

Pensé que lo habías hecho para no ajustarte a la norma ISO 8601

En los calendarios que tengo por aquí, incluso en el calendario de mi computadora la semana comienza en domingo

Saludos

[escafandra]

Propongo una solución que tiene en cuenta el primer día de la semana de la misma forma que TMonthCalendar (valor 1 para el lunes):

delphi

function getDias(const anio,semana: integer; FirstDayOfWeek: integer = 1): TStringList;
var
  date: TDate;
  i: integer;
begin
  date:= encodedate(anio, 1, 1) + semana*7-DayOfWeek(date)+(FirstDayOfWeek mod 7)-3;
  Result:= TStringList.Create;
  for i:= 0 to 6 do
    Result.Add(DateToStr(Date+i));
end;

Saludos.

[Sergio]

Propongo una solución que tiene en cuenta el primer día de la semana de la misma forma que TMonthCalendar (valor 1 para el lunes):

delphi

function getDias(const anio,semana: integer; FirstDayOfWeek: integer = 1): TStringList;
var
  date: TDate;
  i: integer;
begin
  date:= encodedate(anio, 1, 1) + semana*7-DayOfWeek(date)+(FirstDayOfWeek mod 7)-3;
  Result:= TStringList.Create;
  for i:= 0 to 6 do
    Result.Add(DateToStr(Date+i));
end;

Saludos.

Tu eres de los que fuman "C ofuscado", eh?

[escafandra]

Tu eres de los que fuman "C ofuscado", eh?

Si, fumo C pero no creo que ese código esté muy ofuscado aunque algo comprimido si. Alguien dijo que en delphi no se podía ofuscar el código y, ciertamente, es más difícil que en C. 

Básicamente es la misma forma de cálculo que habéis usado pero corregido directamente con el día de la semana del primer día del año, siendo el cálculo más rápido.


Saludos.

[egostar]

Caray, muy buen código, tres formas de llegar a un mismo resultado, vaya que es un lujo.

Lo único que me molesta un poco es que evidencian mi pobre conocimiento

Saludos 

[Delphius]

Te queda como tarea para la casa amigo que adaptes las propuestas a tu sistema para que se le pueda configurar como ha de comenzar la semana. 

Por aquí la norma ISO sobre el inicio de semana se la pasan por los *****. El que quiere hace los cálculos según inicio con Lunes y otros lo hacen por Domingo. Con decirte que si compras calendarios o agendas cualquiera puede hacerlo a su modo. No hay estandar por aquí. Lo que si está reglado es el formato de fechas: dd/mm/aa, dd/mm/aaaa.

Saludos,