Fonksiyonlar belli işlemleri yaparlar (örneğin bir sayının karakökünü almak yada verilen bir tarih bilgisini yıl cinsine çevirmek gibi) ve bir değeri döndürürler. Bu nedenle genellikle bir değere eşitlenerek kullanılır.

Abs Fonksiyonu

Bir sayının mutlak değerini bulmak için kullanılır.

Örnek

Private Sub Command1_Click()

Dim a As Double

Dim b As Double

    a = InputBox("Bir sayı girin")

    b = Abs(a)

Print "Girdiğiniz sayının mutlak değeri = "; b

End Sub

Asc Fonksiyonu

Herhangi bir string bilginin ilk karakterine karşılık gelen ASCII kodunun değerini verir.

Örnek

Private Sub Command1_Click()

Dim say

say = Asc("A")

Print say

say = Asc("a")

Print say

say = Asc("oguz")

Print say

End Sub

Chr Fonksiyonu

Asc fonksiyonunun tersidir yani ASCII kodunun karakter olarak karşılığını verir.

Örnek

Private Sub Command1_Click()

Dim say

say = InputBox("Lütfen bir rakam giriniz")

Print Chr(say)

End Sub

Date Fonksiyonu

Sistem tarihini gösterir.

Örnek

Private Sub Command1_Click()

    MsgBox "Bu Günün Tarihi :" & Date, vbOKOnly, "Tarih Bilgisi"

End Sub

DateDiff Fonksiyonu

İki tarih arasındaki sürede geçen zamanı belirtir.

Örnek

Private Sub Command1_Click()

    Dim tarih As Date

    tarih = InputBox("Doğum tarihinizi giriniz")

    MsgBox ("siz" & DateDiff("d", Now, tarih) & "gün önce doğdunuz")

End Sub

Int Fonksiyonu

Girilen sayıyı yuvarlayarak yazılmasını sağlar.

Örnek 1

Private Sub Command1_Click()

    Dim a, b, c

    a = InputBox("bir sayı giriniz")

    b = InputBox("bir rakam giriniz")

    c = Int(a / b)

    Print c

    c = a / b

    Print c

End Sub

LCase Fonksiyonu

Yazdığınız bir yazının bütün harflerini küçük harfe çevirir.

Örnek 1

Private Sub Command1_Click()

    Dim a, b

    a = "OGUZ KUTLU"

    b = LCase(a)

    Print b

End Sub

Örnek 2

Private Sub Command1_Click()

    Dim a, b

        a = "OGUZ"

        b = InputBox("şifreyi giriniz")

    If b = a Then

        Print "şifreyi bildiniz"

    Else

        Print "şifreyi bilemediniz"

    End If

End Sub

Örnek 2.1

Private Sub Command1_Click()

    Dim a, b

        a = "OGUZ"

        b = InputBox("şifreyi giriniz")

    If LCase(b) = LCase(a) Then

        Print "şifreyi bildiniz"

    Else

        Print "şifreyi bilemediniz"

    End If

End Sub

Left Fonksiyonu

Soldan istediğimiz kadar karakteri bulmamızı sağlar.

Örnek 1

Private Sub Command1_Click()

    Cls

    Dim ad, b

    ad = InputBox("adınızı giriniz")

    b = Left(ad, 4)

    Print b

End Sub

Örnek 2

Private Sub Command2_Click()

    Cls

    Dim ad, b, c

    ad = InputBox("adınızı giriniz")

    b = InputBox("kaç karakter")

    c = Left(ad, b)

    Print c

End Sub

Örnek 3

Private Sub Command1_Click()

    Dim a, b

    Cls

    b = InputBox("adınızı giriniz")

    For a = 1 To Len(b)

    Print Left(b, a)

    Next

End Sub

Len Fonksiyonu

Bir bilginin karakter olarak uzunluğunu veya değişken tipinin kapladığı byte alanını verir.

Örnek 1

Private Sub Command1_Click()

    Dim ad, uz

    ad = "Oguz KUTLU"

    uz = Len(ad)

    Print uz

End Sub                        ‘SONUÇ=10 olur.

Örnek 2

Private Sub Command1_Click()

    Dim ad

    Dim a As Integer

    Dim b As Long

    a = 123

    b = 1234567890

    ad = "Oguz KUTLU"

    Print "Tamsayı"; Len(a)

    Print "Uzun tamsayı"; Len(b)

    Print "Karakter"; Len(ad)

End Sub

Örnek 3

Private Sub Command1_Click()

    Dim ad

    Dim a As Integer

    Dim b As Long

    a = InputBox("birinci sayıyı giriniz")

    b = InputBox("ikinci sayıyı giriniz")

    ad = InputBox("adınızı giriniz")

    Print "tamsayı"; Len(a)

    Print "uzun tamsayı"; Len(b)

    Print "sozluk" & Len(ad); "karakterdir"

End Sub

Ltrim, Rtrim ve Trim Fonksiyonu

Bir metnin içindeki boşlukları çıkartarak bitişik metin oluşturur. LTrim bilginin sol tarafındaki boşlukları atar. Rtrim bilginin sağ tarafındaki boşlukları atar. Trim bilginin sol ve sağ tarafındaki boşlukları atar.

Örnek 1

Private Sub Command1_Click()

    Dim ad, a, b, c

    ad = " Oguz Kutlu "

    a = LTrim(ad)

    b = RTrim(ad)

    c = Trim(ad)

    Print a

    Print b

    Print c

End Sub

Mid Fonksiyonu

Bir metnin içindeki istenilen kısımdan kelime almak için kullanılır.

Mid(değişken,başlangıç,uzunluk)

Örnek 1

Private Sub Command1_Click()

    Dim ad

    ad = "Oguz Kemalettin Kutlu"

    FontName = "tahoma"

    FontSize = 15

    Print Mid(ad, 6)

    Print Mid(ad, 1, 23)

    Print Mid(ad, 17)

    Print Mid(ad, 1, 9)

End Sub

Örnek 2

Private Sub Command1_Click()

    Dim ad As String

    Dim a As Integer

    Dim b As Integer

    ad = "Oguz Kemalettin Kutlu"

    FontName = "tahoma"

    FontSize = 15

    a = InputBox("başlangıç değeri")

    b = InputBox("uzunluğu giriniz")

    Print Mid(ad, a, b)

End Sub

Now Fonksiyonu

Sistem tarih ve zamanını verir.

Örnek 1

Private Sub Command1_Click()

    MsgBox "Bu Günün Bilgisi :" & Now, vbOKOnly, "Tarih Bilgisi"

End Sub

Round Fonksiyonu

Belli sayıda ondalık basamağa sahip yuvarlanmış sayı oluşturur.

Round (değişken,ondalık kısım)

Sayı = 123,456789

Yenisayı=Round(sayi,3)    ‘ Sonuç = 123,456

Space Fonksiyonu

İstenilen sayıda boşluk oluşturur.

    Text2.Text = "Oğuz" & Space(3) & "KUTLU"

Shell Fonksiyonu

Hazırladığımız program içerisinde başka bir programı çalıştırmak için kullanılır.

Shell(yol[windowtipi])

Örnek 1

Private Sub Command1_Click()

    Dim a

    a = Shell("c:program filesmicrosoft officeexcel",3)

End Sub

Sqr Fonksiyonu

Bir sayının karakökünü alır.

Örnek 1

Private Sub Command1_Click()

    Dim a As Double

    Dim b As Double

    Dim c As Double

    Dim d As Double

    c = InputBox("bir sayı giriniz")

        If c < 0 Then

    MsgBox ("yanlış sayı girdiniz")

        Else

    d = Sqr(c)

    Print d

        End If

End Sub

String Fonksiyonu

İstenilen karakterin ilk harfini yanyana istediğimiz adtte yazmamızı sağlar.

Örnek 1

Private Sub Command1_Click()

    Dim a

    Dim b

    b = InputBox("bir karakter giriniz.")

    FontSize = 10

    Print String(10, Chr(65))

    Print String(20, "_")

    Print String(5, b)

End Sub

Time Fonksiyonu

Sistem zamanını gösterir.

Örnek 1

Private Sub Command1_Click()

    Dim zaman

    MsgBox ("sistem tarihi :") & Time

End Sub

UCase Fonksiyonu

Bir ifadeyi büyük harfe çevirir.

Örnek 1

Private Sub Command1_Click()

    Dim a, b

    a = "oguz kutlu"

    b = UCase(a)

    Print b

End Sub

Örnek 2

Private Sub Command1_Click()

    Dim a, b

        a = "oguz"

        b = InputBox("şifreyi giriniz")

    If b = a Then

        Print "şifreyi bildiniz"

    Else

        Print "şifreyi bilemediniz"

    End If

End Sub

Örnek 2.1

Private Sub Command1_Click()

    Dim a, b

        a = "oguz"

        b = InputBox("şifreyi giriniz")

    If UCase(b) = UCase(a) Then

        Print "şifreyi bildiniz"

    Else

        Print "şifreyi bilemediniz"

    End If

End Sub

Val Fonksiyonu

Bir ifadenin içindeki ilk rakam veya rakamları alır.

Örnek 1

Private Sub Command1_Click()

    Dim a

    Dim b As Single

    a = InputBox("bir sayı giriniz")

    b = Val(a)

    Print b

End Sub