Tarih Bilgilerini Başka Satıra Aktarma - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Tarih Bilgilerini Başka Satıra Aktarma (/konu-tarih-bilgilerini-baska-satira-aktarma.html) |
Tarih Bilgilerini Başka Satıra Aktarma - arif1971 - 07/04/2009 Hocam öncelikle sizlere kolay gelsin benim sorunum yapmış olduğum ceride programında - yazmış olduğum tarih hücresinden, - "ay_gunu" ve "ay_adı" hücrelerinde de otomatik olarak "tarih" hücresinden "günü" ve "ay adını" almasını istiyorum bir türlü yapamadım. Sizlere çook teşekkür ederim, ve başarılar dilerim Cvp: Tarih Bilgilerini Başka Satıra Aktarma - mehmetdemiral - 07/04/2009 Size önerim bir örnek eklemenizdir. Sorunuz tam olarak anlaşılamıyor. Ana formda veya sorguda bir alana Kod:
=date() TARİH FONKSİYONLARI Aslında Vb tarih işlemleri ile ilgili çok fazla fonksiyona sahiptir. Bende hepsini bir araya getirince fark ettim J. Hikayeye gerek yok konuya devam edelim… Date Fonksiyonu: Sistemin tarih bilgisini döndürür. Örnek: Dim Tarih Tarih =Date Msgbox “Bu günün tarihi: ” & Tarih Now Fonksiyonu: Sistemin tarih bilgisini en ayrıntılı biçimde döndürür. Örnek: Dim Tarih Tarih =Now Msgbox “Şu an: ” & Tarih DateAdd Fonksiyonu: Belirtilen tarihe belli bir süreyi ekler veya çıkartır. Kullanımı; DateAdd(süre,sayi,tarih) Süre eklenecek süre türünü belirtir, seçilen süreden ne kadar ekleneceğini belirtir, sayının ekleneceği tarihi belirtir. Süre Degerleri; Değer Açıklama yyyy Yıl q Çeyrek yıl (3 ay) m Ay y Yılın günü d Gün w Haftanın günü ww Hafta h Saat n Dakika s Saniye Örnek: Şimdi ”22.08.2003” tarihine 3 ay ekleyelim. Dim ilkTarih As Date ‘Ekleme yapacağımız tarihi tanımladık Dim EklenecekSure As İnteger ‘Eklenecek süreyi tanımladık ilkTarih=”22.08.2003” ‘Ekleme yapacağımız tarihin değerini atadık. EklenecekSure = 3 ‘Eklenecek sürenin degerini atadık. YeniTarih=DateAdd(“m”,EklenecekSure,ilkTarih) ‘”m” değeri ay belirtir. Msgbox YeniTarih Örnek: Şimdi ”22.08.2003” tarihine 15 gün ekleyelim. Dim ilkTarih As Date ‘Ekleme yapacağımız tarihi tanımladık Dim EklenecekSure As İnteger ‘Eklenecek süreyi tanımladık ilkTarih=”22.08.2003” ‘Ekleme yapacağımız tarihin değerini atadık. EklenecekSure = 15 ‘Eklenecek sürenin degerini atadık. YeniTarih=DateAdd(“d”,EklenecekSure,ilkTarih) ‘”d” değeri gün belirtir. Msgbox YeniTarih DİKKAT: Eğer zaman ile ilgili işlem yapılacak ise “12.06.2003 15:35:19” şeklinde olmalı DateDiff Fonksiyonu: İki Tarih Arasındaki süreyi verir. Kullanımı; DateDiff(süre, Tarih1, Tarih2,Haftanın ilk günü,Yılın ilk günü) Süre alınmak istenen tarih türünü belirtir,Tarih1 ilk tarihi,Tarih2 tarihi belirtir. Sürenin değerleri yukarıdaki tablonun aynısıdır. Eğer haftanın ilk günü belirtilmez ise ilk günü Pazar olarak kabul eder. Haftanın İlk Günü Sabit Değer Açıklama vbUseSystem 0 Sistem değeri vbSunday 1 Pazar (Varsayılan) vbMonday 2 Pazartesi vbTuesday 3 Salı vbWednesday 4 Çarşamba vbThursday 5 Perşembe vbFriday 6 Cuma vbSaturday 7 Cumartesi Yamuk yumuk oldu ama neyse.. Örnek: Diyelim ki “13.02.2003” tarihinden bu gün ki tarihe kadar kaç gün geçti? Dim Tarih As Date ‘Kullanacağımız tarihi tanımladık. Dim Mesaj As String ‘Mesajın içeriği için değişken tanımladık Tarih = “13.02.2003” ‘‘Kullanacağımız tarihi değerini atadık Mesaj = DateDiff(“d”,Now,Tarih) ‘”d” ile günü,Now ile şimdiki tarihi belirttik Msgbox “Bu günden bu kadar gündür:” & Mesaj Örnek: “13.02.2003” tarihi ile “15.07.2003” tarihi arasında kaç hafta var? Dim Tarih1 As Date ‘Tarihleri tanımladık. Dim Tarih1 As Date ‘Tarihleri tanımladık. Dim Mesaj As String ‘Mesajın içeriği için değişken tanımladık Tarih1 = “13.02.2003” ‘Tarihlere değerlerini atadık. Tarih2 = “15.07.2003” ‘Tarihlere değerlerini atadık. Mesaj = DateDiff(“ww”,Tarih1,Tarih2) ‘”ww” ile değeri hafta olarak istediğimizi belirttik. Msgbox Mesaj & “ Haftadır.” DatePart Fonksiyonu: Verilen tarihin belirli bir kısmını verir. Kullanımı; DatePart(süre, Tarih,Haftanın ilk günü,Yılın ilk günü) Süre yukarıdaki tabloda bukunan değerlerin aynısıdır. Eğer haftanın ilk günü kullanılmaz ise Pazar haftanın ilk günü kabul edilir. Örnek: “13.02.2003” tarihinin yılını öğrenelim. Dim Tarih As Date ‘Kullanacağımız tarihi tanımladık. Dim Mesaj As String Mesajın içeriği için değişken tanımladık Tarih = “13.02.2003” ‘Değişkene değerini atadıl Mesaj = DatePart(“yyyy”,Tarih) ‘”yyyy” ile yıl değerini istediğimizi belittik. Msgbox “Yıl: ” & Mesaj Weekday Fonksiyonu: Haftanın gün bilgisini dönderir. Kullanımı; Weekday(Tarih,Haftanınilkgünü) Örnek: Dim Tarih ‘Kullanacağımız tarihi tanımladık. Dim GunAdi ‘Gün adını saklayacağımız değişkeni tanımladık Tarih = “23.06.2003” ‘Değişkene değerini atadık. GunAdi = Weekday(Tarih, ,vbMonday) ‘vbMonday ile haftanın ilk gününün pazartesi olduğunu belirttik. ‘Bize Gun 1 olarak döner, yani pazartesi, eğer haftanın ilk gününü pazartesi seçmemiş olsaydık. 2 yani Salı dönecekti. WeekdayName Fonksiyonu: Haftanın gün bilgisinin adını döndürür. Kullanımı; WeekdayName(HaftanınGunu, Kısaltma, Haftanınilkgünü) Örnek: Dim Tarih ‘Kullanacağımız tarihi tanımladık. Dim Gun ‘Kullanacağımız gün numarasını saklayacağımız değişkeni tanımladık. Dim GunAdi ‘Gün adını saklayacağımız değişkeni tanımladık. Tarih = “23.06.2003” ‘tarih değişkenine değerini atadık. Gun =Weekday(Tarih, vbMonday) ‘Belirttiğimiz tarihin haftanın kaçıncı günü olduğunu bulduk. GunAdi = WeekdayName(Gun, ,False, vbMonday) ‘False değeri kısaltma yok demek. Year Fonksiyonu: Tarih bilgisinin yıl değerini döndürür. Kullanımı; Year(Tarih) Örnek: Dim Tarih, Yil Tarih = “03.08.2003” Yil = Year(Tarih) ‘2003 değeri döner. Msgbox “Yıl: “ & Yil Month Fonksiyonu: Tarih bilgisinin ay değerini döndürür. Kullanımı; Month(Tarih) Örnek: Dim Tarih, Ay Tarih = “03.08.2003” Ay = Month(Tarih) ‘8 değeri döner. Msgbox “Ay: “ & Ay Day Fonksiyonu: Verilen tarihin Ayın hangi günü olduğunu döndürür. Kullanımı; Day(Tarih) Örnek: Dim Tarih, Gun Tarih = “23.06.2003” Gun = Day(Tarih) ‘Bize Gun 23 olarak döner. Time Fonksiyonu: Sistemin zaman bilgisini döndürür. Örnek: Dim Zaman Zaman =Time Msgbox “Şuan saat: ” & Zaman Hour Fonksiyonu: Gün bilgisinin saat değerini verir. Örnek: Dim Zaman, Saat Zaman =#3:12:19 PM# Saat = Hour(Zaman) ’15 değeri döner. MsgBox Saat Minute Fonksiyonu: Zamanın dakika bilgisini döndürür. Örnek: Dim Zaman, Dakika Zaman =#3:12:19 PM# Dakika = Minute(Zaman) ’12 değeri döner. MsgBox Dakika Timer Fonksiyonu: Zamanı saniye cinsinden verir. Örnek: Dim Sn Sn = Timer Msgbox Cvp: Tarih Bilgilerini Başka Satıra Aktarma - life_exciting - 22/11/2010 merhabalar Dim Tarih Tarih =Now Msgbox “Şu an: ” & Tarih bu kombinasyonu formuma nasıl uygulayabilirim. Cvp: Tarih Bilgilerini Başka Satıra Aktarma - ercansahin - 22/11/2010 Cevaplandırıyorum ancak, lütfen bundan böyle sorularınızı yeni konu açarak sorunuz. şeklinde uygulamalısınız.Ya da doğrudan olarak kullanabilirsiniz.
Cvp: Tarih Bilgilerini Başka Satıra Aktarma - life_exciting - 22/11/2010 Teşekkür Ederim.Konu Kirliliğine Neden Olmamak Adına Yeni Konu Açma Gereği Duymadım.Zaten Hali Hazırda Bu Konuyla İlgili Bir Konu Vardı. |