Tarih Fonksiyonları

Tarih Fonksiyonları
Metin1 = Date -------> Sistem tarihini verir.
Metin1 = Time------->Sistem saatini verir
Metin1 = Now------->Hem tarih hem zaman verileri elde edilir.
Metin1 = Day(Date)------->Gündeğerini verir.date yerini sabit bir değer verilebilir-metin1=day("13.01.2011")
Metin1 = Month(Date)-------> Ayın değerini verir
Metin1 = Year(date) ------->Yılın değerini verir
Metin1 = Weekday(Date)-------> Haftanın kaçıncı günü oldğunu verir.
Metin1 = WeekdayName(Weekday(Date), False, vbSunday) ------->Sistem tarihindeki günün adını verir.
Metin1 = WeekdayName(Weekday("21.12.2012"), False, vbSunday)

Yorumlar

Bu blogdaki popüler yayınlar

04.10.2011 2.ÖRNEK(Veri Tabanı)

04.10.2011 2.ÖRNEK Sub hesapla() For x = 1 To 10 ' burada D sütunun içine A sütunun ilk harfi ve nokta sonra B sütunun birleşmiş halidir. Cells(x, 4) = Left(Cells(x, 1), 1) & "." & " " & Cells(x, 2) ' burada E sütunun içine A sütunuyla B sütunun birleştirmiştir. Cells(x, 5) = Cells(x, 1) & " " & Cells(x, 2) Next x End Sub

Devamı

bir tablodan diğer bir tabloya veri aktarımı

Option Compare Database Dim db As Database Dim rst As Recordset Dim rs As Recordset2 Sub kayıt() Set db = CurrentDb() Set rst = db.OpenRecordset("tablo1") Set rs = db.OpenRecordset("yedek") Do Until rst.EOF rs.AddNew rs.Fields("isim").Value = rst.Fields("isim").Value rs.Update rst.MoveNext Loop End Sub

Devamı

Uygulama Sınavı S-1

İsmi A ile Başlayan Kişi Sayısı Option Compare Database Sub soru1() Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Tablo1") toplam = 0 Do Until rst.EOF If Left(rst.Fields("ad").Value, 1) = "a" Then toplam = toplam + 1 End If rst.MoveNext Loop MsgBox (toplam) End Sub

Devamı

uğur ılgın

Bu Blogda Ara