Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
07/04/2009 20:02
Konu Sahibi
arif1971
Yorumlar
4
Okunma
1864
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

arif1971

Aktif Üye
Kullanici Avatari
Aktif Üye
A.... Ç....
67
28/02/2009
0
Ofis 2007
16/10/2017,10:14
Çözüldü 
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


Cevapla

mehmetdemiral

.
Kullanici Avatari
Uzman
M.... D....
4.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
Çözüldü 
Size önerim bir örnek eklemenizdir. Sorunuz tam olarak anlaşılamıyor. Ana formda veya sorguda bir alana

Kod:
=date()


derseniz size o günün tarihini getirir. Daha sonra oradan ister günü ister haftayı ister yılı ister ayı alabilirsiniz. Aşağıya geniş bir döküman ekliyorum. Onu arşivleyin. Tarihke ilgili herşey orada var. Konunuzla ilgili örnek eklerseniz daha çok yardımcı olabilirim.


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


İnadına, ille de Accesstr.net...
Cevapla

life_exciting

Aktif Üye
Kullanici Avatari
Aktif Üye
837
28/12/2009
361
Ankara
Ofis 2003
18/11/2010,00:42
Çözüldü 
merhabalar

Dim Tarih
Tarih =Now
Msgbox “Şu an: ” & Tarih bu kombinasyonu formuma nasıl uygulayabilirim.


Cevapla

ercansahin

BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/09/2017,13:09
Çözüldü 
Cevaplandırıyorum ancak, lütfen bundan böyle sorularınızı yeni konu açarak sorunuz.

Visual Basic Code
Dim tarih As Date
tarih = Date
MsgBox ("Şu an: " & tarih)

şeklinde uygulamalısınız.

Ya da doğrudan

Visual Basic Code
MsgBox ("Şu an: " & Date)

olarak kullanabilirsiniz.


Cevapla

life_exciting

Aktif Üye
Kullanici Avatari
Aktif Üye
837
28/12/2009
361
Ankara
Ofis 2003
18/11/2010,00:42
Çözüldü 
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ı.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Excelden Alınan Verilerden Benzersiz Olanları Tabloya Aktarma ozgur89 2 95 29/09/2017, 01:00 ozgur89
Çözüldü İf İçinde İki Tarih Veya Saat Arası Sorgusu Kullanılabilirmi burhanb 4 168 25/09/2017, 08:23 burhanb
Çözüldü Seçili Dönemi Pdf Aktarma paseidon19 6 272 04/09/2017, 11:27 ozanakkaya
Çözüldü Üst Formdan Alt Forma Veri Aktarma teo81a 2 158 21/08/2017, 08:45 teo81a
Çözüldü Bir Alanın After Update Olayına Baglı Baska Bir Alan Guncellenmesi Problemi keskin78 7 506 02/08/2017, 01:32 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.