Amigos:
Alguien tiene desarrollada una funci贸n para determinar la edad en A帽os, meses y dias que quiera compartir ?
Saludos
Esta fun莽茫o retorna a idade.
static function RetIdade(dNasc)
local a1,a2,a3,idade
a1:=year(date())-1
a2:=year(nasc)
a3:=ctod(strzero(day(nasc),2)+"/"+strzero(month(nasc),2)+"/"+strzero(year(date()),4))
idade:=(a1-a2)
if a3<=date()
idade++
endif
return(idade)
Espero ter ajudado.
FWHISHOW:
Muito obrigado pela ajuda.
Necesito conocer la edad en A帽os, Meses y Dias y tu ejemplo solo
devuelve los A帽os.
Saludos
//----------------------------------------------------------------------------//
Function Ano_Mes_Dia(WDATA1,WDATA2)
// C谩lculo da Idade
//----------------------------------------------------------------------------//
Local WTOTANOS:=WTOTMESES:=WTOTDIAS:=ctod(space(8))
Local WDIAANT:=WMESANT:=WANOANT:=WDATAANT:=ctod(space(8))
IF VAL( SUBS(DTOC(WDATA2),4,2) + SUBS(DTOC(WDATA2),1,2) ) >= ;
VAL( SUBS(DTOC(WDATA1),4,2) + SUBS(DTOC(WDATA1),1,2) )
WTOTANOS:= YEAR(WDATA2) - YEAR(WDATA1)
WTOTMESES:=MONTH(WDATA2) - ;
MONTH(WDATA1) - ;
IF(DAY(WDATA2)>=DAY(WDATA1),0,1)
ELSE
WTOTANOS:= (YEAR(WDATA2) - YEAR(WDATA1)) - 1
WTOTMESES:=( MONTH(WDATA2)+12 ) - ;
MONTH(WDATA1) - ;
IF(DAY(WDATA2)>=DAY(WDATA1),0,1)
ENDIF
IF DAY(WDATA2) >= DAY(WDATA1)
WTOTDIAS:=DAY(WDATA2)-DAY(WDATA1)
ELSE
IF MONTH(WDATA2)=1
WMESANT:= 12
WANOANT:= YEAR(WDATA2)-1
ELSE
WMESANT:= MONTH(WDATA2)-1
WANOANT:= YEAR(WDATA2)
ENDIF
DO CASE
CASE DAY(WDATA1)=31
DO CASE
CASE WMESANT=2
IF MOD(WANOANT,4)=0
WDIAANT:=29
ELSE
WDIAANT:=28
ENDIF
CASE WMESANT=4 .OR. WMESANT=6 .OR. WMESANT=9 .OR. WMESANT=11
WDIAANT:=30
OTHE
WDIAANT:=DAY(WDATA1)
ENDCASE
CASE DAY(WDATA1)=30
IF WMESANT=2
IF MOD(WANOANT,4)=0
WDIAANT:=29
ELSE
WDIAANT:=28
ENDIF
ELSE
WDIAANT:=DAY(WDATA1)
ENDIF
ENDCASE
WDATAANT:=CTOD( STRZERO(WDIAANT,2,0)+"/"+ ;
STRZERO(WMESANT,2,0)+"/"+ ;
STRZERO(WANOANT,4,0) )
WTOTDIAS:= WDATA2 - WDATAANT
ENDIF
RETURN ( ALLTRIM(STR(WTOTANOS,4,0)) +" Ano(s)") + ;
ALLTRIM(STR(WTOTMESES,2,0))+" MES(es) e "+ ;
ALLTRIM(STR(WTOTDIAS,2,0)) +" DIA(as)" )Kleyber:
Creo que eso es lo que necesito.
Muchas gracias
Saludos