Días de un mes !!!

[marcoszorrilla]

Mírate este hilo verás una solución bastante fácil al problema planteado:

Dias_Tiene_Un_Mes

Un Saludo.

[MarcoMae]

Esto te ayudara...

DiasDelMes := DaysInAMonth(Anio, Mes) ;
DiaEnElAnio := DayOfTheYear( dFecha) ;
SemanaDelAnio := WeekOfTheYear( dFecha );

Saludos....

[vpepen]

Les agradezco a todos su colaboración, logré resolver el problemita y con variadas alternativas...

Víctor.-

[vpepen]

Empezado por MarcoMae

Esto te ayudara...

DiasDelMes := DaysInAMonth(Anio, Mes) ;
DiaEnElAnio := DayOfTheYear( dFecha) ;
SemanaDelAnio := WeekOfTheYear( dFecha );

Saludos....

MarcoMae... estas funciones no son reconocidas... hay que indicarle alguna unit?

Las gracias anticipadas

Víctor.-

[jhonny]

Empezado por vpepen

MarcoMae... estas funciones no son reconocidas... hay que indicarle alguna unit?

No soy MarcoMae pero igual respondere, En este momento tengo a la mano Delphi5 y la verdad no se en que unidad estara para Delphi6 o 7, pero podre responder diciendo que la unidad en la que me aparecen unas funciones parecidas es DateUtil pero en lugar de DaysInAMonth aparece DaysPerMonth que recibe los mismos parametros que DaysInAMonth las demas creo que se lograrian con la coninacion de las funciones que hay en dicha unidad.

Bueno, pero si quieres ir a la "Fija" usa la solucion sugerida por Marcos http://www.clubdelphi.com/foros/show...0180#post70180

[[maeyanes]]

Si usas Delphi 7, la unidad se llama DateUtils...

Y contiene 2 funciones que podrías usar:

Código Delphi [-]
// Esta recibe como parámetro un TDateTime
function DaysInMonth(const AValue: TDateTime): Word;
// Esta recibe el año y el mes como parámetro
function DaysInAMonth(const AYear, AMonth: Word): Word;

[MarcoMae]

Tienes razon, adicionale en tu Uses DateUtils

Saludos....