Tarih ile yıl vaya ay toplamak
Tarih
17/06/2009 23:01
Konu Sahibi
danke
Yorumlar
29
Okunma
6052
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



danke
Aktif Üye
Kullanici Avatari
Aktif Üye
185
10/05/2009
0
Ankara
Ofis 2007
29/11/2016,20:53
Çözüldü 
Arkadaşlar kolay gelsin, şimdiden cevap verecek arkadaşlara teşekkürler ediyorum.

Tarih ile yıl veya ay nasıl toplanır.
[05/10/1995]+6 yıl? =
[05/10/1995]+ 8 ay?=

doğrusu beceremedim.
danke, 10-05-2009 tarihinden beri AccessTr.neT üyesidir. AccessTr.neT formuna katıldığımdan beri hem ufkum genişledi, hem programlarla ilgili sorunlarımı çözdüm. Siteye emeği geçen herkese teşekkürler.
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,08:22
Çözüldü 
sayın danke
formda örneklerimiz var arama yapabilirsin,ayrıca şu örnek sanırım işini görür bir inceleyin


Ek Dosyalar
.rar   iki tarih arasındaki gün, ay, yıl, saat, dakika, sn hesa.rar (Dosya Boyutu: 17,25 KB / İndirme Sayısı: 74)
Cevapla


danke
Aktif Üye
Kullanici Avatari
Aktif Üye
185
10/05/2009
0
Ankara
Ofis 2007
29/11/2016,20:53
Çözüldü 
Sayın C*E*L*O*Y*C*E verdiğiniz örneğe benzer, formda bir örnek buldum. Ancak eğer gözümden kaçmadıysa sorduğum soruyla ilgili değillerdi.

Derdim tarih ile sürekli 5 yıl veya 6 yıl veya 8 yılın toplanması, veya ayın toplanması, bu toplama işi kod ile de olabilir. Ama nasıl?

[05/10/1995]+6 yıl? =
[05/10/1995]+ 8 ay?=

İlginiz için ayrıca cevap verecek herke teşekkür ediyorum.
danke, 10-05-2009 tarihinden beri AccessTr.neT üyesidir. AccessTr.neT formuna katıldığımdan beri hem ufkum genişledi, hem programlarla ilgili sorunlarımı çözdüm. Siteye emeği geçen herkese teşekkürler.
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çözüldü 
Bu işlemi DateAdd fonksiyonu ile yapabilirsiniz.
Kullanımını aşağıda bulabilirsiniz.

[05/10/1995]+6 yıl? = DateAdd("yyyy",6,#05/10/1995#)

[05/10/1995]+ 8 ay?= DateAdd("m",8,#05/10/1995#)

-------------------------------------------------------------
KULLANABİLECEĞİNİZ TARİH FONKSİYONLARI
-------------------------------------------------------------

Aslında Vb tarih işlemleri ile ilgili çok fazla fonksiyona sahiptir.
-------------------------------------------------------------
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

Ö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
-------------------------------------------------------------
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
-------------------------------------------------------------
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
-------------------------------------------------------------
Sn. MehmetDemiral'ın eski bir mesajından alıntıdır.
İlgili Konu 
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


danke
Aktif Üye
Kullanici Avatari
Aktif Üye
185
10/05/2009
0
Ankara
Ofis 2007
29/11/2016,20:53
Çözüldü 
Sayın Seruz vermiş olduğunuz bilgiler için teşekkür ediyorum, hepsi harikaydı, örnek uygulamayıda yazıya ekliyorum kolay gelsin..


Ek Dosyalar
.rar   yıl ay toplama.rar (Dosya Boyutu: 13,7 KB / İndirme Sayısı: 36)
danke, 10-05-2009 tarihinden beri AccessTr.neT üyesidir. AccessTr.neT formuna katıldığımdan beri hem ufkum genişledi, hem programlarla ilgili sorunlarımı çözdüm. Siteye emeği geçen herkese teşekkürler.
Cevapla


apobaba77
Aktif Üye
Kullanici Avatari
Aktif Üye
58
18/02/2009
0
Konya
Ofis 2003
12/06/2016,16:29
Çözüldü 
merhaba sayın ustalar. benim yapmak istediğim şey yukardaki örneklere benzer ama biraz farklılıklar mevcut.örneğimde detaylı olarak anlattım.yardımlarınızı bekliyorum.


Ek Dosyalar
.rar   tarih ekleme ve çıkarma.rar (Dosya Boyutu: 9,19 KB / İndirme Sayısı: 18)
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Listede ve Raporda Tarih değerine göre sıralamak m_demir 20 288 03/12/2016, 00:13 m_demir
  İki Tarih Arası Rapor oluşturma Erhan Altay 9 648 10/10/2016, 11:08 atoz112
  Buton ile tabloya tarih eklemek mehmet8x 2 181 08/10/2016, 18:17 mehmet8x
  Tarih ve saatten otomatik sayı üretme cagatay1234 6 230 11/09/2016, 10:19 atoz112
  İki tarih arası sorgu IceMan7 3 292 28/07/2016, 13:07 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya