Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #11  
Antiguo 19-08-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.

Última edición por ecfisa fecha: 19-08-2010 a las 09:55:53.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
rpt. manager: meses y días transcurridos entre dos fechas dandia28 Impresión 1 20-02-2008 15:56:08
Diferencia 2 Dias entre Tdatetime (delphi) y Datetime (SQL server) sinalocarlos Varios 2 10-05-2007 03:00:38
Diferencia en dias entre dos fechas. AMINOA2R Firebird e Interbase 2 15-12-2005 15:58:37
Dias y meses romansiux Varios 5 13-06-2005 17:19:12
agrupar por dias meses y años en Interbase????? mguixot Conexión con bases de datos 0 03-10-2003 19:31:08


La franja horaria es GMT +2. Ahora son las 21:08:42.


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