جمع دو تاریخ [بایگانی]

com12151337

سه شنبه 02 مهر 1392, 11:03 صبح

سلام دوستان
میخواستم دوستان یک راهنمایی بفرمایند چگونه از تابع جناب آزادی برای جمع دو تاریخ استفاده کنم
Public Function Diff(ByVal FromDate As Long, ByVal To_Date As Long) As Long
'Çíä ÊÇÈÚ ÊÚÏÇÏ ÑæÒåÇí Èíä Ïæ ÊÇÑíÎ ÑÇ ÇÑÇÆå ãí ßäÏ
Dim tmp As Long
Dim s1, m1, r1, s2, m2, r2 As Integer
Dim Sumation As Single
Dim flag As Boolean
flag = False
If FromDate = 0 Or IsNull(FromDate) = True Or To_Date = 0 Or IsNull(To_Date) = True Then
Diff = 0
Exit Function
End If
آیا در تیبل قسمت expression باید نوشت از اکسس 2013 استفاده میکنم
ممنونم

saeed1234n

سه شنبه 02 مهر 1392, 12:28 عصر

با سلام

دوست عزيز ميشه لطفا توضيح دهيد جمع دو تاريخ به چه منظوري استفاده ميشود ؟ :متفکر::متفکر::متفکر:

com12151337

سه شنبه 02 مهر 1392, 13:07 عصر

سلام وقت بخیر
میخواهم بفرض از تاریخ 1392/01/01 تا تاریخ 1392/01/10 که جمع روزهای آن عدد 10 روز میباشد را بدست بیاورم
تشکر میکنم

saeed1234n

سه شنبه 02 مهر 1392, 13:12 عصر

با سلام

دوست عزيز با وجود فرامايش شما در پست قبل

سوال شما خطاست ! بايد تفاضل دو تاريخ مد نظرتان باشد .

و براي اينكار هم :‌تاريخ هاي دو فيلد را به ميلادي تبديل كنيد و توسط تابع datediff تفاضل دو تاريخ را محاسبه كنيد .

com12151337

سه شنبه 02 مهر 1392, 13:29 عصر

سلام
میشه خواهش کنم نمونه بذارید
تشکر میکنم

saeed1234n

سه شنبه 02 مهر 1392, 17:04 عصر

با سلام

دوست عزیز

این هم نمونه درخواستی !

111133

111134

shahzade_33

چهارشنبه 01 آبان 1392, 10:01 صبح

خیلی دمت گرم