Code: Alles auswählen.
REPORT test.
DATA: a1(20) TYPE c.
a1 = '22.10.06'.
IF not a1 CP '++.++.++++'.
write: 'falsches Textdatum ', a1.
ENDIF.
"geht auch nicht...
IF not a1 CP '++#.++#.++++'.
write: 'falsches Textdatum ', a1.
ENDIF.
dimes hat geschrieben:Kann mir da jemand weiterhelfen.
Code: Alles auswählen.
REPORT test.
DATA: a1(20) TYPE c.
a1 = '22.10.06'.
IF not a1 CP '++.++.++++'.
write: 'falsches Textdatum ', a1.
ENDIF.
*so gehts
IF not a1 CP '#++.++.++++'.
write: 'falsches Textdatum ', a1.
ENDIF.
Code: Alles auswählen.
PARAMETERS: DAT1 LIKE SY-DATUM,
DAT2 TYPE D.
Code: Alles auswählen.
REPORT ZZ_TEST.
DATA: A1(20) TYPE C,
TEST(10) TYPE C. "2 Punkte und Zahlen
A1 = '22.10.06'.
TEST = A1.
IF TEST+2(1) = '.' AND TEST+5(1) = '.' AND TEST CO '0123456789.'.
WRITE:/ 'richtiges Testdatum', A1.
ELSE.
WRITE:/ 'falsches Testdatum', A1.
ENDIF.
Code: Alles auswählen.
REPORT ZZ_TEST.
DATA: A1(20) TYPE C,
DATUM LIKE SY-DATUM.
A1 = '22.10.06'.
CONCATENATE A1+6(4) A1+3(2) A1(2) INTO DATUM.
IF DATUM = 0.
WRITE:/ 'falsches Datum', DATUM.
ELSE.
WRITE:/ 'richtiges Datum', DATUM.
ENDIF.