Vornamen abkürzen mit einer Formel

Liebe Community!

Falls jemand Vornamen abkürzen möchte, dann habe ich vielleicht die richtige Formel dafür.
Lara-Fabienne Maier → L.-F. Maier
Klaus Maria Maier → K. M. Maier
Hermann Maier → H. Maier

(IF LOCATE(Vorname,'-') > 0 THEN SUBSTRING(Vorname, 1, 1) + '.-' + SUBSTRING(Vorname, LOCATE(Vorname, '-') + 1, 1) + '. ' + Name ELSE '' ENDIF) +
(IF LOCATE(Vorname,' ') > 0 THEN SUBSTRING(Vorname, 1, 1) + '. ' + SUBSTRING(Vorname, LOCATE(Vorname, ' ') + 1, 1) + '. ' + Name ELSE '' ENDIF) +
(IF LOCATE(Vorname,' ') < 1 AND LOCATE(Vorname,'-') < 1 THEN SUBSTRING(Vorname, 1, 1) + '. ' + Name ELSE '' ENDIF)

Liebe Grüße aus dem größten tech. Museum der Erde
M. Seidl

2 „Gefällt mir“