cuantos domingos tiene un periodo

[[egostar]]

Hola thelibmx, en esa rutina estas contando viernes y sabados.

Los dias se cuentan de 1 a 7 comenzando en Domingo.

Salud OS.

[thelibmx]

Empezado por egostar

Hola thelibmx, en esa rutina estas contando viernes y sabados.

Los dias se cuentan de 1 a 7 comenzando en Domingo.

Salud OS.

creo que no entendi el comentario o el error, segun las pruebas que hice, sabado vale 6 y domingo 7, entonces cada que hay un sabado o domingo suma 1, podrias explicarte un poco, o tal ves tuviste tu algun error, por que incluso cuando selecciono alguna fecha en viernes, mi resultado es 0, ¿?..

[[egostar]]

Cierto, es que estas usando la función DayoftheWeek, la cual efectivamente, toma los valores de 1 a 7 comenzando en Lunes. Yo estoy usando DayofWeek, por eso la confusión.

Aqui te pongo la ayuda de Delphi

Empezado por Ayuda Delphi

DayOfWeek returns the day of the week of the specified date as an integer between 1 and 7, where Sunday is the first day of the week and Saturday is the seventh.

Note:
DayOfWeek is not compliant with the ISO 8601 standard, which defines Monday as the first day of the week. For an ISO 8601 compliant version, use the DayOfTheWeek function instead.

Salud OS.

[thelibmx]

Empezado por egostar

Cierto, es que estas usando la función DayoftheWeek, la cual efectivamente, toma los valores de 1 a 7 comenzando en Lunes. Yo estoy usando DayofWeek, por eso la confusión.

Aqui te pongo la ayuda de Delphi




Salud OS.

entonces ya no entendi, mi funcion esta bien no?, o cual es el punto, hasta donde vi hace lo q queria... je je je.. pero es bueno conocer otras funciones .. bueno saludos a todos

[[Lepe]]

Tu rutina está bien, lo que ocurre, es que DayofWeek considera el 1 como Lunes, DayofTHEWeek considera el 1 como Domingo.

Para evitar líos hay un estandar ISO, y se debería usar dayofTHEweek.

Ya que vamos a realizar un bucle por todos los días, haremos una rutina general (me gustaba más la rutina de poliburro ):

Código Delphi [-]

type TDay = (Monday = 1,
  Tuesday = 2,
  Wednesday = 3,
  Thursday = 4,
  Friday = 5,
  Saturday = 6,
  Sunday = 7);

  TDays = set of TDay;



function CountDays(ini:TdateTime; Fin:Tdatetime;const DaysToCount: TDays):integer;
var i:integer;
begin
  Result := 0;
  for I := trunc(ini) to trunc(fin)  do
  if Tday(Dayoftheweek(i)) in DaysToCount then
    inc(Result);
end;

uso de la rutina:

Código Delphi [-]
begin
  ShowMessage(inttostr(CountDays(DateTimePicker1.DateTime,
                               DateTimePicker2.DateTime, 
                               [Saturday,Sunday])));
end;

Edito: Cambio los tipos enumerados por interferencia con las constantes de Sysutils dayMonday, dayTuesday etc.

[thelibmx]

ok me parece bien la rutina, pues hay muchas maneras jeje, hay que utilizar la mas estandar...SAludos.