sub virgulluyap
  virgulstr=cstr(virgulsayi)
  m=len(virgulstr)
  if m<=3 then exit sub end if
  if m<=6 then
    virgulstr=mid(virgulstr,1,m-3) + "" + mid(virgulstr,m-2,3)
    exit sub 
  end if
  if m<=9 then
    virgulstr=mid(virgulstr,1,m-6) + "" + mid(virgulstr,m-5,3) + "" + mid(virgulstr,m-2,3)
    exit sub 
  end if
  if m<=12 then
    virgulstr=mid(virgulstr,1,m-9) + "" + mid(virgulstr,m-8,3) + "" + mid(virgulstr,m-5,3) + "" + mid(virgulstr,m-2,3)
  end if
end sub

sub virgulle
  virgulsayi=geneltoplamtutar.innerHTML
  virgulluyap()
  geneltoplamtutar.innerHTML=virgulstr
  virgulsayi=toplamkdvtutar.innerHTML
  virgulluyap()
  toplamkdvtutar.innerHTML=virgulstr
  virgulsayi=gunluktoplamtutar.innerHTML
  virgulluyap()
  gunluktoplamtutar.innerHTML=virgulstr
  virgulsayi=gunluktutar.innerHTML
  virgulluyap()
  gunluktutar.innerHTML=virgulstr
  punto_fiyati_yaz.innerHTML=punto_fiyati
  virgulsayi=punto_fiyati_yaz.innerHTML
  virgulluyap()
  punto_fiyati_yaz.innerHTML=virgulstr
  virgulsayi=punto_tutari_yaz.innerHTML
  virgulluyap()
  punto_tutari_yaz.innerHTML=virgulstr
  kelime_fiyati_yaz.innerHTML=kelime_fiyati
  virgulsayi=kelime_fiyati_yaz.innerHTML
  virgulluyap()
  kelime_fiyati_yaz.innerHTML=virgulstr
  virgulsayi=kelime_tutari_yaz.innerHTML
  virgulluyap()

  kelime_tutari_yaz.innerHTML=virgulstr

  cizgi_fiyati_yaz.innerHTML=cizgi_fiyati
  virgulsayi=cizgi_fiyati_yaz.innerHTML
  virgulluyap()
  cizgi_fiyati_yaz.innerHTML=virgulstr

  virgulsayi=cizgi_tutari_yaz.innerHTML
  virgulluyap()
  cizgi_tutari_yaz.innerHTML=virgulstr
end sub

sub toplam_tutar_bul
  if puntosayisi.innerHTML>0 then
    document.MyForm.altustcizgi.checked=false
  end if
  topkeltut = kelime_fiyati * kelimesayisi.innerHTML
  kelime_tutari_yaz.innerHTML = topkeltut
  toppuntut = punto_fiyati * puntosayisi.innerHTML
  punto_tutari_yaz.innerHTML = toppuntut

  topciztut = 0
  if document.MyForm.altustcizgi.checked = true then
    topciztut = cizgi_fiyati
  end if

  cizgi_tutari_yaz.innerHTML = topciztut

  gunluktutar1 = topkeltut + toppuntut + topciztut
  gunluktutar.innerHTML = gunluktutar1

  toplamgunbaslik.innerHTML ="<font size='1' face='Tahoma' align='right'>"+ cstr(gunsay) + " <b>Günlük Tutar </b></font>"
  gunluktoplamtutar1 = gunluktutar1 * gunsay
  gunluktoplamtutar.innerHTML = gunluktoplamtutar1
  //kelimesayisi.innerHTML=kelimesayisi1
  document.MyForm.toplamtutar.value=cstr(gunluktoplamtutar1)
  document.MyForm.kelimesay.value=kelimesayisi.innerHTML
  document.MyForm.puntosay.value=puntosayisi.innerHTML
  document.MyForm.kelimefiyat.value=kelime_fiyati_yaz.innerHTML
  document.MyForm.kelimetutar.value=kelime_tutari_yaz.innerHTML
  document.MyForm.puntofiyat.value=punto_fiyati_yaz.innerHTML
  document.MyForm.puntotutar.value=punto_tutari_yaz.innerHTML
  document.MyForm.cizgitutar.value=cizgi_tutari_yaz.innerHTML
  toplamkdvtutar1 = Math.ceil(gunluktoplamtutar1 * 18 / 100)
  toplamkdvtutar.innerHTML = toplamkdvtutar1
  geneltoplamtutar1 = gunluktoplamtutar1 + toplamkdvtutar1
  geneltoplamtutar.innerHTML = geneltoplamtutar1
  virgulle()
