Ayuda con rango de fechas

[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.

[microbiano]

sigo sin poderlo resolver creo que me estoy complicando la vida miren lo que quiero hacer es que el usuario hace un pago cada mes. entonces en un año debe hacer 12 pago, pero puede darse el caso de que desde el mes de enero pague los doces meses que tiene el año, lo qu quiero hacer es que cuando el usuario se atrasa un mes por ejemplo en este caso que estamos en febrero y no pago enero se cobre el mes de enero con intereses, pero no logro hacerlo. alguien tiene algo parecido?

[microbiano]

no encuentro la forma de poder solucionarlo, me lleva