Const km = 18
Function pindala(pikkus, laius)
  pindala = pikkus * laius
End Function

Function plaateReas(pikkus, plaadipikkus)
  arv1 = pikkus / plaadipikkus
  If arv1 > Int(arv1) Then
    arv1 = Int(arv1) + 1
  End If
  plaateReas = arv1
End Function

Function plaateLaes(sein1, sein2, plaadipikkus)
  plaateLaes = plaateReas(sein1, plaadipikkus) * _
             plaateReas(sein2, plaadipikkus)
End Function

Function käibemaks(hind)
  käibemaks = (hind * km) / (100 + km)
End Function

Function kthinne(punktid, maksimum)
  protsent = punktid * 100 / maksimum
  If (protsent > 80) And (protsent <= 100) Then
    kthinne = 5
  ElseIf protsent > 66 Then
    kthinne = 4
  ElseIf protsent >= 50 Then
    kthinne = 3
  Else
    kthinne = 2
  End If
End Function

Function eurodeks(summa)
  abi = summa / 15.6466
  kolmekohane = Int(abi * 1000) / 1000
  kahekohane = Int(abi * 100) / 100
  kolmaskoht = kolmekohane * 1000 - kahekohane * 1000
  If kolmaskoht < 5 Then
    eurodeks = kahekohane
  Else
    eurodeks = kahekohane + 0.01
  End If
End Function

Sub tekstikatse1()
  lause = "Juku kolmas hobune"
  lauseosa = Mid(lause, 6, 4)
  MsgBox lauseosa
End Sub

Function synnikuupaev(isikukood)
  synnikuupaev = Mid(isikukood, 6, 2)
End Function

Function synnikuu(isikukood)
  Dim kuud(12) As String
  kuud(1) = "jaanuar"
  kuud(2) = "veebruar"
  kuud(3) = "märts"
  kuud(4) = "aprill"
  kuud(5) = "mai"
  kuud(6) = "juuni"
  kuud(7) = "juuli"
  kuud(8) = "august"
  kuud(9) = "september"
  kuud(10) = "oktoober"
  kuud(11) = "november"
  kuud(12) = "detsember"
  synnikuu = kuud(Int(Mid(isikukood, 4, 2)))
End Function

Function synniaasta(isikukood)
  abi = Int(Mid(isikukood, 1, 1))
  algsajand = 1800
  lisasajand = Int((abi - 1) / 2)
  synniaasta = algsajand + lisasajand * 100 + _
               Int(Mid(isikukood, 2, 2))
End Function

Sub jääginäide()
  jääk = 10 Mod 3
  MsgBox jääk '1
End Sub

Function koodikontroll(isikukood)
  summa = 0
  For i = 1 To 9
    summa = summa + Mid(isikukood, i, 1) * i
  Next i
  summa = summa + Mid(isikukood, 10, 1) * 1
  koodikontroll = summa Mod 11
End Function