FoxPro/Visual FoxPro - tiempo entre fechas - SOLUCION

Para los compañeros que quieren determinas los días, meses y años entre 2 fechas, acá tienen algo para entretenerse. Enjoy it !


* rutina para determinar los años, meses y días completos entre 2 fechas
vF1 = DATE(2005,11,30)
vF2 = Date(2006,07,11)
?''
* años
vAños = YEAR(vF2) - YEAR(vF1)
vAños= IIF(GOMONTH(vF1, 12 * vAños) > vF2, vAños - 1, vAños)
?"años completos: "+TRANSFORM(vAños)

* meses
vFa = GOMONTH(vF1,12*vAños)
vMeses = MONTH(vF2)-MONTH(vFa)
vMeses = IIF(vMeses < 0,12-ABS(vMeses),vMeses)
vMeses = IIF(GOMONTH(vFa,vMeses) > vF2,vMeses -1,vMeses)
?"meses completos: "+TRANSFORM(vMeses)

*días
vFb= GOMONTH(vFa,vMeses)
vDias= (vF2)-(vFb)
?"días completos: "+TRANSFORM(vDias)