LibreOffice-Forum

Code: Alles auswählen

REM ***** OOoBasic ***
Option explicit

Sub main
   Dim sString_1      as string
   Dim sString_2      as string
   Dim sString_ausgabe as string
   sString_1 = "Hallo"
   sString_2 = "World"
   sString_ausgabe = string_verketten (sString_1, sString_2)
   MsgBox (sString_ausgabe)
End Sub

Function string_verketten (uebergabe_1 as string, uebergae_2 as string) as string
   string_verketten = uebergabe_1 & " " & uebergae_2
End Function