LibreOffice Türkiye Forumları

Kod: Tümünü seç

REM  **** Ondalık ayracı noktayken aralığı toplar  ****
Function NoktaylaTopla(range) As STRING
 Dim row, col As Integer
 Dim cell, newcell, newresult, This As STRING
 Dim result As Double
 result = 0
 For row = LBound(range, 1) To UBound(range, 1)
 	For col = LBound(range, 2) To UBound(range, 2)
		cell = range(row, col)
		newcell = ""
 		For NoktaVirgul = LEN(cell) to 1 STEP -1
 			This = MID(cell, NoktaVirgul, 1)
	 		If This = "." Then 
 				newcell = "," + newcell
 			Else 
 				newcell = This + newcell
	 		End If 		
 		Next
 		cell = CDbl(newcell)
		If IsNumeric(cell) = True Then
			result = result + CDbl(cell)
		Else
		End If
 	Next
 Next
 For VirgulNokta = LEN(CStr(result)) to 1 STEP -1
 	This = MID(CStr(result), VirgulNokta, 1)
	If This = "," Then 
 		newresult = "." + newresult
 	Else 
 		newresult = This + newresult
	End If 		
 Next
 NoktaylaTopla = newresult
End Function