Rätsel aus der Praxis

[Grace3566]

Moin zusammen,
zur Auflockerung auch von mir mal ein kleines Rätsel aus der Praxis.

Aufgabenstellung:
Einer Form-Routine wird ein Datum übergeben. In der Form-Routine wird anhand des Datums der letzte Tag des Vormonats ermittelt (Ultimo).

Beispiel:

p_datum 15.09.2004
p_ultimo 31.08.2004

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. FORM get_ultimo USING    p_datum  TYPE d
2.                 CHANGING p_ultimo TYPE d.
3. * Hier findet die Ermittlung statt
4. ENDFORM.                    "get_ultimo

GeSHi ©

Wie mache ich das am effizientesten?

Viel Spaß

Olaf

[Willy1492]

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. FORM get_ultimo USING    p_datum  TYPE d
2.                 CHANGING p_ultimo TYPE d.
3. * Hier findet die Ermittlung statt
4.   p_ultimo(6) = p_datum(6).
5.   p_ultimo+6(2) = '01'.
6.   subtract 1 from p_ultimo.
7. ENDFORM.                    "get_ultimo

GeSHi ©

Das war einfach.

[Grace3566]

Hallo Frank,
es geht aber noch einfacher.
VG Olaf

[Willy1492]

Hallo Frank,
es geht aber noch einfacher.
VG Olaf

Funktioniert auch
p_ultimo = p_datum(6) - 1. " ?

Wenn ja, würde ich mich nicht darauf verlassen, dass die Subtraktion auch in zukünftigen Releases für ungültige Daten funktioniert.

Andere Frage:
DATA: d1 type d, d2 type d.
Wie muss D1 gefüllt sein, damit nach

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. d2 = d1 - 1.
2. add 1 to d2.

GeSHi ©

d1 ungleich d2 ist?

[Curt279]

FORM get_ultimo USING p_datum TYPE d
CHANGING p_ultimo TYPE d.

* Hier findet die Ermittlung statt
p_ultimo = p_datum - p_datum+6(2).

ENDFORM. "get_ultimo


Gruß
Andreas

[Willy1492]

p_ultimo = p_datum - p_datum+6(2).

Das ist wirklich besser.

[Grace3566]

Hallo zusammen,
das ging ja wirklich schnell.

Das ist die Lösung

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. p_ultimo = p_datum - p_datum+6(2).

GeSHi ©

Ich habe schon diverse Lösungen zu diesem Thema gesehen, wo mit Funktionsbausteinen gearbeitet oder das Datum "zusammengebastelt" und dann die Jahreswechsel- und Schaltjahrprolematik mühevoll behandelt wurde. Daher auch der Zusatz "aus der Praxis".

@Frank
Die Antwort lautet: Initialwert.

VG und schöne Pfingsten
Olaf

[Ilja583]

@Frank:

Weitere Lösungen:

Illegale Daten, wie z.B. der 35. Mai

oder die Tage, die durch die Umstellung auf den gregorianischen Kalender weggefallen sind. (5.10.1582 - 14.10.1582 ex. nicht ).

[Alva1590]

Ist das die Rätselecke? Da hätte ich auch was...Ich habe eine interne tabellen vom typ standard.

Die Einträge sind wie folgt.

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. Feld 1 Feld 2 Feld3
2. 1       1         z
3. 1       2         b
4. 1       3         d
5.  
6.  
7. Ich fülle die Struktur
8. pwa_tab wie folgt.
9. Feld1 Feld 2 Feld3
10. 1      3         d
11.  
12. und lese die Tabelle mit dem Zusatz from READ....FROM PWA_TAB
13. und erhalte den 1. Satz
14. Feld1 Feld 2 Feld3
15. 1      1         z
16.  
17. Wie muss die interne Tabelle definiert sein, dass dies gelingt.
18.  

GeSHi ©

Christian

[Alva1590]

Ist das die Rätselecke?

Das ist noch nicht endgültig entschieden.
(Es gab auch schon welche in ABAP Core.)
Man darf aber wohl auch einen neuen Thread aufmachen.

Wie muss die interne Tabelle definiert sein, dass dies gelingt.

Zum Beispiel so

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. DATA: itab LIKE STANDARD TABLE OF pwa_tab
2.            WITH NON-UNIQUE KEY feld1.

GeSHi ©