Büyük-küçük harf çevrimi (tr)

'KULLANIMI:
'
'Bir Metni Büyük Harfe Çevirmek İçin:
'TR("Çevrilecek Metin", 1)
'
'Bir Metni Küçük Harfe Çevirmek İçin:
'TR("Çevrilecek Metin", 2)


function TR(metin, tur)

	dim sonuc

	if tur = 1 then
		sonuc = replace(metin, "a", "A")
		sonuc = replace(sonuc, "b", "B")
		sonuc = replace(sonuc, "c", "C")
		sonuc = replace(sonuc, "ç", "Ç")
		sonuc = replace(sonuc, "d", "D")
		sonuc = replace(sonuc, "e", "E")
		sonuc = replace(sonuc, "f", "F")
		sonuc = replace(sonuc, "g", "G")
		sonuc = replace(sonuc, "ğ", "Ğ")
		sonuc = replace(sonuc, "h", "H")
		sonuc = replace(sonuc, "ı", "I")
		sonuc = replace(sonuc, "i", "İ")
		sonuc = replace(sonuc, "j", "J")
		sonuc = replace(sonuc, "k", "K")
		sonuc = replace(sonuc, "l", "L")
		sonuc = replace(sonuc, "m", "M")
		sonuc = replace(sonuc, "n", "N")
		sonuc = replace(sonuc, "o", "O")
		sonuc = replace(sonuc, "ö", "Ö")
		sonuc = replace(sonuc, "p", "P")
		sonuc = replace(sonuc, "r", "R")
		sonuc = replace(sonuc, "s", "S")
		sonuc = replace(sonuc, "ş", "Ş")
		sonuc = replace(sonuc, "t", "T")
		sonuc = replace(sonuc, "u", "U")
		sonuc = replace(sonuc, "ü", "Ü")
		sonuc = replace(sonuc, "v", "V")
		sonuc = replace(sonuc, "y", "Y")
		sonuc = replace(sonuc, "z", "Z")
		sonuc = replace(sonuc, "q", "Q")
		sonuc = replace(sonuc, "w", "W")
	else
		sonuc = replace(metin, "A", "b")
		sonuc = replace(sonuc, "B", "b")
		sonuc = replace(sonuc, "C", "c")
		sonuc = replace(sonuc, "Ç", "ç")
		sonuc = replace(sonuc, "D", "d")
		sonuc = replace(sonuc, "E", "e")
		sonuc = replace(sonuc, "F", "f")
		sonuc = replace(sonuc, "G", "g")
		sonuc = replace(sonuc, "Ğ", "ğ")
		sonuc = replace(sonuc, "H", "h")
		sonuc = replace(sonuc, "I", "ı")
		sonuc = replace(sonuc, "İ", "i")
		sonuc = replace(sonuc, "J", "j")
		sonuc = replace(sonuc, "K", "k")
		sonuc = replace(sonuc, "L", "l")
		sonuc = replace(sonuc, "M", "m")
		sonuc = replace(sonuc, "N", "n")
		sonuc = replace(sonuc, "O", "o")
		sonuc = replace(sonuc, "Ö", "ö")
		sonuc = replace(sonuc, "P", "p")
		sonuc = replace(sonuc, "R", "r")
		sonuc = replace(sonuc, "S", "s")
		sonuc = replace(sonuc, "Ş", "ş")
		sonuc = replace(sonuc, "T", "t")
		sonuc = replace(sonuc, "U", "u")
		sonuc = replace(sonuc, "Ü", "ü")
		sonuc = replace(sonuc, "V", "v")
		sonuc = replace(sonuc, "Y", "y")
		sonuc = replace(sonuc, "Z", "z")
		sonuc = replace(sonuc, "Q", "q")
		sonuc = replace(sonuc, "W", "w")
	end if

	TR = sonuc

end function