در حال نوشتن برنامه ای هستم که بتونم مدت ساعت بین دو تاریخ و ساعت رو بهم بده
کدش رو نوشتم و کار هم میده
Sub HoursBetween(StartDate As String, StartTime As String, _
EndDate As String, EndTime As String) As Int
Dim s, e As Long
s = ParseDateAndTime(StartDate, StartTime)
e = ParseDateAndTime(EndDate, EndTime)
Return (e - s) / DateTime.TicksPerHour
و
Sub ParseDateAndTime(d As String, t As String) As Long
DateTime.DateFormat= "yyyy/MM/dd"
DateTime.TimeFormat="HH:mm:ss"
Dim dd = DateTime.DateParse(d), tt = DateTime.TimeParse(t) As Long
tt = (tt + DateTime.TimeZoneOffset * DateTime.TicksPerHour) Mod DateTime.TicksPerDay
Dim total As Long
total = dd + tt + (DateTime.GetTimeZoneOffsetAt(dd) - DateTime.GetTimeZoneOffsetAt(dd + tt)) _
* DateTime.TicksPerHour
Return total
End Sub
ولی میخوام محاسبش اینطوری باشه که مدت ساعت در طی هفته قبل رو بهم بده!!
سوال
hamidjalali 10
سلام
در حال نوشتن برنامه ای هستم که بتونم مدت ساعت بین دو تاریخ و ساعت رو بهم بده
کدش رو نوشتم و کار هم میده
و
ولی میخوام محاسبش اینطوری باشه که مدت ساعت در طی هفته قبل رو بهم بده!!
مثال :تاریخ الان "1393/10/02"
HoursBetween("1393/09/20", "05:00:00" , "1393/09/21", "20:00:00") >>15
HoursBetween("1393/09/30", "16:00:00" , "1393/09/30", "20:00:00") >>4
HoursBetween("1393/09/01", "08:00:00" , "1393/10/01", "13:00:00") >>5
فرض کنید 500 تا رکورد توی دیتا بیس هست و میخوام مقدار ساعات کاکرد یک نفر رو در هفته پیشش رو بده
موندم شرط رو چطوری بنویسم!؟ میخوام عدد 9 رو برگردونه توی مثال بالا!
لینک ارسال
به اشتراک گذاری در سایت های دیگر
15 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.