Letzter Geburtstag
2 Beiträge
•
Seite 1 von 1
2 Beiträge
Seite 1 von 1
Beitrag
von PeterPaletti (Specialist / 342 / 31 /
97
)
»
Hallöle,
ich habe da ein ganz profanes Problem.
Gegeben sei eine Liste (interne Tabelle) mit Namen und Geburtstagen.
Also z.B.
Hugo 21.07.
Peter 13.10
Marie 01.05.
Birgit 01.12.
usw.
Ermittelt werden soll, wer zum Stichtag xx.xx. als letzter Geburtstag hat.
Also wenn der Stichtag = 31.07., dann wäre als Ergebnis Hugo 21.07. zu erwarten.
Eine Möglichkeit wäre aus der Liste alle zu löschen, die nach dem Stichtag Geburtstag haben und dann den letzten Eintrag der Liste zu lesen.
Gibt es da noch elegantere Möglichkeiten?
ich habe da ein ganz profanes Problem.
Gegeben sei eine Liste (interne Tabelle) mit Namen und Geburtstagen.
Also z.B.
Hugo 21.07.
Peter 13.10
Marie 01.05.
Birgit 01.12.
usw.
Ermittelt werden soll, wer zum Stichtag xx.xx. als letzter Geburtstag hat.
Also wenn der Stichtag = 31.07., dann wäre als Ergebnis Hugo 21.07. zu erwarten.
Eine Möglichkeit wäre aus der Liste alle zu löschen, die nach dem Stichtag Geburtstag haben und dann den letzten Eintrag der Liste zu lesen.
Gibt es da noch elegantere Möglichkeiten?
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Beitrag
von a-dead-trousers (Top Expert / 4318 / 214 /
1153
)
»
In welcher Form sind die Geburtstage gespeichert? Als Datum (also mit Jahreszahl) oder als Monat+Tag?
EDIT: Wenn LT_DATA leer ist muss man den höchsten Eintrag aus der ursprünglichen Datenmenge nehmen. Dann gibt es nämlich im aktuellen Jahr noch keinen Geburtstag und der letzte aus dem letzten Jahr ist der Glückliche.
Code: Alles auswählen.
SORT lt_data BY date+4 DESCENDING.
DELETE lt_data WHERE date+4 GE sy-datum+4. "Datum
* oder
SORT lt_data BY date DESCENDING.
DELETE lt_data WHERE date GE sy-datum+4. "Monat + Tag
READ TABLE lt_data INDEX 1 ASSIGNING FIELD-SYMBOL(<ls_data>).Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
PeterPaletti
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Seite 1 von 1
Vergleichbare Themen
6
Antw.
Antw.
9740
Views
Views
8
Antw.
Antw.
8360
Views
Views
2
Antw.
Antw.
2524
Views
Views
2
Antw.
Antw.
3268
Views
Views
3
Antw.
Antw.
2351
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
Unbeantwortete Forenbeiträge
SAINT: CSP lässt sich nicht installieren und Komponente nicht deinstallieren
vor einer Woche von MiTip 1 / 290
vor einer Woche von MiTip 1 / 290