Function pii()
  pii = 3.14
End Function

Function korruta(arv1, arv2)
  korruta = arv1 * arv2
End Function

'Koosta funktsioon
'kolmnurga pindala leidmiseks
'Parameetriteks alus ja kõrgus

Function pindala(alus, kõrgus)
  pindala = alus * kõrgus / 2
End Function

'Koosta funktsioon hüpotenuusi leidmiseks

Function hypotenuus(a, b)
  hypotenuus = Sqr(a * a + b * b)
End Function

Function ilmaHinnang(temperatuur)
  If temperatuur >= 10 Then
    ilmaHinnang = "Soe"
  Else
    ilmaHinnang = "Külm"
  End If
End Function
Function ilmaHinnang2(temperatuur)
  If temperatuur >= 20 Then
    ilmaHinnang2 = "Palav"
  ElseIf temperatuur >= 10 Then
    ilmaHinnang2 = "Soe"
  Else
    ilmaHinnang2 = "Külm"
  End If
End Function

'Koosta funktsioon, mis arvutaks
'kontrolltöö punktidele vastava hinde
Function hinne1(punktid)
  If punktid > 80 Then
    hinne1 = 5
  ElseIf punktid > 66 Then
    hinne1 = 4
  ElseIf punktid > 50 Then
    hinne1 = 3
  Else
    hinne1 = 2
  End If
End Function


'anna ette maksimumpunktide hulk

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

Function jääkJagamiselKolmega(arv)
  jääkJagamiselKolmega = arv Mod 3
End Function

'Koosta funktsioon teatamaks
'kas arv on paarisarv

Function kasPaaris(arv)
   If arv Mod 2 = 0 Then
     kasPaaris = "Paaris"
   Else
     kasPaaris = "Paaritu"
   End If
End Function

Function faktoriaal(arv)
  tulemus = 1
  For abi = 1 To arv
    tulemus = tulemus * abi
  Next abi
  faktoriaal = tulemus
End Function

'Koosta funktsioon kontrollimaks
'kas tegemist on algarvuga

Function kasAlgarv(arv)
  loendur = 0
  For i = 2 To arv - 1
    If arv Mod i = 0 Then
      loendur = loendur + 1
    End If
  Next i
  If loendur > 0 Then
    kasAlgarv = "Ei"
  Else
    kasAlgarv = "Jah"
  End If
End Function

Function tänaneKuupäev()
  tänaneKuupäev = Day(Now()) & "." _
         & Month(Now())
End Function

Function viiesJuuni()
  viiesJuuni = DateSerial(2004, 6, 5)
End Function

'Loo funktsioon näitamaks, mitu päeva
'on järgmise kuu alguseni

Function päeviJärgmiseKuuAlguseni()
  päeviJärgmiseKuuAlguseni = _
     DateSerial(Year(Now), _
     Month(Now) + 1, 1) - Now
End Function

Function sajaPäevaPärast(aeg)
  sajaPäevaPärast = aeg + 100
End Function

Function nädalapäev1(aeg)
  nädalapäev1 = WeekDay(aeg, vbMonday)
End Function

Function nädalapäev2(aeg)
  Dim p(7) As String
  p(1) = "Esmaspäev"
  p(2) = "Teisipäev"
  p(3) = "Kolmapäev"
  p(4) = "Neljapäev"
  p(5) = "Reede"
  p(6) = "Laupäev"
  p(7) = "Pühapäev"
  nädalapäev2 = p(WeekDay(aeg, vbMonday))
End Function

'Leia järgmine esmaspäev
Function järgmineEsmaspäev(aeg)
  nr = WeekDay(aeg, vbMonday)
  liita = 8 - nr
  järgmineEsmaspäev = aeg + liita
End Function

'Leida praeguse kuu teise pühapäeva kuupäev
'Leia järgnev emadepäev

Function kaksKordaVanem(aeg1, aeg2)
  vahe = aeg2 - aeg1
  kaksKordaVanem = aeg2 + vahe
End Function

Function tartuBussiSaabumisaeg(aeg)
  tartuBussiSaabumisaeg = _
    TimeSerial(Hour(aeg) + 2, Minute(aeg) + 30, _
    Second(aeg))
End Function