Option Explicit
Function ringiPindala(r)
  'ringiPindala = 3.14 * r * r
  ringiPindala = WorksheetFunction.Pi() * r * r
End Function

'Koostage funktsioon koonuse ruumala tarbeks
' 1/3 Pi*r*r*h
Function koonuseRuumala(r, h)
  koonuseRuumala = 3.14 * r * r * h / 3
End Function

Function sorendus(tekst)
  Dim vastus As String
  Dim nr As Integer
  vastus = ""
  For nr = 1 To Len(tekst)
    vastus = vastus & Mid(tekst, nr, 1) & " "
  Next nr
  sorendus = vastus
End Function

Function loendaA(tekst)
  Dim loendur As Integer, nr As Integer
  loendur = 0
  For nr = 1 To Len(tekst)
    If Mid(tekst, nr, 1) = "a" Then
      loendur = loendur + 1
    End If
  Next nr
  loendaA = loendur
End Function


'Koosta funktsioon, mis saab parameetriks kaks sõna
'ning tagastab, mitu tähte on samade kohtade peal
'loendaSamu("karp", "kast") -> 2

Function loendaSamu(tekst1, tekst2)
  Dim suurimPikkus As Integer, nr As Integer, loendur As Integer
  If Len(tekst1) > Len(tekst2) Then
    suurimPikkus = Len(tekst1)
  Else
    suurimPikkus = Len(tekst2)
  End If
  loendur = 0
  For nr = 1 To suurimPikkus
     If Mid(tekst1, nr, 1) = Mid(tekst2, nr, 1) Then
        loendur = loendur + 1
     End If
  Next nr
  loendaSamu = loendur
End Function


Function tyhikuKoht(tekst)
  tyhikuKoht = InStr(tekst, " ")
End Function
'Koostage funktsioon, mis tagastaks eesnime esitähe, punkti ja perekonnanime
'Juku Tamm -> J. Tamm
'Juku -> Juku

Function initsiaalid(tekst)
   Dim tyhikuKoht As Integer
   tyhikuKoht = InStr(tekst, " ")
   If tyhikuKoht = 0 Then
     initsiaalid = tekst
   Else
     initsiaalid = Mid(tekst, 1, 1) & ". " & _
        Mid(tekst, tyhikuKoht + 1)
   End If
End Function