Diferencia entre fechas

Quizás esto te pueda servir de guía. Si lo mejoras y lo adapatas sería
bueno compartirlo con la comunidad.


http://www.portalfox.com/article.php?sid0

Apoya a Visual FoxPro usándolo legalmente
ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
email:
Acapulco, Guerrero. México


Optimista wrote:

como podria hacer para sacar los Años,Meses,dias de dos fecha es decir:
fecha 1: 15/02/2002
fecha2: 15/02/2002

0 años, 9 meses y 15 dias algo asi mas o menos

gracias por toda la ayuda

Optimista

Esta función te puede servir directamente:

Calcular la diferencia entre dos fechas en años, meses y días
Enviado por: Luis Maria Guayán
http://www.portalfox.com/article.php?sidd

Luis María Guayán
Vicente Trapani S.A.
Tucumán, Argentina
_____________________________________________
Microsoft Visual FoxPro MVP
SysOp de PortalFox - http://www.portalfox.com
_____________________________________________
Proteje al zorro, úsalo legalmente

"Esparta Palma" wrote in message
news:

Quizás esto te pueda servir de guía. Si lo mejoras y lo adapatas sería
bueno compartirlo con la comunidad.


DATETIME()
http://www.portalfox.com/article.php?sid0

Apoya a Visual FoxPro usándolo legalmente
¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
email:
Acapulco, Guerrero. México


Optimista wrote:

> como podria hacer para sacar los Años,Meses,dias de dos fecha es decir:
> fecha 1: 15/02/2002
> fecha2: 15/02/2002
>
> 0 años, 9 meses y 15 dias algo asi mas o menos
>
> gracias por toda la ayuda
>
> Optimista
>
>
>
>

Esto seria una solucion pero hay dias que se come

Function dma(f_ini,f_fin)
Local tdias,nano1,tmes1,tdias,ndia1

tdias=f_fin-f_ini
nano1=int(tdias/360)
if tdias>60
tmes1=tdias-(360*nano1)
if tmes1>0
nmes1=int(tmes1/30)
ndia1=tmes1-(30*nmes1)
else
ndia1=tmes1
nmes1=0
endif
else
nmes1=int(tdias/30)
ndia1=tdias-(30*nmes1)
endif
Return "Son "+allt(str(nano1))+" Años, "+allt(str(nmes1))+" Meses y
"+allt(str(ndia1))+" Dias"

"Esparta Palma" escribió en el
mensaje news:

Quizás esto te pueda servir de guía. Si lo mejoras y lo adapatas sería
bueno compartirlo con la comunidad.

DATETIME()

http://www.portalfox.com/article.php?sid0

Apoya a Visual FoxPro usándolo legalmente
¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
email:
Acapulco, Guerrero. México


Optimista wrote:

> como podria hacer para sacar los Años,Meses,dias de dos fecha es decir:
> fecha 1: 15/02/2002
> fecha2: 15/02/2002
>
> 0 años, 9 meses y 15 dias algo asi mas o menos
>
> gracias por toda la ayuda
>
> Optimista
>
>
>
>

Ok Luis maria se pasaste


Gracias



"Luis María Guayán" escribió en el mensaje
news:

Esta función te puede servir directamente:

Calcular la diferencia entre dos fechas en años, meses y días
Enviado por: Luis Maria Guayán
http://www.portalfox.com/article.php?sidd

Luis María Guayán
Vicente Trapani S.A.
Tucumán, Argentina
_____________________________________________
Microsoft Visual FoxPro MVP
SysOp de PortalFox - http://www.portalfox.com
_____________________________________________
Proteje al zorro, úsalo legalmente

"Esparta Palma" wrote in message
news:
> Quizás esto te pueda servir de guía. Si lo mejoras y lo adapatas sería
> bueno compartirlo con la comunidad.
>
>
> DATETIME()
> http://www.portalfox.com/article.php?sid0
>
> Apoya a Visual FoxPro usándolo legalmente
> ¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
> Espartaco Palma Martínez
> SysOp PortalFox ( http://www.PortalFox.com )
> email:
> Acapulco, Guerrero. México
>
>
> Optimista wrote:
>
> > como podria hacer para sacar los Años,Meses,dias de dos fecha es

decir:

> > fecha 1: 15/02/2002
> > fecha2: 15/02/2002
> >
> > 0 años, 9 meses y 15 dias algo asi mas o menos
> >
> > gracias por toda la ayuda
> >
> > Optimista
> >
> >
> >
> >
>
>

Los dias que te come es debido a los años bisiestos, para esto usa esta
funcion

anios = ((f_ini - f_fin) / 365) / 4
anos = (f_ini - f_fin - CEILING(anios)) / 365 && Calcula diferencia de año
bisiesto (CEILING Redondea hacia arriba)

"Optimista" escribió en el mensaje
news:uSx%

Esto seria una solucion pero hay dias que se come

Function dma(f_ini,f_fin)
Local tdias,nano1,tmes1,tdias,ndia1

tdias=f_fin-f_ini
nano1=int(tdias/360)
if tdias>60
tmes1=tdias-(360*nano1)
if tmes1>0
nmes1=int(tmes1/30)
ndia1=tmes1-(30*nmes1)
else
ndia1=tmes1
nmes1=0
endif
else
nmes1=int(tdias/30)
ndia1=tdias-(30*nmes1)
endif
Return "Son "+allt(str(nano1))+" Años, "+allt(str(nmes1))+" Meses y
"+allt(str(ndia1))+" Dias"

"Esparta Palma" escribió en el
mensaje news:
> Quizás esto te pueda servir de guía. Si lo mejoras y lo adapatas sería
> bueno compartirlo con la comunidad.
>
>
DATETIME()
> http://www.portalfox.com/article.php?sid0
>
> Apoya a Visual FoxPro usándolo legalmente
> ¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
> Espartaco Palma Martínez
> SysOp PortalFox ( http://www.PortalFox.com )
> email:
> Acapulco, Guerrero. México
>
>
> Optimista wrote:
>
> > como podria hacer para sacar los Años,Meses,dias de dos fecha es

decir:

> > fecha 1: 15/02/2002
> > fecha2: 15/02/2002
> >
> > 0 años, 9 meses y 15 dias algo asi mas o menos
> >
> > gracias por toda la ayuda
> >
> > Optimista
> >
> >
> >
> >
>
>