Ayuda con rango de fechas

[microbiano]

hola hasta ahora me ha funcionado lo del rango de fechas, pero ahora necesito saber el nombre de los meses :-( que estan en ese ranfo por ejemplo 01/01/2001 al 01/04/2011, bien con la instruccion anterior me da el numero de meses esw decir me dice 2 meses, pero como puedo sabe el nombre de los meses en este caso seria Febrero y Marzo.

alguna sugerencia?.


de antemano muchas gracias por su respuesta.

[ecfisa]

Hola microbiano.

Código Delphi [-]
uses DateUtils;

function MesesANombres(D1, D2: TDate): TStrings;
var
  i, m, Tot: Integer;
begin
  Result:= TStringList.Create;
  Tot:= MonthsBetween(D1, D2);
  m:= MonthOf(D1) - 1;
  for i:= MonthOf(D1) to Tot + MonthOf(D1) do
  begin
    if m = 12 then
      m:= 1
    else 
      Inc(m);
    Result.Add(LongMonthNames[m])
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
   Memo1.Clear;
   Memo1.ScrollBars:= ssVertical; //según las fechas de tu último post, vas a necesitar esta línea... 
   Memo1.Lines:= MesesANombres(StrToDate('01/01/2001'), StrToDate('01/04/2011'));

Un saludo.

[microbiano]

hola como estas muchas gracias por la respuesta lo considerare, solo que ahora estoy en otra pc

[microbiano]

bien provando la funcion si llamo a dicha funcion de la siguiente manera

Código Delphi [-]
 mmo1.Lines:= MesesANombres(StrToDate('01/02/2011'), StrToDate('01/04/2011'));

me muestra los meses de febrero y marzo, cuando realmente solo tendria que ser marzo .

hay alguna sugerencia con la que me pueda ayudar. muchas gracias.

[ecfisa]

Hola microbiano.

Es cierto no tiene que incluir el mes inicial.

Se soluciona con un simple cambio:

Código Delphi [-]
function MesesANombres(D1, D2: TDate): TStrings;
var
  i, m, Tot: Integer;
begin
  Result:= TStringList.Create;
  Tot:= MonthsBetween(D1, D2);
  m:= MonthOf(D1); //-1 ------------------>
  for i:= MonthOf(D1) to Tot + MonthOf(D1) -1 do
  begin
    if m = 12 then
      m:= 1
    else
      Inc(m);
    Result.Add(LongMonthNames[m])
  end;
end;

Un saludo.

[microbiano]

bien resulta que uso la siguiente funcion para determinar las fechas

Código Delphi [-]
function TFcobro.MesesANombres(D1, D2: TDate): TStrings;
var
  i, m, Tot: Integer;
begin
  Result:= TStringList.Create;
  Tot:= MonthsBetween(D1, D2);
  m:= MonthOf(D1);// - 1;
  for i:= MonthOf(D1) to Tot + MonthOf(D1)-1 do
  begin
    if m = 12 then
      m:= 1
    else
      Inc(m);
    Result.Add(LongMonthNames[m])
  end;
end;

y hago la llamada de la siguiente manera.

Código Delphi [-]
 mmo1.Clear;
 mmo1.ScrollBars:= ssVertical; //según las fechas de tu último post, vas a necesitar esta línea...
 mmo1.Lines:= MesesANombres(StrToDate('01/02/2011'), StrToDate('30/04/2011'));

en este caso me muestra 2 meses que son marzo y abril, cuando deberia ser marzo, sin embargo cuando hago la llamada de al siguiente manera me muestra solo marzo.

Código Delphi [-]
 mmo1.Clear;
 mmo1.ScrollBars:= ssVertical; //según las fechas de tu último post, vas a necesitar esta línea...
 mmo1.Lines:= MesesANombres(StrToDate('01/02/2011'), StrToDate('01/04/2011'));

hay alguna sugerencia para que determine los meses correctamente ya trate de truncar el resultado para que me tome el valor real pero no funciona.

[ecfisa]

Hola microbiano.

La ayuda de Delphi dice que la función MonthsBetween, devuelve el número aproximado de meses entre dos fechas...

Returns the approximate number of months between two specified TDateTime values.
...
Call MonthsBetween to obtain the difference, in months, between two TDateTime values. Because months are not all the same length, MonthsBetween returns an approximation based on an assumption of 30.4375 days per month. Fractional months are not counted. Thus, for example, MonthsBetween reports the difference between Feb 1 and Mar 1 as 0.

Una solución entonces, es ajustar la primer fecha al día 1 y la segunda al día máximo de ese mes:

Código Delphi [-]
function TForm1.MesesANombres(D1, D2: TDate): TStrings;
var
  i, c, Tot: Integer;
  y,m,d: word;
begin
  // dias en D1 = 1
  DecodeDate(D1,y,m,d);
  D1:= EncodeDate(y , m, 1);
  // dias en D2 = máximo día del mes
  DecodeDate(D2,y,m,d);
  D2:= EncodeDate(y, m, DaysInMonth(D2));
  // El resto no varía...
  Result:= TStringList.Create;
  Tot:= MonthsBetween(D1, D2);
  c:= MonthOf(D1);
  for i:= MonthOf(D1) to Tot + MonthOf(D1)-1 do
  begin
    if c = 12 then
      c:= 1
    else
      Inc(c);
    Result.Add(LongMonthNames[c])
  end;
end;

Un saludo.