Konu: 2 tarih arası fark
Selamlar;
Aşağıdaki kod ile farkı bulmaya çalışıyorum. Ayın 30 ve 31. günlerinde aynı sonuç geliyor.
Sorunu nasıl çözebilirim.
? NewBtwndates(DATE(2015,5,30),DATE(2015,7,23))
? NewBtwndates(DATE(2015,5,31),DATE(2015,7,23))
Function NewBtwndates()
Lparameters Ldate1,Ldate2
d1 = Ldate1
d2 = Ldate2
Store 0 To liJ , liM , liT
Do While d1 < d2
Do Case
Case Gomonth( d1 , 12 ) < d2
liJ = liJ + 1
d1 = Gomonth( d1 , 12 )
Case Gomonth( d1 , 1 ) < d2
liM = liM + 1
d1 = Gomonth( d1 , 1 )
Otherwise
liT = liT + 1
d1 = d1 + 1
Endcase
Enddo
Return Padl(Alltrim(Str(liJ)),4,'0') + Padl(Alltrim(Str(liM)),2,'0') + Padl(Alltrim(Str(liT)),2,'0')
Endfunc