İki tarih Arasındaki Yıl Ay ve Gün Hesaplama

[zeynel51]

mrb İki tarih arasında yıl ay gün hesaplama formülü lazım Örnek: Göreve Başlayış Tarihi:31.12.1997 Bugün:11.05.2007 bu iki tarih arasını yıl ay gün olarak hesaplattırmam gerekiyo access 2007 kullanıyorum....

 

[hüsün]

aşağıdaki fonksiyon işinizi görür sanırım
Function TARIHFARKI(d1, d2) As Variant
Dim yilfarki As Integer
Dim ayfarki As Integer
Dim gunfarki As Integer
Dim tarih As Date
If d1 > d2 Then
tarih = d1
d1 = d2
d2 = tarih
End If
yilfarki = Year(d2) - Year(d1)
If DateSerial(Year(d2), Month(d1), Day(d1)) > d2 Then
yilfarki = yilfarki - 1
End If
If Month(d2) > Month(d1) Then
If Day(d2) >= Day(d1) Then
ayfarki = Month(d2) - Month(d1)
Else
ayfarki = Month(d2) - Month(d1) - 1
End If
Else
If Day(d2) >= Day(d1) Then
ayfarki = Month(d2) - Month(d1) + 12
If ayfarki = 12 Then ayfarki = 0
Else
ayfarki = Month(d2) - Month(d1) + 11
End If
End If
If Day(d2) >= Day(d1) Then
gunfarki = Day(d2) - Day(d1)
Else
gunfarki = Day(DateSerial(Year(d1), Month(d1) + 1, 1) - 1) - Day(d1) + Day(d2)
End If
'tarihfarki = Array(yilfarki, ayfarki, gunfarki)
TARIHFARKI = yilfarki & " yıl " & ayfarki & " ay " & gunfarki & " gün"
End Function

 

[attila52]

iki tarih arası fark hesaplatma

mrb İki tarih arasında yıl ay gün hesaplama formülü lazım Örnek: Göreve Başlayış Tarihi:31.12.1997 Bugün:11.05.2007 bu iki tarih arasını yıl ay gün olarak hesaplattırmam gerekiyo access 2007 kullanıyorum....

sayın zeynel51 ekteki örneği ve kodu inceleyiniz basit bir olay ona göre formülleri uygulayınız kendi uygulamanıza iyi çalışmalar.

 

[attila52]

pardon sayın hüsün ben örnek hazırlarken yardımcı olmuş ikinize de iyi çalışmalar

 

[zeynel51]

teşekkür

arkadaşlar ilginize çok teşekkür ederim.

 

[zeynel51]

Sayın hüsün hocam gönderdiğin örnek için çık teşekkür ederim. bu örneği ben kod olarakmı yazacam kusura bakma bu işte çok yeniyim yoksa formül olarakmı

 

[zeynel51]

tarih hesabı

arkadaşlar ekteki form'da yaptığım formatta sadece yılı hesaplatabildim değişik bir yoldan ama benim istediğim yıl gün ay olarak hesaplattırmak

 

[GKMER]

Sayın hüsnü'nün vermiş olduğu fonksiyonu kullanarak yaptığım örnek ekte. Kendi formunuza uyarlarsınız. birde gönderdiğiniz örnek access dosyasını açamadım. belki farklı sürümlerden olabilir.

 

[zeynel51]

Teşekkür

teşekkürler GKMER kardeş tam istedğim bu yalnız buton koymadan direkt olarak d3 yazdıramazmıyız.... kusura bakma bu işte çok yeni olunca yani ne diyeceğimi bilemiyorum
ama eline sağlık.....

 

[BKCAN]

foruma eklenmiş örnekler arasından mevcut onu ekledim alıntıdır

 

[zeynel51]

arkadaşlar ilginize çok teşekkür edrim tam istediğim gibi oldu

 

[canavar_55]

Merhabalar,

Zaman hesabı excell için sorulmuş ancak, bu tür bir program arayanlar için size önereceğim bir tane var. Ben uzun zamandır kullanıyorum ve çok memnunum. RAR olarak 1,12 mb olduğu için upload edemedim ancak size adresini vermek istiyorum.

Saygılarımla.

Adres :

http://www.tamindir.com/program/10811/Zaman_Makinasi.htm

 

[hgunay]

arkadaşlar =[yas]-[doğumtarihi] gibi kod girdiğimde alakasız bi sonuç çıkıyo ortaya yıl olarak sonuç çıkmazmı acaba yani yaşı 24 gibi

 

[hgunay]

arkadaşlar atiilla beyin yolladığı tarih rar ında sadece yıl alanını yazdım ve yaş yıl olarak çıkıyo sadece ancak çıkan yaş sonucu yaş aralığı sütununa örnek yaşı 27 çıkıyosa 25-29 yazsın gibi

 

[UNİX_JR]

birde arkadaşın yazdığı böyle bir macro var gün say isimli işinize yararsa kullanın

 

[baknediycem]

merhaba

arkadaşlar =[yas]-[doğumtarihi] gibi kod girdiğimde alakasız bi sonuç çıkıyo ortaya yıl olarak sonuç çıkmazmı acaba yani yaşı 24 gibi

A1 hucresine doğum tarihini girin.

B1 ' e ise =YAŞ(A1) formulünü girin.

B1 hucresini biçimlendirin. sayı olsun. ondalıktan sonra 0 olmasın. ondalık olmasın.

 

[beab05]

Excelle Access birbirine girdi galiba

 

[hgunay]

arkadaşlar N_Vedat Beyin vermiş olduğu
Private Sub DOĞUM_TARİHİ_Exit(Cancel As Integer)
Me.YAS = DatePart("yyyy", [BUGÜNKÜTARİH]) - DatePart("yyyy", [DOĞUM TARİHİ])
Select Case YAS
Case "0"
Me.YAŞARALIĞI = "0"
Case "1", "2", "3", "4"
Me.YAŞARALIĞI = "1-4" kod sayesinde bu problemide çözdüm emeği geçen herkese tşk ederim.

 

[assenucler]

istek

Sn. hgunay,

Sorunun çözülmüş son şekline ait dosyayı siteye yüklemem mümkün mü? Teşekkürler.

 

[baknediycem]

pardon. konu konumuna bakmadım hic. excel e odaklanmisim.

A1 hucresine doğum tarihini girin.

B1 ' e ise =YAŞ(A1) formulünü girin.

B1 hucresini biçimlendirin. sayı olsun. ondalıktan sonra 0 olmasın. ondalık olmasın.

pardon .