end sub

sub altustcizgikontrol
  if puntosayisi.innerHTML>0 then
    document.MyForm.altustcizgi.checked=false
  end if
  toplam_tutar_bul()
end sub

sub kelimesayisibul
  input_b = document.MyForm.metin.value

  a_b=Len(input_b)
  k=1
  kel_say=0
  input_b=input_b+chr(13)+chr(10)
  b=instr(k,input_b,chr(13)+chr(10))


  do while b>0
    satir=""
    if (b>0) then
      satir=mid(input_b,k,b-k)
    end if
    if satir<>"" Then
      kel_say1=0
      if mid(satir,1,1)<>" " then
         kel_say1=kel_say1+1
      end if
      for m=1 to len(satir)-1
        if (mid(satir,m,1)=" ") then
           if mid(satir,m+1,1)<>" " then
             kel_say1=kel_say1+1
           end if
         end if
      next

      if kel_say1<3 then kel_say1=3
      kel_say=kel_say+kel_say1
    end if
    k=b+2
    b=instr(k,input_b,chr(13)+chr(10))
  loop


  kelimesayisi.innerHTML=kel_Say
  toplam_tutar_bul()
end sub


sub baslikchange
  input_b = document.MyForm.baslik.value
  s=""
  t=mid(input_b,1,len(input_b))
  c=len(t)
  for k=1 to c
    h=mid(t,k,1)
    if h = "i" then h="Ý" end if
    if h = "ý" then h="I" end if
    if h = "ð" then h="Ð" end if
    if h = "ü" then h="Ü" end if
    if h = "ç" then h="Ç" end if
    if h = "þ" then h="Þ" end if
    if h = "ö" then h="Ö" end if
    h = ucase(h)
    s=s + h
  next
  document.MyForm.baslik.value = s
end sub

sub puntosayisibul
  baslikchange()
  input_b = document.MyForm.baslik.value

  a_b=Len(input_b)
  k=1
  kel_say=0
  input_b=input_b+chr(13)+chr(10)
  b=instr(k,input_b,chr(13)+chr(10))


  do while b>0
    satir=""
    if (b>0) then
      satir=mid(input_b,k,b-k)
    end if
    if satir<>"" Then
      kel_say1=0
      if mid(satir,1,1)<>" " then
         kel_say1=kel_say1+1
      end if
      for m=1 to len(satir)-1
        if (mid(satir,m,1)=" ") then
           if mid(satir,m+1,1)<>" " then
             kel_say1=kel_say1+1
           end if
         end if
      next
      kel_say=kel_say+kel_say1
    end if
    k=b+2
    b=instr(k,input_b,chr(13)+chr(10))
  loop

  puntosayisi.innerHTML=kel_Say
  toplam_tutar_bul()
end sub

sub tarihartir
  mgun=31

  if (fay = 2) then mgun=28 end if
  if (fay = 4) then mgun=30 end if
  if (fay = 6) then mgun=30 end if
  if (fay = 9) then mgun=30 end if
  if (fay = 11) then mgun=30 end if

  if (fay = 2) then
    if (fyil = 2004) then mgun=29 end if
    if (fyil = 2008) then mgun=29 end if
    if (fyil = 2012) then mgun=29 end if
    if (fyil = 2016) then mgun=29 end if
  end if


  fgun = fgun + 1

  if (fgun > mgun) then
    fgun=1
    fay=fay+1
    if (fay > 12) then
      fay=1
      fyil=fyil+1
    end if
  end if

  document.write("<font size=1 face=arial color=#FF0000>")
  if (fgun < 10) then document.write("0")  end if
  document.write(fgun)
  document.write(".")
  if (fay < 10) then document.write("0")  end if
  document.write(fay)
  document.write(".")
  document.write(fyil)
  tarihstr = cstr(fgun) + "." + cstr(fay) + "." + cstr(fyil)
end sub

sub degisken
  kelime_fiyati_yaz.innerHTML=kelime_fiyati
  punto_fiyati_yaz.innerHTML=punto_fiyati
  cizgi_fiyati_yaz.innerHTML=cizgi_fiyati
  toplam_tutar_bul()
end sub