function kaksKordaVanem(noorem, vanem)
  vahe=noorem-vanem
  kaksKordaVanem=noorem+vahe
end function

function jargmineEsmaspaev(aeg)
  if weekday(aeg)=1 then
    jargmineEsmaspaev=aeg+1
  else
    jargmineEsmaspaev=aeg+(9-weekday(aeg))
  end if
end function

function mituPaevaUueKuuAlguseni(aeg)
  uusKuu=dateserial(year(aeg), month(aeg)+1, _
                     1)
  mituPaevaUueKuuAlguseni=uusKuu-aeg
end function

function mitmesPaevKuuAlgusest(aeg)
  mitmesPaevKuuAlgusest=day(aeg)
end function
function paevaNihe(paev as Date, _
                    nihe as Integer)
   paevaNihe=paev+nihe        
end function

function homme(paev as Date)
  homme=paev+1
end function

function tananeKuupaev()
  tananeKuupaev=day(now())
end function

sub ajatest4
  msgbox weekday(dateserial(1976, 5, 3))
  '1-pühapäev, 2-esmaspäev, ... 7-laupäev.
end sub

sub ajatest3
  aeg=now
'  uaeg=DateSerial(year(aeg), month(aeg), _
'                               day(aeg)+10)
  uaeg=aeg+30.5
  msgbox uaeg
end sub

sub ajatest2
  dim aeg as Date
  aeg=now()
  msgbox day(aeg) & "." & month(aeg)
  msgbox second(aeg)
end sub

sub ajatest1
  msgbox now()
  msgbox date()
  msgbox time()
end sub