necesito que me saquen una duda

[karinha]

Code: Select all  Expand view

// \samples\IDADE2.PRG

#Include "FiveWin.ch"

FUNCTION Main()

    LOCAL dFechaA, dFechaB, nYears, nMeses, nDias, nAnos

   SET CENTURY ON
   SET DATE BRITISH
   SET EPOCH TO YEAR( DATE() ) - 30

    dFechaA := cTod('29/01/1905')
    dFechaB := cTod('02/10/1926')  // 21:8:5

    nYears := ( dFechaB - dFechaA) / 365
    nMeses := nYears-Int(nYears)
    nMeses := nMeses*12
    nDias  := nMeses-Int(nMeses)
    nDias  := nDias*30

    nYears := Int(nYears)
    nMeses := Int(nMeses)
    nDias  := Int(nDias)

    msginfo(nYears )
    msginfo(nMeses)
    msginfo(nDias) // no está correcto.

RETURN NIL

// FIN
 

Regards, saludos.

[JoseAlvarez]

Code: Select all  Expand view

// \samples\IDADE2.PRG

#Include "FiveWin.ch"

FUNCTION Main()

    LOCAL dFechaA, dFechaB, nYears, nMeses, nDias, nAnos

   SET CENTURY ON
   SET DATE BRITISH
   SET EPOCH TO YEAR( DATE() ) - 30

    dFechaA := cTod('29/01/1905')
    dFechaB := cTod('02/10/1926')  // 21:8:5

    nYears := ( dFechaB - dFechaA) / 365
    nMeses := nYears-Int(nYears)
    nMeses := nMeses*12
    nDias  := nMeses-Int(nMeses)
    nDias  := nDias*30

    nYears := Int(nYears)
    nMeses := Int(nMeses)
    nDias  := Int(nDias)

    msginfo(nYears )
    msginfo(nMeses)
    msginfo(nDias) // no está correcto.
                   // CIERTO MASTER, DICULPAS. EL FACTOR DE MULTIMPLICACION ES 30,47
                  // POR LA DIFERENCIA DE DIAS EN LOS MESES.
                  //  ASI TENEMOS EL RESULTADO CORRECTO DE 11 DIAS
                  // SERIA nDias  := nDias*30,47

RETURN NIL

// FIN
 

Regards, saludos.

Es correcto?