Programımızın performansını yüseltmek amacı ile zaman zaman veri tiplerini dönüştürmemiz gerekir.Bu dönüştürme fonksiyonlarından bazılarını tanımlamamız gerekirse.....


CStr=Değeri String e dönüştürür..BooleanCharDateObject tiplerini dönüştürebilir.

CInt=Değeri Integer' dönüştürür.BooleanStringObject türlerini dönüştürebilir.

CDate=Değeri Date'ye dönüştürür.StringObject türlerini dönüştürebilir.

CDbl=Değeri Double'e dönüştürür.BooleanStringObject türlerini dönüştürebilir.

Ctype=Değeri istediğin veri türüne dönüştürü.Uygun veri tipini dönüştürebilir..

Bunlara ve bunlar dışındakileri örnek olarak açıklamaya ne dersiniz....

__________________________________________________ _______________
CBool

Dim ABC As Integerr
Dim kontrol As Boolean

A=5
B=5

kontrol = CBool(A=B)

MsgBox(kontrol)

C=8

kontrol = CBool(A=C)

msgbox(kontrol)

Yukarıda vermis olduğum kod örneklerindeki açıklama.A=5 B=5 C=8
A=B ise değerimiz True olarak döndürecektir.Aksi taktirde False olarak döndürecektir.Ve diğer olarak A=C olarak vermis olduğum örnekte eşit olmadığı için False değerini MsgBox olarak belirtecektir...
__________________________________________________ _______________

CInt

Dim a As Double = 35.658
Dim b As Integer

b= CInt(a)

MsgBox(b)

Bu örnekte bir Double türünü Integer türüne çevirdik.Örnekte Double'ın noktadan sonraki sayılarını almadığını göreceğiz.Çünkü Integer tam sayı anlamına gelmektedir.Fakat bir olay vardırki değerimizi noktadan sonraki değeri yani ondalık kısmı 500 yani yarımdan fazla olduğu için 36 ya yuvarladığını göreceğiz.Eğer 452 olsa idi 35 e yuvarlardı..
__________________________________________________ _______________

CChar

Dim isim As Integer
Dim basharf As Char

isim = "BEJO"
basharf=CChar(isim)

msgbox(basharf)

CChar kullanıldığından bir String diziisini ilk karakterinibir Char değişkenine atayabiliriz.Örneğimizde de bunu göstermis olduk.Bu örnekte sonuta msgbok içinde B harfi görünür....
__________________________________________________ _______________

CDate

Dim tarihsaat As String
dim ts As Date

tarih = "April 11987"
saat="03:00:00 PM"

t=CDate(tarih)
s=CDate(saat)

msgbox(t & " " & s)

Burada girmiş olduğum iki tane string değerindeki türleri CDate dönüştürme fonksiyonu ile tarih türüne çevirmiş olduk.Ayrıca o benim doğum günümdür....
__________________________________________________ _______________

CStr

Dim tarih As Date

tarih = #4/1/1987#

CStr(tarih)

msgbox(tarih)

Buradaki örneğimizde ise Tarih türünü CStr fonksiyonu ile String türüne çevirdik...
__________________________________________________ _______________

CType

Ctype fonksiyonunu kullanarak istediğim türü istediğim türe çevirebilir.Fakat izin verilen dönüştürme alanları içerisinde kalmamız gereklidir.Bunlara uymazsak program hata verir ve istediğimiz programı yazmıs olmayız...

Ctype(Dönüştürülecek değerDönüştürülecek veritipi)

Örneklendirmek gerekirse;

Dim ay As String
Dim d As Integer

a="5"
y=10

d= y + a

MsgBox(d)

Bu örneğimizi yazdığımız da sonuç olarak 105 değerini verecektir.Sebebi ise y=10 olarak verildi.Bu Integer yani sayıdır.Fakat a="5" tırnak içerisine aldığımız için String türündedir bundan program iki farklı tür olduğu için yanyana yazar ve 105 değerini verir.Fakat su sekilde yapsa idk...

Dim ay As String
Dim dz As Integer
a="5"
y=10

z=Ctype(aInteger)

d= z+y

MsgBox (d)

Burada sonuç olarak 15 verir.Bunun sebebi ise a string türnün Ctype fonksiyonu ile Integer türüne çevirdik ve program iki aynı tipi fark eder ve matematiksel islem yapar ve her ikisini toplar...Sonuc olarak bize 15 değerini verir...