Fonksiyonlar

InStr : Bir String ‘in diğeri içerisinde ilk nerde bulunduğunu kontrol eder

AdSoyad = “Murat Ustaoğlu”
Sonuc = InStr(1, AdSoyad , “r”) ‘ Sonuc = 3
Sonuc = InStr(4, AdSoyad , “r”) ‘ 4. karakterden itibaren arar. Sonuc = 0
Sonuc = InStr(8, AdSoyad , “u”) ‘ 8. karakterden itibaren arar. Sonuc = 14

Left : String ‘in soldaki belli sayıdaki karakteri ile yeni bir String oluşturur

Sonuc = Left(AdSoyad , 5) ‘ Sonuc = “Murat”

Mid : String ‘in ortasındaki karakterlerden yeni bir String yaratır

Sonuc = Mid(AdSoyad , 3, 6) ‘ Sonuc = “rat Us”

Right : String ‘in sağındaki belli sayıdaki karakteri ile yeni bir String oluşturur

Sonuc = Right(AdSoyad , 8) ‘ Sonuc = “Ustaoğlu”

Trim : String ‘in sağındaki ve solundaki boşlukları atarak yeni bir String oluşturur

Soyad = “ usta “
Sonuc = Trim(Soyad) ‘ Sonuc = “usta”

LTrim : String ‘in soldaki boşlukları atarak yeni bir String oluşturur

Sonuc = LTrim(Soyad) ‘ Sonuc = “usta “

RTrim : String ‘in sağında boşlukları atarak yeni bir String oluşturur

Sonuc = RTrim(Soyad) ‘ Sonuc = “ usta”

LCase : String ‘in bütün karakterlerini küçük harf yapar

Sonuc = LCase(AdSoyad) ‘ Sonuc = “murat ustaoğlu”

UCase : String ‘in bütün karakterlerini büyük harf yapar

Sonuc = UCase(AdSoyad) ‘ Sonuc = “MURAT USTAOĞLU”

Len : Stringdeki karakter sayısını bulur

Soyad=“usta”
Sonuc = Len(soyad) ‘ Sonuc = 4

Asc : Stringin ilk karakterinin ascii kodunu bulur

Sonuc = Asc(“A”) ‘ Sonuc “65”
Sonuc = Asc(“aranan”) ‘ Sonuc “97”
Sonuc = Asc(“a”) ‘ Sonuc “97”

Chr : 0 – 255 arası tam sayıyı o sayıya karşılık gelen Ascii karaktere dönüştürür

Sonuc = Chr(65) ‘ Sonuc “A”

Str : String‘e dönüştürme

Sonuc = Str(654846546) ‘ Sonuc = “654846546”

Space : İstenen miktarda boşluk karakteri atar

AdSoyad = "Murat"
AdSoyad = AdSoyad + Space(10)
AdSoyad = AdSoyad + "Ustaoğlu" ‘ AdSoyad = “Murat Ustaoğlu”

StrComp : Variant yada String iki değişkeni karşılaştırır

AD0 = “Murat Ustaoğlu”
AD1= “murat ustaoğlu”
Sonuc = StrComp(AD0, AD1, VbTextCompare) ‘ Sonuc = 0

StrConv : String değişkenlerde dönüşüm yapar

Ad =“ Murat”
Sonuc = StrConv(ad, 1) ‘ Sonuc = “MURAT”

StrReverse : String değişkende harfleri tersten sıralayarak atar

Sonuc = StrReverse(Ad) ‘ Sonuc = “taruM”

Replace : Karakterleri istenen başka karakterlerle değiştirir

Sonuc = Replace(ad,”rat”,”stafa”,,,VbTextCompare) ‘ Sonuc = “Mustafa”

String : İstenilen sayıda karakteri Variant değişkene atar

Sonuc = String( 5, “ * “ ) ‘ Sonuc = “*****”

Fix : Ondalık kısmı atarak Integer ‘a dönüştürme

Sayı = -99.8
Sonuc = Fix(Sayı) ‘ Sonuc = -99
Sayı = 99.8
Sonuc = Fix(Sayı) ‘ Sonuc = 99

Int : Ondalık kısmı atarak Integer ‘a dönüştürme

Sonuc = Int(6.94846546) ‘ Sonuc = “6 “
Sonuc = Int(6.35484654) ‘ Sonuc = “6 “
Sonuc = Int(-6.84654) ‘ Sonuc = “-7 “

