¿Cómo hago para que al ingresar un fecha de nacimiento obtenga la edad con Power Builder?
Saludos, como hago para que al ingresar un fecha de nacimiento (XX/XX/XXXX) obtenga un resultado de la edad en XX años, XX meses, XX días
{"Lat":-11.1029467868776,"Lng":-77.596435546875}
1 Respuesta
Respuesta de hakuario
1
Prueba esto:
Controles: 1 Editmask "em_fecha" para poner la fecha de nacimiento, 1 commandbuton donde ira este código y 1 singlelineedit "sle_dato" para publicar el resultado
date ldat_fecha,ldat_hoy
double ld_diferencia,ano=0,mes=0,dia=0
ldat_hoy = date(now())
ldat_fecha = date(em_fecha.text)
ld_diferencia = DaysAfter(ldat_fecha,ldat_hoy)
messagebox("string(ldat_hoy)",string(ldat_hoy))
do while ld_diferencia >= 365
ld_diferencia = ld_diferencia -365
ano ++
loop
do while ld_diferencia >= 30
ld_diferencia = ld_diferencia -30
mes ++
loop
dia = ld_diferencia
sle_dato.text = "Ano=" + string(ano) + " Mes=" + string(mes) + " Dia=" + string(dia)
Controles: 1 Editmask "em_fecha" para poner la fecha de nacimiento, 1 commandbuton donde ira este código y 1 singlelineedit "sle_dato" para publicar el resultado
date ldat_fecha,ldat_hoy
double ld_diferencia,ano=0,mes=0,dia=0
ldat_hoy = date(now())
ldat_fecha = date(em_fecha.text)
ld_diferencia = DaysAfter(ldat_fecha,ldat_hoy)
messagebox("string(ldat_hoy)",string(ldat_hoy))
do while ld_diferencia >= 365
ld_diferencia = ld_diferencia -365
ano ++
loop
do while ld_diferencia >= 30
ld_diferencia = ld_diferencia -30
mes ++
loop
dia = ld_diferencia
sle_dato.text = "Ano=" + string(ano) + " Mes=" + string(mes) + " Dia=" + string(dia)
