• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Z

zeynel51

Katılım
10 Mayıs 2007
Mesajlar
7
Excel Vers. ve Dili
türkçe
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....
 
Son düzenleme:
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
 
iki tarih arası fark hesaplatma

zeynel51' Alıntı:
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....
Genişletmek için tıkla ...

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.
 
pardon sayın hüsün ben örnek hazırlarken yardımcı olmuş ikinize de iyi çalışmalar
 
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ı
 
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
 
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.
 
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.....
 
foruma eklenmiş örnekler arasından mevcut onu ekledim alıntıdır
 
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
 
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
 
merhaba

hgunay' Alıntı:
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
Genişletmek için tıkla ...

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.
 
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.
 
istek

Sn. hgunay,

Sorunun çözülmüş son şekline ait dosyayı siteye yüklemem mümkün mü? Teşekkürler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst