Primer dia del mes

[Vlady]

Hola Club delphi.

Como puede saber el primer dia de un mes y el ultimo dia de un mes conociendo el numero del mes, existe alguna funcion q haga esto??. Utilizo delphi 7

Gracias

[Al González]

¡Hola!

El primer día siempre es 1 y el último puedes obtenerlo con la función EndOfAMonth. A esa función debes darle también el número de año para resolver la variabilidad de febrero.

EDITO: También puedes usar EndOfTheMonth y para ambos casos apoyarte en la función DayOf para obtener el número de día.

Saludos.

Al González. :)

[Caro]

Hola Vlady, supongo que te refieres al día que cae el primer día de mes, para ello puedes utilizar la función DayOfTheWeek que te da el día de la semana de un fecha X.


var
Dia : Integer;
FechaIni : TDateTime;
begin
FechaIni := EncodeDate(2008,7,1);
Dia := DayOfTheWeek(FechaIni);


Tu le pasas como parametros el mes y año, para el ultimo día de mes priemro tendrías que obtener cuantos días trae ese mes con EndOfTheMonth.

Edito.- Se me ha ido decirte que DayOfTheWeek te va ha devolver un valor entre 1 y 7, donde 1 es lunes, 7 domingo y asi respectivamente.

Saluditos

[fidel]

Para versiones que no tienen las funciones EndOfAMonth, EndOfTheMonth

EncodeDate(año, mes, día)

Para enero...noviembre encode día uno y encode día uno mes siguiente menos uno.
Ejemplo noviembre 2008
PrimerDia := EncodeDate(2008, 11, 1);
ÚltimoDia := EncodeDate(2008, 12, 1) - 1;

Para diciembre encode día uno y encode día uno enero año siguiente menos uno.
Ejemplo diciembre 2008
PrimerDia := EncodeDate(2008, 12, 1);
ÚltimoDia := EncodeDate(2009, 1, 1) - 1;