Skip to main content

AccessTr.neT


farklı bir tarih saat farkı hk.

farklı bir tarih saat farkı hk.

Çözüldü #1
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
.rar Sunu1.rar (Dosya Boyutu: 33,31 KB | İndirme Sayısı: 25)
.rar yeni örnek.rar (Dosya Boyutu: 8,97 KB | İndirme Sayısı: 34)
Cevapla
Çözüldü #2
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'.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #3
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.
Son Düzenleme: 10/06/2009, 10:01, Düzenleyen: SADIK54.
Cevapla
Çözüldü #4
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
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #5
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.
Cevapla
Çözüldü #6
Ö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

.rar TarihSaatFarki_Seruz.rar (Dosya Boyutu: 12,58 KB | İndirme Sayısı: 78)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da