diferencia de dias , suponiendo que los meses son de 30 dias.

[afunez2007]

Empezado por delphi.com.ar

Supongo que será algo como:
Código Delphi [-]function DaysBetween360(const ANow, AThen: TDateTime): Integer; begin Result := (DaysBetween(ANow, AThen) div 30) * 30; end;


Saludos!

La funcion DasyBetween es bastante simple de usar y devuelve la cantidad de dias entre 2 fechas, si tuevieramos dos datetimepcikers por ejemplo seria asi:

Código Delphi [-]
Var
dias: Integer
Begin
 dias:=DaysBetween(Dtp1.Date, Dtp2.date);
end;

Saludos

[ingabraham]

NO ME FUNCIONA NINGUNO DE LOS DOS CODIGOS
Ingresen a excel dos fechas

y en la celda resultado escriban =dias360(f1,f2);

esto es lo que yo quiero obtener en delphi

?????
ayudenme.

[afunez2007]

Empezado por afunez2007

La funcion DasyBetween es bastante simple de usar y devuelve la cantidad de dias entre 2 fechas, si tuevieramos dos datetimepcikers por ejemplo seria asi:

Código Delphi [-]Var dias: Integer Begin dias:=DaysBetween(Dtp1.Date, Dtp2.date); end;


Saludos

Lo probe en excel y en delphi 7, en ambos funciona pero dan 1 dia de diferencia debiado a que excel utiliza meses de 30 dias y delphi utiliza dias reales.

Código Delphi [-]
IntEdit1.Value:=DaysBetween(dtp1.Date , dtp2.Date);

No olvidar poner en las uses DateUtils

Saludos

[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
begin
IntEdit1.Value:=DaysBetween(dtp1.Date , dtp2.Date + 1);
end;

Saludos

[ecfisa]

A ver ingabraham... probá con esta función:

Código Delphi [-]
function Dias360(FechaIni,FechaFin: TDateTime; MetodoEuro: Boolean): Longint;
var
  DiaIni, DiaFin: Longint;
begin
  DiaIni:= DayOf(FechaIni);
  DiaFin:= DayOf(FechaFin);
  if not MetodoEuro then
  begin
   if DiaIni = 31 then
     FechaIni:= IncDay(FechaIni, -1);
   if (DiaFin = 31)and(DiaIni = 31) then
     FechaFin:= IncDay(FechaFin, -1)
   else
     if DiaFin = 31 then
       FechaFin:= IncDay(FechaFin, 1);
  end
  else
  begin
    if DiaIni = 31 then
      FechaIni:= IncDay(FechaIni, -1);
    if DiaFin = 31 then
      FechaFin:= IncDay(FechaFin, -1);
  end;
  DiaIni:= DayOf(FechaIni);
  DiaFin:= DayOf(FechaFin);
  if YearOf(FechaFin) > YearOf(FechaIni)  then
    FechaFin:= IncMonth(FechaFin, 1);
  Result:= MonthsBetween(FechaIni, FechaFin)* 30 + DiaFin - DiaIni;
end;

Al igual que la de Federico es una traducción.

No uso Microsoft Office por lo que no puedo probarla con Excel, pero pareciera funcionar.

De no ser así, con todo lo que te han posteado, tenés una buena base para desarrollarla
por vos mismo. Al fín y al cabo, sos el interesado ¿no ?

Por supuesto, cuando esté funcionando, todos te vamos a agradecer el aporte si decidís compartirlo.

Saludos.

[ingabraham]

hola gracias por el codigo, lo probare.
a mis compañeros que me mencionan la funcion DaysBetween

prueben con 22 febrero del 2010 y 10 agosto 2010

dias360 excel da 168

DaysBetween delphi da 169


casi pega en el blanco, lo que no se es si con un rango de fecha mas grande existan más dias de diferencia.

[ingabraham]

hola gracias por el codigo, pero nda, no me funciona.

a mis compañeros que me mencionan la funcion DaysBetween

prueben con
22 -02--2010 y 10-08-2010
dias360 excel da 168
DaysBetween delphi da 169

diferencia 1 dia

06 -11-2009 y 30-07-2010
dias360 excel da 264
DaysBetween delphi da 266

diferencia 2 dias


28-03-2010 y 10-08-2010
dias360 excel da 132
DaysBetween delphi da 135

diferencia 3 dias