Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Días de un mes !!! (https://www.clubdelphi.com/foros/showthread.php?t=19944)

vpepen 31-03-2005 19:07:19

Días de un mes !!!
 
Hola Foro....

Existe una función que me devuelva los días de un mes determinado?

Pido disculpa si esta pregunta ya ha sido contestada anteriormente, pero la verdad es que no he encontrado nada el respecto.

Las gracias anticipadas,

Víctor.-

OSKR 31-03-2005 19:30:49

Si existe pero no recuerdo cual es, esto puede servirte:

int LastDayMonth(int mes, int anno)
{ if(mes==4 || mes==6 || mes==9 || mes==11)
return 30;
if(mes==2)
return (anno%4 ? 28: 29);
return 31;
}

marcoszorrilla 31-03-2005 19:39:52

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

Dias_Tiene_Un_Mes

Un Saludo.

MarcoMae 31-03-2005 22:57:01

Esto te ayudara...

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

Saludos....

vpepen 01-04-2005 14:08:20

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

Víctor.-

vpepen 01-04-2005 14:16:08

Cita:

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 01-04-2005 15:49:32

Cita:

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 01-04-2005 17:37:36

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 05-04-2005 00:37:16

Tienes razon, adicionale en tu Uses DateUtils

Saludos....


La franja horaria es GMT +2. Ahora son las 21:07:22.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi