Yazilim_Gunlugu_Kopya.txt")Tarih işlemleri:
* Verilen tarihin gününü almak:
MsgBox(Day(Now))
* Verilen tarihin ayini almak:
MsgBox(Month(Now))
* Verilen ay numarasinin ismini almak:
MsgBox(MonthName(7))
* Verilen tarihin saatini almak:
MsgBox(Hour(Now))
* Verilen tarihe, ilk parametrede belirtilen zaman cinsinden bir değer
eklemek:
MsgBox(DateAdd(DateInterval.Day, 20, Now))
* Günün saat, dakika, saniyesini almak:
MsgBox(TimeOfDay)
Yazi işlemleri:
* Yazinin basindaki ve sonundaki bosluklari atmak:
Label1.Text = Trim(" Fikret AKIN ")
' Sonuç: FikretAKIN
* Tüm yaziyi küçük harfe çevirmek:
Label1.Text = LCase("FIKRETakin")
' Sonuç: fikretakin
* Tüm yaziyi büyük harfe çevirmek:
Label1.Text = UCase("FikretAKIN")
' Sonuç:FIKRETAKIN
* Yazinin belirli bir bölümünü almak. Ikinci parametrede verilen pozisyondan baslayarak, üçüncü parametredeki değer kadar karakter alinir:
Label1.Text = Mid("FikretAKIN", 7, 4)
' Sonuç: AKIN
* Yazinin parametrede belirtilen siradaki karakteri almak:
Label1.Text = GetChar("FikretAKIN",8)
' Sonuç: K
* Verilen karakter koduna karsilik gelen karakteri almak:
Label1.Text = Chr(65)
' Sonuç: A
Sayi işlemleri:
* Rasgele sayi üretmek:
' Maximimum 400 değerini alan bir sayi üretir
Rnd() * 400
* Rnd fonksiyonu, uygulama bastan basladiginda ayni değerleri üretir. Her çalismada farklı değer üretmek için, Rnd fonksiyonundan önce Randomize fonksiyonunun çagirilmasi gerekir:
Randomize()
Rnd() * 400
* Parametrede verilen bir değerin sayi olup olmadigini kontrol etmek.
Geriye dönen değer True ya da False mantiksal değeridir:
IsNumeric(TextBox1.Text)
Baska Makalede görüşmek Üzere