Überprüfen, ob Wert dezimal ist

Überprüfen, ob Wert dezimal ist

Hallo,

ich brauche einen FB oder eine Logik, mit der ich überprüfen kann ob es sich bei einem Wert um einen Dezimalwert handelt oder nicht:
10.00 -> true
Hallo -> false

MFG
TomSd

Hallo,

@Wolfgang: ich hätte eher gesagt: IF .... CO '0123456789,.', oder?

Gruß BlackMail.

Probier doch einfach eine Wertzuweisung deines Strings an ein (passendes) Zahlfeld.
Einen evtl. auftretenden Conversionerror fängst du ab. Wenn der CATCH anschlägt wars keine Zahl - sonst halt doch.

poldi hat geschrieben:Der Quelltext hat übrigens zehnjähriges Jubiläum

Dafür funktioniert das aber leider auch nur für gepackte Zahlen und ist in dieser Form nicht unicodefähig (wegen describe field).

"CO" hat den Nachteil, dass nur auf Vorhandensein von Zeichen geprüft wird. Damit sind auch unsinnige "Zahlen" möglich, wie z. B. "2.5..7".

Ab Basis 7.0 könnte man auch etwas mit regulären Ausdrücken machen, z. B. wobei als Dezimaltrennzeichen der Punkt unterstellt wird und keine Tausendertrennzeichen erlaubt wären (für den Ausdruck gebe ich sowieso keine Garantie ).

Am vernünftigsten klingt daher eigentlich black_adepts Vorschlag.

Gruß BlackMail.

Hallo,

also bei der Überprüfung von Merkmalswerten gibt es ja auch einen check, ob das Format eingehalten wird (Fuba. 'CTCV_SYNTAX_CHECK') -> ev. hilft das weiter, den Wert zu prüfen ..

Auszug aus einem meiner programme:

CALL METHOD p_er_data_changed->get_cell_value
EXPORTING i_row_id = ls_mod_cell-row_id
i_fieldname = 'ATWRT'
IMPORTING e_value = lv_value.

* Prüfung, ob Wert o.k. ist - Merkmal Q_WLF50
* hat das richtige Format __,__
CALL FUNCTION 'CTCV_SYNTAX_CHECK'
EXPORTING
attribut = 'Q_WLF50'
decimals = 2
dec_presentation = ','
format = 'NUM'
length = 5
mask = '____,___'
string = lv_value
t_separator = 'D'
TABLES
tstrg = lt_strg
EXCEPTIONS
currency_check = 1
date_check = 2
format_check = 3
illegal_internal_baseunit = 4
interval_check = 5
pattern_check = 6
time_check = 7
unit_check = 8
no_valid_dimension = 9
interval_not_allowed = 10
presentation_not_possible = 11
OTHERS = 12.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

lv_value = ''.

ENDIF.

lg
Jo