Code: Alles auswählen.
PARAMETERS: GEBJAHR(4) TYPE N,
AKTJAHR(4) TYPE N.
DATA: ZAEHLINDEX TYPE i,
ALTER(4) TYPE i.
ALTER = AKTJAHR - GEBJAHR.
ZAEHLINDEX = 1.
uline.
IF GEBJAHR < AKTJAHR.
WHILE ZAEHLINDEX <= ALTER.
WRITE: / GEBJAHR, 'befanden Sie sich im ', ZAEHLINDEX, '-ten Lebensjahr'.
ZAEHLINDEX = ZAEHLINDEX + 1.
GEBJAHR = GEBJAHR + 1.
ENDWHILE.
uline.
WRITE: / AKTJAHR, 'beenden Sie das', Alter, 'Lebensjahr'.
ELSE.
WRITE: / 'Sie sind noch gar nicht geboren :-)'.
ENDIF.Ohne dass Du Deinen Code hier postest, ist es schwer zu erraten, was Du falsch gemacht hast.Aggu hat geschrieben:das klappt irgendwie nicht.
Code: Alles auswählen.
PARAMETERS: GEBJAHR(4) TYPE N.
*GEBJAHR(4) TYPE N.
*GEBJAHR LIKE SY-DATUM.
*GEBJAHR = GEBJAHR(4).
DATA: AKTJAHR(4) TYPE n.
AKTJAHR = sy-datum(4).
DATA: ZAEHLINDEX TYPE i,
ALTER(4) TYPE i.
ALTER = AKTJAHR - GEBJAHR.
ZAEHLINDEX = 1.
uline.
IF GEBJAHR < AKTJAHR.
WHILE ZAEHLINDEX <= ALTER.
WRITE: / GEBJAHR, 'befanden Sie sich im ', ZAEHLINDEX, '-ten
Lebensjahr'.
ZAEHLINDEX = ZAEHLINDEX + 1.
GEBJAHR = GEBJAHR + 1.
ENDWHILE.
uline.
WRITE: / AKTJAHR, 'beenden Sie das', Alter, 'Lebensjahr'.
ELSE.
WRITE: / 'Sie sind noch gar nicht geboren :-)'.
ENDIF.Code: Alles auswählen.
PARAMETERS: gebjahr TYPE d,
aktjahr TYPE d DEFAULT sy-datum.
DATA: zaehlindex TYPE i value 1,
alter TYPE i,
lebenjahr TYPE i,
zaehljahr(4) TYPE n.
alter = aktjahr - gebjahr.
lebenjahr = FLOOR( alter / 365 ) + 1.
alter = ABS( alter / 365 ).
ULINE.
IF gebjahr+0(4) < aktjahr+0(4).
zaehljahr = gebjahr+0(4).
WHILE zaehlindex <= alter.
WRITE: / zaehljahr, 'befanden Sie sich im ', zaehlindex, '-ten Lebensjahr'.
zaehlindex = zaehlindex + 1.
zaehljahr = zaehljahr + 1.
ENDWHILE.
ULINE.
WRITE: / aktjahr, 'sind Sie im', lebenjahr, 'Lebensjahr'.
ELSE.
WRITE: / 'Sie sind noch gar nicht geboren :-)'.
ENDIF.
Code: Alles auswählen.
alter = aktjahr+0(4) - gebjahr+0(4).
lebenjahr = alter + 1.
Code: Alles auswählen.
alter = aktjahr - gebjahr.
lebenjahr = FLOOR( alter / 365 ) + 1.
alter = ABS( alter / 365 ).