تصور كنين كه يه سلول دارن شامل تاريخ و ساعت (در كنار هم!) و دو تا سلول ديگه دارين كه يكيش تاريخه و يكيش ساعت.. توضيح دادنم خيلي ضعيفه..ببخشيد
شايد اين تابع به دردتون بخوره.
شايد اين تابع به دردتون بخوره.
-
[color=#32CD32][b]سخت است فهماندن چيزي به كسي كه بابت نفهميدنش پول هم نمي گيرد .[/b][/color] -
RE: diff date function
تشکر
پسورد کدتون رو لطف می کنید؟
[hr]
ی سوال!
این فاصله تاریخ درخواست تا شروع رو میده؟
الان مثلا ردیف 12 که ده روز فاصله داره.نهایتا میشه 240 ساعت. که با اون 18 ساعت جمع میشه میشه 258 ساعت و چند ثانیه.اره؟[hr]
[CENTER][B][COLOR=#008000][SIZE=3]محصولات و جزوات آموزش تخصصی [URL="https://excelpedia.net/"]اکسل[/URL] در:
[URL="https://excelpedia.net/category/excel-functions/"]برترین مرجع تخصصی پارسی اکسل[/URL]
[URL="http://www.exceliran.com/shop/"]جامعه اكسل ايرانيان: فروشگاه[/URL][/SIZE][/COLOR][/B]
:wcom:
[B][URL="https://excelpedia.net/"]آموزش اکسل تخصصی[/URL] و [URL="https://excelpedia.net/excel-ninja/"]پیشرفته[/URL] - [URL="https://excelpedia.net/"]تهران[/URL][/B]
[EMAIL="h.khakzad@yahoo.com"]h.khakzad@yahoo.com[/EMAIL]
[/CENTER] -
RE: diff date function
سلام-خواهش!
بله دقيقا". اين تابع، فاصله تاريخ درخواست تا تاريخ شروع رو ميده (واسه مبحث نت هستش).
تو سلول تاريخ درخواست، تاريخ و ساعت در كنار هم هستن و من براي اينكه اين دوتا رو از هم جدا نكنم اين تابع رو نوشتم.
ضمنا" 254 ساعت و 57 دقيقه..ثانيه رو در نظر نگرفتم.
پسوردش هم "ظ س" هستش.
[color=#32CD32][b]سخت است فهماندن چيزي به كسي كه بابت نفهميدنش پول هم نمي گيرد .[/b][/color]کامنت
-
RE: diff date function
سلام-خواهش!
بله دقيقا". اين تابع، فاصله تاريخ درخواست تا تاريخ شروع رو ميده (واسه مبحث نت هستش).
تو سلول تاريخ درخواست، تاريخ و ساعت در كنار هم هستن و من براي اينكه اين دوتا رو از هم جدا نكنم اين تابع رو نوشتم.
ضمنا" 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
[color=#32CD32][b]سخت است فهماندن چيزي به كسي كه بابت نفهميدنش پول هم نمي گيرد .[/b][/color]کامنت
-
RE: diff date function
ممنون
جالب بود[hr]
ممنون
جالب بود[CENTER][B][COLOR=#008000][SIZE=3]محصولات و جزوات آموزش تخصصی [URL="https://excelpedia.net/"]اکسل[/URL] در:
[URL="https://excelpedia.net/category/excel-functions/"]برترین مرجع تخصصی پارسی اکسل[/URL]
[URL="http://www.exceliran.com/shop/"]جامعه اكسل ايرانيان: فروشگاه[/URL][/SIZE][/COLOR][/B]
:wcom:
[B][URL="https://excelpedia.net/"]آموزش اکسل تخصصی[/URL] و [URL="https://excelpedia.net/excel-ninja/"]پیشرفته[/URL] - [URL="https://excelpedia.net/"]تهران[/URL][/B]
[EMAIL="h.khakzad@yahoo.com"]h.khakzad@yahoo.com[/EMAIL]
[/CENTER]کامنت
کامنت