AccessTr.neT

Tam Versiyon: farklı bir tarih saat farkı hk.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Arkadaşlar iki tarih arası ve saat fark örnekleri var sitede ancak benim istediğim başlama tarih saatten mesela 10:00 saat sonrası tarih ve saat kaç olur bunun formülizasyonu nasıl olur yardımcı olurmusunuz. daha açık olarak resimli anlatım ektedir. yardımlarınızı bekliyorum
Bunun için DateAdd fonksiyonunu kullanabilirsiniz.

Mesela 10 saat eklemek için,
DateAdd ("h", 10, ZamanDegiskeninizinAdi)
şeklinde kullanabilirsiniz.

Çıkartma yapmak istediğinizde, değeri - olarak girmelisiniz.
Mesela 10 saat çıkarmak için
DateAdd ("h", -10, ZamanDegiskeninizinAdi)

Genel Olarak Kullanabilecekleriniz:
yyyy -> YIL
m -> AY
d -> GÜN
ww -> HAFTA
h -> SAAT
n -> DAKİKA
s -> SANİYE

--------------------------------------------------------------------------------
Access: DateAdd Function

In Access, the DateAdd function returns a date after which a certain time/date interval has been added.

The syntax for the DateAdd function is:

DateAdd ( interval, number, date )

interval is the time/date interval that you wish to add. It can be one of the following values:

Value Explanation
yyyy -> YIL
m -> AY
d -> GÜN
ww -> HAFTA
h -> SAAT
n -> DAKİKA
s -> SANİYE

number is the number of intervals that you wish to add.

date is the date to which the interval should be added.



For example:

DateAdd ("yyyy", 3, #22/11/2003#) would return '22/11/2006'
DateAdd ("q", 2, #22/11/2003#) would return '22/05/2004'
DateAdd ("m", 5, #22/11/2003#) would return '22/04/2004'
DateAdd ("n", 51, #22/11/2003 10:31:58 AM#) would return '22/11/2003 11:22:58 AM'
DateAdd("yyyy", -1, #22/11/2003#) would return '22/11/2002'



VBA Code
The DateAdd function can be used in Vba code. For example:

Dim LDate As Date

LDate = DateAdd ("s", 53, #22/11/2003 10:31:58 AM#)

In this example, the variable called LDate would now contain the value of '22/11/2003 10:32:51 AM'.
tam olarak anlayamadım formülüzasyon hangisi benim gönderdiğim örneğin içine nasıl entegre edeceğim. yardımcı olurmusunuz.
sn.seruz inanın anlasam tekrar sormam size gönderdiğim örneğin içine formülüzasyonu yapabilirseniz çok sevinirim. bu şekilde anlayamadım.
sorun değil sn. SADIK54,
Ben sizin örneğinize bakmadan bu tür durumlarda kullanılan fonksiyonu yazmıştım.
Şimdi örneğinizi inceliyorum, istediğiniz gibi yapıp göndereceğim.
Ancak sizin de yapmanız gereken öncelikle aşağıdaki konuyu okumak.
Yapılmaması Gereken Ölümcül Hatalar
Kuralları öğrendim teşekkürler Tablo isimleri Form isimleri ve Form isimleri büyük harfle ve yazılar bitişik olacak şekilde yapılacak Türkçe karakter kullanılmayacak.
Örneğinizi ekledim, Hesaplanan tarih ve saatin görünmesi için formda termini öne aldım.

Okuduğunuz kurallara uyarsanız, uygulamanız büyüdükçe daha rahat edersiniz.

Kod:
Private Sub başlama_saat_AfterUpdate()
    Bitis_Hesapla
End Sub

Private Sub başlama_tarih_AfterUpdate()
    Bitis_Hesapla
End Sub

Private Sub termin_süresi_AfterUpdate()
    Bitis_Hesapla
End Sub

Private Sub Bitis_Hesapla()
Dim EklenecekSaat, EklenecekDakika
Dim BaslangicZamani As Date, BitisZamani As Date
    If IsNull(Me.[başlama tarih]) Or IsNull(Me.[başlama saat]) Or IsNull(Me.[termin süresi]) Then
        Me.[bitiş tarih] = Null
        Me.[bitiş saat] = Null
    Else
        EklenecekSaat = Hour(Me.[termin süresi])
        EklenecekDakika = Minute(Me.[termin süresi])
        BaslangicZamani = CVDate((Me.[başlama tarih]) + (Me.[başlama saat]))
        BitisZamani = DateAdd("h", EklenecekSaat, BaslangicZamani)
        BitisZamani = DateAdd("n", EklenecekDakika, BitisZamani)
        Me.[bitiş tarih] = DateValue(BitisZamani)
        Me.[bitiş saat] = TimeValue(BitisZamani)
    End If
End Sub
Sayfalar: 1 2