Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Kodlama ve Komutlar » İki tarih arasında kaç gün var
Verilen iki tarih arasında kaç gün olduğunu nasıl hesaplayabilirim. Birde forumda "faydalı tarih fonksiyonları" başlığında listelenmiş bazı fonksiyonlar vardı bunları çok aramama ramen bulamadım. Bu sayfaya bir link verebilirmisiniz.
Teşekkür ederim.
local ldToday,ldSomeDate,lnhowmanydate
ldToday = date()
ldSomeDate = {^2007-01-03}
lnhowmanyDate = m.ldToday - m.ldSomeDate
? lnhowmanyDate
faydali tarih fonksiyonlari linki
Verilen iki tarih arasında kaç gün olduğunu nasıl hesaplayabilirim. Birde forumda "faydalı tarih fonksiyonları" başlığında listelenmiş bazı fonksiyonlar vardı bunları çok aramama ramen bulamadım. Bu sayfaya bir link verebilirmisiniz.
Teşekkür ederim.
FUNCTION DiffInYMD
LPARAMETERS tdDate1, tdDate2
IF PARAMETERS() < 1
RETURN REPLICATE('0',8)
ENDIF
LOCAL lnYears, lnMonths,lnDays
IF EMPTY(tdDate2)
tdDate2 = DATE()
ENDIF
lnYears = YEAR(tdDate2)-YEAR(tdDate1)
IF GOMONTH(tdDate1,lnYears*12) > tdDate2
lnYears = lnYears - 1
ENDIF
tdDate1 = GOMONTH(tdDate1,lnYears*12)
lnMonths = 0
DO WHILE MONTH(tdDate1) # MONTH(tdDate2)
tdDate1 = GOMONTH(tdDate1,1)
lnMonths = lnMonths + 1
ENDDO
IF DAY(tdDate1) > DAY(tdDate2)
lnMonths = lnMonths - 1
tdDate1 = GOMONTH(tdDate1,-1)
ENDIF
lnDays = tdDate2 - tdDate1
RETURN PADL(INT(lnYears * 10^4 + lnMonths * 10^2 + lnDays),8,'0')
*Return CTOD(Transform(lnYears) + "/" + Transform(lnMonths) + "/" + Transform(lnDays))
Sanırım doğum günü hesaplamasında faydası olru.
evt bu function() yil ay gün seklinde hesaplamak icin guzel bir ornek
fox4um » Kodlama ve Komutlar » İki tarih arasında kaç gün var