topic-40776

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: necesito que me saquen una duda
Posted: Wed Sep 08, 2021 10:53 AM

// \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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: necesito que me saquen una duda
Posted: Wed Sep 08, 2021 01:19 PM

karinha wrote:

Code (fw): Select all Collapse

// \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?

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

FiveTech Support Forums

Continue the discussion