Update 4_libreoffice_calc.bas

metatronslove · Nov 4, 2024 · e6b4d47 · e6b4d47
1 parent 2d1dbfc
commit e6b4d47
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/LibreOffice Calc/4_libreoffice_calc.bas b/LibreOffice Calc/4_libreoffice_calc.bas
@@ -1609,7 +1609,7 @@ Function NUMBERS2ARAB(Optional metin As String) As String
     ReDim NUMBERS2ARAB, NA
 End Function
 Function NUMEROLOG(ByVal metin As String, Optional tablo As String, Optional outas As Variant, Optional shadda As Variant) As Variant
-    Dim SM, S, C, D, N, sesli, sessiz, seslit, sessizt err, counter, space, hrk As Integer : NUMEROLOG = 0 : S = 0 : N = 0 : sesli = 0 : sessiz = 0 : seslit = 0 : sessizt = 0
+    Dim SM, S, C, D, N, sesli, sessiz, seslit, sessizt, err, counter, space, hrk As Integer : NUMEROLOG = 0 : S = 0 : N = 0 : sesli = 0 : sessiz = 0 : seslit = 0 : sessizt = 0
     Dim M, nitem, nesoohc, choosen As String : nitem = "" : err = 0 : tablo = LCase(tablo) : metin = UCase(metin)
     Select Case tablo
     Case "date"
@@ -2850,4 +2850,4 @@ Function WORDBYWORD(ByVal klmmetin As String, Optional tablo As Integer, Optiona
     Next
     ReDim word, calculation, content
     WORDBYWORD = content
-End Function
+End Function