resta entre fecha !!

[[Lepe]]

El trabajo de fechas en delphi no tiene que ver con el formato usado en windows.

Bien es verdad que usando las variables ShortDateFormat de la unidad SysUtils, puedes mostrar una fecha del mismo modo que hace windows, pero también puedes usar tu método particular de mostrar una fecha como te ha dicho luisgutierrezb.

EncodeDateTime de la unidad DateUtils, te ayudará a crear las fechas y la respuesta de delphi.com.ar es la mejor.

Saludos

[richy08]

Empezado por Lepe

El trabajo de fechas en delphi no tiene que ver con el formato usado en windows.

Bien es verdad que usando las variables ShortDateFormat de la unidad SysUtils, puedes mostrar una fecha del mismo modo que hace windows, pero también puedes usar tu método particular de mostrar una fecha como te ha dicho luisgutierrezb.

EncodeDateTime de la unidad DateUtils, te ayudará a crear las fechas y la respuesta de delphi.com.ar es la mejor.

Saludos

Hola buen dia yo tengo un problema utilizando las fechas y quiero saber si alguien me puede dar una solucion mira estoy tratando de aumentar un mes cierta fecha por ejemplo 06/20/2007 al utilizar la funcion incmonths() el resultado que me da 07/18/2007 y yo lo que quiero que haga es que me incremente el mes y vuelva a caer en el mismo dia osea que el resultado debe ser 07/20/2007 si alguien me puede decir como solucionarlo gracias.

[jhonny]

Empezado por richy08

Hola buen dia yo tengo un problema utilizando las fechas y quiero saber si alguien me puede dar una solucion mira estoy tratando de aumentar un mes cierta fecha por ejemplo 06/20/2007 al utilizar la funcion incmonths() el resultado que me da 07/18/2007 y yo lo que quiero que haga es que me incremente el mes y vuelva a caer en el mismo dia osea que el resultado debe ser 07/20/2007 si alguien me puede decir como solucionarlo gracias.

Si no te funciona IncMonth pues podemos hacerlo a mano...
Coloca la siguiente función:

Código Delphi [-]
 
function IncMes(Fecha :TDate) :TDate;
var
  mes, dia, ano :Word;
begin
  decodedate(Fecha, ano, mes, dia);
  Inc(mes);
  Result := encodedate(ano, mes, dia);
end;

Luego podras usarla asi:

Código Delphi [-]
Fecha := IncMes(Fecha);

Y Listo, espero te sirva .

[richy08]

Empezado por jhonny

Si no te funciona IncMonth pues podemos hacerlo a mano...
Coloca la siguiente función:

Código Delphi [-]
function IncMes(Fecha :TDate) :TDate;
var
mes, dia, ano :Word;
begin
decodedate(Fecha, ano, mes, dia);
Inc(mes);
Result := encodedate(ano, mes, dia);
end;



Luego podras usarla asi:

Código Delphi [-]Fecha := IncMes(Fecha);


Y Listo, espero te sirva .

muchas gracias si me sirvio pero ahora tengo otro problema como saber si un numero es multiplo de 4 y cuantos dias trae el mes en el que esta la fecha

[jhonny]

La función DaysInAMonth que se encuentra en la unidad DateUtils a partir de Delphi6 y DateUtil en Delphi5 te devolvera los dias de un mes indicándole también el año.

Así:

Código Delphi [-]
DiasDelMes := DaysInAMonth(2007, 6); //Esto te devolvera 30.

Esa función sabrá de antemano cuales son los años bisiestos de manera pues que no necesitaras calcular por aparte, si el año en curso es o no es bisiesto.
Pero en caso de que obligatoriamente necesites saber si es o no Bisiesto podrás usar la función IsInLeapYear que devuelve True en caso de que si lo sea y False en caso contrario.

[jhonny]

A bueno y si la cuestión no es de año bisiesto y todo el asunto, si no que solo quieres saber si un numero es multiplo de 4 o no, pues bastara con averiguar si ese numero dividido por 4 arrojara un resto de 0, un ejemplo:

Código Delphi [-]
 
if (16 mod 4 = 0) then
  ShowMessage('Es Multiplo de 4');
else
  ShowMessage('No es Multiplo de 4');

[richy08]

Empezado por jhonny

A bueno y si la cuestión no es de año bisiesto y todo el asunto, si no que solo quieres saber si un numero es multiplo de 4 o no, pues bastara con averiguar si ese numero dividido por 4 arrojara un resto de 0, un ejemplo:


Código Delphi [-]
if (16 mod 4 = 0) then
ShowMessage('Es Multiplo de 4');
else
ShowMessage('No es Multiplo de 4');

Muchas gracias jhonny me sirvio de mucha tu ayuda