IsEmpty : Variant değişkenlerin dolu olup olmadığını kontrol eder

Dim Soyad As Variant
Soyad = “usta”
Sonuc = IsEmpty(Soyad) ‘ Sonuc = False

IsNull : Variant değişkendeki verinin boşaltıldığını gösterir

Sonuc = IsNull(Soyad) ‘ Sonuc = False
Soyad = Null
Sonuc = IsNull(Soyad) ‘ Sonuc = True

IsNumeric : Variant değişken bir sayı ise True olur

Sonuc = IsNumeric(Soyad) ‘ Sonuc = False

IsDate : Variant değişken tarih saat bilgisi içeriyorsa True olur

Tarih = #January 1, 1970#
Tarih = Tarih + 7 ‘ Tarih 1 hafta sonraya atlar
Sonuc = IsDate(Tarih) ‘ Sonuc = True

IsArray : Değişkenin dizi olup olmadığını denetler

Dim Dizis(110) As String
Sonuc = IsArray(Dizis) ‘ Sonuc = True

CVErr : Bir hata numarası değeri alarak Error tipinde Variant olarak döndürür

IsError : Değişkenin bir variant yada Error olup olmadığını denetler

Function Hesap() ‘ CVErr fonksiyonu
On error goto hata:
...
hata:
If Err.Number <> 0 then
Hesap = CVErr()
End If
End Function

Deger=Hesap() ‘ IsError fonksiyonu
If IsError(Deger) Then
....
End If

IsObject : Değişkenin bir nesne olup olmadığını denetler

Sonuc = IsObject(Command1) ‘ Sonuc = True

Val : String ‘den Sayıya dönüştürme

Sonuc = Val(“1231”) ‘ Sonuc = 1231
Sonuc = Val(“1231 Ali Amca”) ‘ Sonuc = 1231
Sonuc = Val(“1ASDF231”) ‘ Sonuc = 1
Sonuc = Val(“12,31”) ‘ Sonuc = 12
Sonuc = Val(“AS1231”) ‘ Sonuc = 0

TypeName : Değişkenin veri tipinin ismini verir

Dim Ad As String
Ad=“Murat”
Sonuc = TypeName(Ad) ‘ Sonuc = “String”

VarType : Variant değişkendeki verinin tipini kontrol eder

Sonuc = VarType(AdSoyad) ‘ Sonuc = 8
Sonuc = VarType(Sayı) ‘ Sonuc = 2

Abs : Sayının mutlak değerini bulur

Sonuc = Abs(12) ‘ Sonuc = 12
Sonuc = Abs(-12) ‘ Sonuc = 12

Sqr : Sayının karekökünü alır

Sayı = 9
Sonuc = Sqr(Sayı) ‘ Sonuc = “3 “

Sgn : Sayının pozitif mi negatif mi olduğunu bulur

Sayı = 6
Sonuc = Sgn(Sayı) ‘ Sonuc = 1
Sayı = -6
Sonuc = Sgn(Sayı) ‘ Sonuc = -1
Sayı = 0
Sonuc = Sgn(Sayı) ‘ Sonuc = 0

Rnd : 0 – 1 arasında rastgele bir sayı döndürür

Randomize ‘ Her seferinde aynı sayının üretilmesini engeler
sonuc = Int(Rnd * 25 + 1) ‘ 1- 25 arası bir sayı üretir

Round : Sayıyı istenen basamağa kadar yuvarlar

Sonuc= Round(3.48) ‘ Sonuc = 3
Sonuc= Round(3.523214324, 2) ‘ Sonuc = 3.52
Sonuc= Round(3.523214324) ‘ Sonuc = 4

LBound : Dizi içerisinde ki en küçük indisi döndürür

Dim arrayy1(3 To 5) As Integer
Sonuc = LBound(arrayy1()) ‘ Sonuc = 3

Ubound : Dizi içerisinde ki en büyük indisi döndürür

Dim arrayy1(3 To 5) As Integer
Sonuc = UBound(arrayy1()) ‘ Sonuc = 5

Array : Bir variant dizisi oluşturur

Dim X As Variant
X = Array(23, 45, 67, 89, 12)
sonuc = X(3) ‘ Sonuc = 89
X = Array(“Ali”, “Ahmet”, “Kemal”)
Sonuc = X(2) ‘ Sonuc = “Kemal”

Timer : Gece yarısından sonra geçen saniye mikarı

Sonuc = Timer ‘ Sonuc 22:50 için 82200

Date : Sistem tarihini verir

Sonuc = Date ‘ Sonuc o günün tarihi
Date = #January 25, 2099# ‘ Tarih 25.01.2099 olarak değişir

Time : Sistem saatini verir

Sonuc = Time ‘ Sistem saati
Time = “12:00.00” ‘ Saati 12:00:00 olarak değiştirir

Now : Sistem tarih ve saatini gösterir

Sonuc = Now ‘ Tarih ve saat

Day : Tarinin gününü gösterir

Sonuc = Day(Now) ‘ Gün

WeekDay : Haftanın kaçıncı olduğunu gösterir

Sonuc = WeekDay(Now) ‘ 0- Pazar , 1 – Pazartesi, 2 – Salı ....

WeekDayName : Haftanın 1. 3. gibi günlerinin ismi

Sonuc = WeekDayName(5) ‘ Sonuc = “Cuma”

Month : Tarihin ayını verir

Sonuc = Month(Now) ‘ Ay

MonthName : Sayısal olarak verilen ayın ismini verir

Sonuc = Month(7) ‘ Sonuc = “Temmuz”

Year : Tarihin yılını verir

Sonuc = Year(Now) ‘ Yıl

Hour : Zamanın saat bilgisini verir

Sonuc = Hour(Now) ‘ Saat 0 – 23

Minute : Zamanın dakika bilgisini verir

Sonuc = Minute(Now) ‘ Dakika 0- 59

Second : Zamanın saniye bilgisini verir

Sonuc = Second(Now) ‘ Saniye 0 - 59

DateSerial : Verilen yıl, ay ve güne karşı gelen tarih bilgisi oluşturur

Sonuc = DateSerial(1413, 11, 21) ‘ Sonuc = “21.11.1413”

DateValue : Tarihe ait bir Variant döndürür

Sonuc = DateValue("08.07.2002")+ 1000 ‘ Sonuc = “03.04.2005”
Sonuc = DateValue("08.07.2002") - DateValue("08.07.2001") ‘ Sonuc = 365

TimeSerial : Verilen saat, dakika ve saniye ile zaman bilgisi döndürür

Sonuc = TimeSerial(5, 9, 32) ‘ Sonuc = “05:09:32”
Saat 4:32:00 ile 2:22:12 arasında geçen süre
Sonuc = TimeSerial(4-2, 32-22, 00-12) ‘ Sonuc = “02:04:48”

TimeValue : Zamana ait Variant döndürür

Saat1 = #5:11:12 PM#
Saat2 = #8:23:11 PM#
Sonuc = TimeValue(Saat2) - TimeValue(Saat1)
Saat = Hour(Sonuc) ‘ Saat = 3
Dakika = Minute(Sonuc) ‘ Dakika = 11
Saniye = Second(Sonuc) ‘ Saniye = 59

Sin : Açının sinüsünü döndürür
Cos : Açının kosinüsünü döndürür
Tan : Açının tanjantını döndürür
Cot : 1/Tan(x)
Atn : Açının arktanjantını döndürür
Cosh : (Exp(x)+Exp(-x))/2
ArcCos : Atn(x(Sqr(-x*x+1))+3,14/2
Sinh : (Exp(x)-Exp(-x))/2
ArcSin : Atn(x(Sgr(-x*x+1))
Csc : 1/Sin(x)
Exp : Doğal logaritma üssünün tabanını döndürür
Log : Sayının doğal logaritmasını döndürür
Loga : Log(x)/Log(a)
Hex : Ondalık sayıyıyı onaltılık sayıya döndürür (&H)
Oct : Ondalık sayıyı sekizlik sayıya döndürür (&O)

Type Mismatch Hatalı veri ( String değişkene sayısal veri aktarılması, vb. )
Division By Zero Sıfır ile bölme yapılamaz
Overflov Değişkene yapılan atama değişken kapasitesinden büyük
Global defination invalid inside form module Global tanımlama form içerisinde yapılamaz
Invalid outside Sub or Function Tanımlamamış fonksiyon
Subscript out of range Tanımlanmış aralığın dışındaki değer
Use Static or ReDim to dimension arrays in this procedure
Değişkenler General Declaration bölümünde Static yada ReDim olarak tanımlanmış
Dublicate Defination Error Aynı isim iki farklı tür değişken için kullanılmaya çalışılıyor
Variable Not Defined Tanımlanmamış değişken kullanılmaya çalışılıyor