topic Re: Date in Application Development and Automation Discussions

Date

Former Member — Fri, 07 Mar 2008 19:52:24 GMT

Hi,

Please can anyone help to calculate the Age of employees.

Without using function modules

For example my employee age is 19810202.

how can i calculate his age of today

Thanks,

GAL

Re: Date

Former Member — Fri, 07 Mar 2008 19:56:52 GMT

Difference from today is the age.

Y is that you don't want to use any modules?

Ok Read year, month, day into three separate variables and check the difference.

then Write it...in output

thanks

Edited by: Alchemi on Mar 7, 2008 1:57 PM

Re: Date

Former Member — Fri, 07 Mar 2008 19:58:59 GMT

you will get no. of days difference.

simple subtraction.

x = current date - birthdate.

for eg :

if x = 365 days ur employee age is 1 yr.( just an example)

work out ur logic.

Re: Date

Former Member — Fri, 07 Mar 2008 20:00:07 GMT

say for eg:age is 19830407

data:c_age value '19830407'

data:v_age like sydatum.

write:/ v_age - c_age.

Edited by: sukruthi raj on Mar 7, 2008 9:00 PM

Re: Date

Former Member — Fri, 07 Mar 2008 20:02:37 GMT

hi this may useful for u,

this calculate the difference of two dates, first u get it and u will add it to his age, and you can get the coding the inside the function module , copy it and use it in the program...


REPORT ZDATEDIFF.

DATA: EDAYS   LIKE VTBBEWE-ATAGE,
      EMONTHS LIKE VTBBEWE-ATAGE,
      EYEARS  LIKE VTBBEWE-ATAGE.

PARAMETERS: FROMDATE LIKE VTBBEWE-DBERVON,
            TODATE   LIKE VTBBEWE-DBERBIS DEFAULT SY-DATUM.

call function 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
  exporting
    i_date_from          = FROMDATE
    i_date_to            = TODATE
*   I_FLG_SEPARATE       = ' '
  IMPORTING
    E_DAYS               = EDAYS
    E_MONTHS             = EMONTHS
    E_YEARS              = EYEARS.

WRITE:/ 'Difference in Days   ', EDAYS.
WRITE:/ 'Difference in Months ', EMONTHS.
WRITE:/ 'Difference in Years  ', EYEARS.

INITIALIZATION.
FROMDATE = SY-DATUM - 60.

<REMOVED BY MODERATOR>

venkat.

Edited by: Alvaro Tejada Galindo on Mar 7, 2008 4:47 PM