Yazılım Geliştirme Uzmanı & E-Ticaret Danışmanı
Asp , Excel , VBA , E-Ticaret , Mobil , Desktop, Web Uygulamaları
Tel : 0 534 797 31 21 , Mail : baranseren@gmail.com
Türkçe Karakterler olan verileri büyük veya küçük yapma ( UCase LCase Turkish Version)

Türkçe Karakterler olan verileri büyük veya küçük yapma ( UCase LCase Turkish Version) 19.7.2011 17:11:26

Function BuyukKucukTR(gelenveri,islem) 
' İşlem = 1 Büyük Harf Yap
' İşlem = 2 Küçük Harf Yap

tempp=gelenveri

TRdizi1="ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZWX" 
TRdizi2="abcçdefgğhıijklmnoöprsştuüvyzwx"

'İŞLEM SEÇİMİ

If islem=1 Then        'büyütme işlemi 
     For i=1 To Len(TRdizi1) 
          tempp=Replace(tempp, Mid(TRdizi2,i,1), Mid(TRdizi1,i,1))        'al birini koy ötekine... 
     Next

     tempp=UCase(tempp) 
End If

If islem=2 Then        'küçültme işlemi 
     For i=1 To Len(TRdizi2) 
          tempp=Replace(tempp, Mid(TRdizi1,i,1), Mid(TRdizi2,i,1)) 'al birini koy ötekine... 
     Next

     tempp=LCase(tempp) 
End If 
BuyukKucukTR=tempp 
End Function




Tags :