FoxPro/Visual FoxPro - Calcular Año, Mes y Dia en Vfp

PROCEDURE calcedad

		LPARAMETERS tdFecha1,tdFecha2

		*!*	----------------------------------------------

		*!*	Autor:			Fidel Charny

		*!*	tdFecha1 es la fecha inferior

		*!*	tdFecha2 es la fecha superior o Date()

		*!*	----------------------------------------------

		tdFecha2=EVL(tdFecha2,DATE())

		LOCAL lnAnos,lnMeses,lnDias,lnAno2,lnMes2,lnDia1,lnDia2,;

			objEmpty,lcString

		this.dosvalores(@tdFecha1 , @tdFecha2 )

		lnAnos =Year(tdFecha2)-Year(tdFecha1) - 1

		lnMeses =12-Month(tdFecha1) + Month(tdFecha2) - 1

		do case

			case Day(tdFecha1) = Day(tdFecha2)

				lnMeses = lnMeses+1

			case Day(tdFecha2) > Day(tdFecha1)

				lnMeses = lnMeses + 1

			case Day(tdFecha2) < Day(tdFecha1)

		endcase

		if lnMeses >= 12

			lnMeses =lnMeses - 12

			lnAnos =lnAnos + 1

		endif

		if Day(tdFecha1)=Day(tdFecha2)

			lnDias =0

		else

			lnDia1 =Day(tdFecha1)

			lnDia2 =Day(tdFecha2)

			if Day(tdFecha2) > Day(tdFecha1)

				lnDias =Day(tdFecha2)-Day(tdFecha1)

			else

				lnMes2 =month(tdFecha2)-1

				lnAno2 =Year(tdFecha2)

				if lnMes2 = 0

					lnMes2 =12

					lnAno2 =lnAno2-1

				endif

				lnDias =lnDia2 + DAY(Gomonth( Date( lnAno2 , lnMes2, 1) , 1) - 1) - lnDia1

			endif

		endif

		lcString=TRANSFORM(lnAnos) + " Año" + IIF(lnAnos > 1,"s","")+ ", ";

			+TRANSFORM(lnMeses) + " Mes" + IIF(lnMeses > 1,"es","")+ ", ";

			+TRANSFORM(lnDias) + " Dia" + IIF(lnDias > 1,"s","")

		objEmpty=NEWOBJECT("Empty")

		ADDPROPERTY(objEmpty,"Tiempo",lcString)

		ADDPROPERTY(objEmpty,"Años",lnAnos)

		ADDPROPERTY(objEmpty,"Meses",lnMeses)

		ADDPROPERTY(objEmpty,"Dias",lnDias)

		REturn objEmpty

ENDPROC