diff date function

[safaei.mehdi@mapnablade.com]

تصور كنين كه يه سلول دارن شامل تاريخ و ساعت (در كنار هم!) و دو تا سلول ديگه دارين كه يكيش تاريخه و يكيش ساعت.. توضيح دادنم خيلي ضعيفه..ببخشيد
شايد اين تابع به دردتون بخوره.

[khakzad]

تشکر
پسورد کدتون رو لطف می کنید؟
[hr]
ی سوال!
این فاصله تاریخ درخواست تا شروع رو میده؟
الان مثلا ردیف 12 که ده روز فاصله داره.نهایتا میشه 240 ساعت. که با اون 18 ساعت جمع میشه میشه 258 ساعت و چند ثانیه.اره؟[hr]

[safaei.mehdi@mapnablade.com]

سلام-خواهش!
بله دقيقا". اين تابع، فاصله تاريخ درخواست تا تاريخ شروع رو ميده (واسه مبحث نت هستش).
تو سلول تاريخ درخواست، تاريخ و ساعت در كنار هم هستن و من براي اينكه اين دوتا رو از هم جدا نكنم اين تابع رو نوشتم.
ضمنا" 254 ساعت و 57 دقيقه..ثانيه رو در نظر نگرفتم.

پسوردش هم "ظ س" هستش.

[safaei.mehdi@mapnablade.com]

سلام-خواهش!
بله دقيقا". اين تابع، فاصله تاريخ درخواست تا تاريخ شروع رو ميده (واسه مبحث نت هستش).
تو سلول تاريخ درخواست، تاريخ و ساعت در كنار هم هستن و من براي اينكه اين دوتا رو از هم جدا نكنم اين تابع رو نوشتم.
ضمنا" 254 ساعت و 57 دقيقه..ثانيه رو در نظر نگرفتم.

پسوردش هم "ظ س" هستش.


Function diffdate(needdate As String, sdate As String, stime As String)

yy = Left(needdate, 4)
mm = Mid(needdate, 6, 2)
dd = Mid(needdate, 9, 3)

hh = Mid(needdate, 12, 2)
m1 = Mid(needdate, 15, 2)
'__________________________________________
yy1 = Left(sdate, 4)
mm1 = Mid(sdate, 6, 2)
dd1 = Mid(sdate, 9, 3)

hh1 = Left(stime, 2)
m11 = Right(stime, 2)
'__________________________________________
Select Case mm
Case 1: mmcunt = 31
Case 2: mmcunt = 31
Case 3: mmcunt = 31
Case 4: mmcunt = 31
Case 5: mmcunt = 31
Case 6: mmcunt = 31
Case 7: mmcunt = 30
Case 8: mmcunt = 30
Case 9: mmcunt = 30
Case 10: mmcunt = 30
Case 11: mmcunt = 30
Case 12: mmcunt = 29
End Select

'________________________
xy = yy1 - yy
xm = mm1 - mm
xd = dd1 - dd
'________________________
xhh = hh1 - hh
xmm = m11 - m1



diffdate = (((xy * 8760) + (xm * mmcunt) * 24 + (xd * 24) + xhh) * 60 + xmm)


End Function

[khakzad]

ممنون
جالب بود[hr]
ممنون
جالب بود