FiveTech Support Forums

Buen dia, asi como dice el titulo, necesito saber la cantidad de MESES existentes entre 2 fechas, revise algunas funciones de fechas y consegui una pero es la cantidad de dias transcurridos en un periodo o en un año desde 01/01, pero lo que en si busco es saber si tengo 2 fechas la cantidad de AÑOS y MESES entre las 2 fechas si existen años de diferencias, sino solo los MESES, no se si alguien ya tendra algo parecido o si hay funciones nativas que lo hagan, desde ya gracias por sus ayudas y sugerencias, saludos...

# include "fivewin.ch"

Function Main ()
Local dfecha1 := ""
Local sEdad := ""
Local sDias := ""

SET DATE TO ANSI
SET CENTURY ON
dFecha1 := DATE ()

DEFINE DIALOG oDlg FROM 000, 000 TO 300, 260 PIXEL ;
TITLE "Edad entre dos fechas"

@ 005, 010 SAY "Fecha de Nacimiento" SIZE 070, 14 PIXEL OF oDlg COLOR nRGB ( 016, 016, 240 ), nRGB ( 240, 240, 240 )

@ 005, 080 DTPICKER odfecha1 VAR dfecha1 SIZE 050, 14 PIXEL OF oDlg COLOR nRGB ( 240, 240, 240 ), nRGB ( 240, 016, 016 ) ;
MESSAGE "Digite la fecha de nacimiento"

@ 020, 010 BUTTON "Calcule" SIZE 030, 014 PIXEL OF oDlg ;
ACTION ( sEdad := DFechas ( dFecha1, "0" ), osEdad:Refresh (),;
sDias := DFechas ( dFecha1, "1" ), osDias:Refresh () )

@ 040, 010 SAY osEdad VAR sEdad SIZE 200, 14 PIXEL OF oDlg COLOR nRGB ( 016, 016, 240 ), nRGB ( 240, 240, 240 )
@ 054, 010 SAY osDias VAR sDias SIZE 200, 14 PIXEL OF oDlg COLOR nRGB ( 016, 016, 240 ), nRGB ( 240, 240, 240 )

ACTIVATE DIALOG oDlg

Return ( NIL )
* -------------------------------------------------------------------------------------------------------------- *

* -------------------------------------------------------------------------------------------------------------- *
Function DFechas ( DA, cViene ) && Calcular una Edad desde una fecha a la actualidad en años.meses.dias
Local nDias, nAnos, nMeses
Local Dias_ano := 365.28
Local Dias_Mes := 30

Default cViene := "0" && 0 := sin días calculados, 1 := con los días calculados

nDias := DATE () - DA && Diferencia de Días entre DATE y una Fecha dada 2013.08.25 - 1957.03.04 := 20628 := 56 años, 5 meses, 3 semanas
nAnos := INT ( nDias / Dias_ano ) && Cuantos años hay entre esos dias de diferencia 56
nDias1 := nDias - ( nAnos * Dias_ano ) && Días sobrantes 132
nMeses := INT ( nDias1 / Dias_Mes ) && Cuantos meses hay en esos días sobrantes
nDias2 := nDias1 - ( nMeses * Dias_Mes ) && Días sobrantes

Return ( IIF ( cViene = "1", TRANSFORM ( nDias, "999,999" ) + " días, ", "" ) + ;
TRANSFORM ( nAnos, "9,999" ) + " años, " + ;
TRANSFORM ( nMeses, "99" ) + " meses, " + ;
TRANSFORM ( nDias2, "99" ) + " días" )
* -------------------------------------------------------------------------------------------------------------- *
*
*
*
*

Ernesto, con la funcion que cree y publique resolvi lo que necesitaba, igual es bueno tener otras opciones, la diferencia con la tuya es que da hasta los dias, la mia solo los años y meses que es lo que necesitaba. igual probare la tuya haber si coincidimos en los valores resultanes, por lo menos en la de años y meses deberiamos coincidir, ya hice muchas pruebas manualmente y han coincididos con los resultados de mi funcion, Igual gracias por tu opcion...saludos...