Obtener Maximo dias del mes en curso

[vtdeleon]

Wow

3 post en el mismo minuto(Record):P:P:P

[dec]

Hola,

Empezado por Troy

3 post en el mismo minuto(Record):P:P:P

No puedo dejarte mal. No me había fijado en que habíamos publicado los tres mensajes en el mismo minuto. He borrado el que yo publiqué primero porque he visto que la respuesta que refieres tú es justo la misma que la que he dado por mi parte. No es la primera vez que borro un mensaje mío por este motivo. Pero esta vez tuve que escribir este para aclarar el tuyo.

[zugazua2001]

Gracias a ambos, mi problema es que no tengo esa unidad.
De donde la puedo bajar¿?
Saludos a ambos...

[vtdeleon]

Saludos

Empezado por zugazua2001

mi problema es que no tengo esa unidad.

Oops.

Empezado por zugazua2001

De donde la puedo bajar¿?

Ni la menor idea pero puede hacer esto: Feo, pero es lo que se me ocurre ahora

Código Delphi [-]
var
  fecha,tfecha:TDate;
  dia,mes,ano:word;
begin
  fecha:=now;//Aquí asignas la fecha del mes
  DecodeDate(fecha,ano,mes,dia);
  inc(mes);
  tfecha:=EncodeDate(ano,mes,dia);
  showmessage(copy(DateToStr(tfecha+2-fecha),1,2));

Si alguien puede mejorarlo, agradecido estaré

[[Héctor Randolph]]

Es extraño que no tengas la unidad DateUtils , busca en la ruta
{Delphi5 Dir}\Source\Rtl\Common por algún lado debería estar.

Si no la encuentras aquí transcribo la función DaysInAMonth para que la implementes.

Código Delphi [-]

{ The MonthDays array can be used to quickly find the number of
  days in a month:  MonthDays[IsLeapYear(Y), M]      }

const
  MonthDays: array [Boolean] of TDayTable =
    ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
     (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));

function DaysInAMonth(const AYear, AMonth: Word): Word;
begin
  Result := MonthDays[(AMonth = 2) and IsLeapYear(AYear), AMonth];
end;

function IsLeapYear(Year: Word): Boolean;
begin
  Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;

Un saludo.

[Julià T.]

hola vtdeleon:
el codigo que nos has expuesto, no funcionaria para los meses de diciembre, ni para los dias en que el mes siguiente tuviera menos dias el día en que estamos (por ejemplo 31 de octubre)
haciendo la pequeña corrección queda más o menos así

Código Delphi [-]
var
  fecha,tfecha:TDate;
  dia,mes,ano:word;
begin
  fecha:=now;//Aquí asignas la fecha del mes
  DecodeDate(fecha,ano,mes,dia);
  fecha:=fecha-dia+1;//todos los meses tien día 1
  inc(mes);
  if mes >12 then 
  begin
    mes:=1;
    inc(ano);
  end;
  tfecha:=EncodeDate(ano,mes,1);  //para obtener el dia 1 del mes siguiente
  showmessage(copy(DateToStr(tfecha+2-fecha),1,2));
end;

[vtdeleon]

Saludos

Empezado por Julià T.

no funcionaria para los meses de diciembre

Muy cierto, no existe mes 13

Empezado por Julià T.

..ni para los dias en que el mes siguiente tuviera menos dias el día en que estamos (por ejemplo 31 de octubre)

Oops

[vtdeleon]

Saludos

Empezado por HECTOR RANDOLPH

Es extraño que no tengas la unidad DateUtils

Creo que esta unidad está a partir de la versión 7, si no me equivoco

Empezado por Julia

el codigo que nos has expuesto, no funcionaria para los meses de diciembre, ni para los dias en que el mes siguiente tuviera menos dias el día en que estamos (por ejemplo 31 de octubre)

Necesitaba un poquito de ayuda , lo hice sin pensar