حرفه ای: کار با ساعت و محاسبه ی آن [بایگانی]

Young programmer

جمعه 06 آبان 1390, 22:43 عصر

سلام
بازم من مزاحم بچه های این سایت شدم .

یه برنامه دارم مینویسم برای کشاورزایی که عضو یک شرکت هستند .

شرکت به هر کشاورز تعدادی کوپن برای گرفتن آب در مزارع میده ، واحد هر کوپن با ساعت محاسبه میشه .
مثلا : به یک کشاورز 2 تا کوپن میده و واحد هر کوپن 01:30 هست حالا می خوام محاسبه کنم که دو تا 01:30 چند ساعت یا چند روز میشه ؟
جواب باید بشه 3 ساعت .

خواهش می کنم کمکم کنید به هر دری زدم جواب نداد .

راستی اگه جواب توی جدول ذخیره نشه خیلی بهتره ، یعنی فقط توی گزارش باشه .

omid-vbAuto

جمعه 06 آبان 1390, 23:19 عصر

سلام
بازم من مزاحم بچه های این سایت شدم .

یه برنامه دارم مینویسم برای کشاورزایی که عضو یک شرکت هستند .

شرکت به هر کشاورز تعدادی کوپن برای گرفتن آب در مزارع میده ، واحد هر کوپن با ساعت محاسبه میشه .
مثلا : به یک کشاورز 2 تا کوپن میده و واحد هر کوپن 01:30 هست حالا می خوام محاسبه کنم که دو تا 01:30 چند ساعت یا چند روز میشه ؟
جواب باید بشه 3 ساعت .

خواهش می کنم کمکم کنید به هر دری زدم جواب نداد .

راستی اگه جواب توی جدول ذخیره نشه خیلی بهتره ، یعنی فقط توی گزارش باشه .

مواظب کمک های من باش.:چشمک:

ولی خارج از شوخی ، سوالتون واضح نیست ئنبال چه نوع مشکلی هستی.اگه مشکل کدینگ داری بگو در غیر این صورت مشکل الگوریتمی داری باز مسئله رو کامل بگو تا فکری برات بکنم.

Young programmer

جمعه 06 آبان 1390, 23:27 عصر

مواظب کمک های من باش.:چشمک:

ولی خارج از شوخی ، سوالتون واضح نیست ئنبال چه نوع مشکلی هستی.اگه مشکل کدینگ داری بگو در غیر این صورت مشکل الگوریتمی داری باز مسئله رو کامل بگو تا فکری برات بکنم.
دوست گلم ممنون از توجه تون .
اما کجای سوالم واضح نیست ؟
من می خوام مثلا اگه یک نفر 3 تا کوپن 01:30 گرفته محاسبه کنه و بگه 04:30 همین .

ArashRoshan

شنبه 07 آبان 1390, 00:02 صبح

سلام
درسته ، این کار رو انجام بده :

Dim MainTime As TimeSpan = TimeSpan.Parse("00:01:30")
Dim WantedTime
As TimeSpan = New TimeSpan(MainTime.Ticks * 3)
Me.Text =
WantedTime.Minutes

حالا فکر کنم بدونی باید چکار کنی ، بجای 01:30 زمان مورد نظر و بجای 3 تعداد مورد نظر رو میذاری .

M.KH-SH

شنبه 07 آبان 1390, 00:19 صبح

خروجی محاسبه شما در فرمول بالا میشه 4 ساعت درحالی که باید بشه 4:30

ArashRoshan

شنبه 07 آبان 1390, 00:34 صبح

سلام
4 ساعت نمی شه ، می شه 4 دقیقه ، خب چون من فقط Minute رو خواستم ، دقت کنید . می تونید ثانیه یا هر چیز دیگه ای رو بخواهید .

M.KH-SH

شنبه 07 آبان 1390, 00:41 صبح

77169

اگه من اشتباه کردم مشکل رو بگین لطفا

M.KH-SH

شنبه 07 آبان 1390, 00:42 صبح

Me.Text = WantedTime.Hours & WantedTime.Minutes

مشکل حل شد
خیلی ممنون

Young programmer

شنبه 07 آبان 1390, 11:49 صبح

سلام
من از صبح دانشگاهم اومدم دیدم حل شده یه سکه رو رد کردم از خوشحالی .
واقعا ممنونم .
اما این به دقیقه میده
ببینید فرمت ذخیره ساعت "12:130" حالا اگه یه عدد بزرگ باشه می خوام بگه مثلا یک روز و 2 ساعت ، یعنی 24 ساعت رو 1 روز محاسبه کنه .

اما اگه نشد حداقل به ساعت نشون بده .
مثلا : 3 تا 01:45 رو نشون بده 04:35

M.KH-SH

شنبه 07 آبان 1390, 13:48 عصر

دیگه برای روز ها میتونی دستور بنویسی
ولی برای دقیقه و ساعت همون دستوره بالا کار رو راه میندازه

Young programmer

شنبه 07 آبان 1390, 14:21 عصر

خوب من الان همین رو چیکارش کنم .
جواب میده 04 در حالی که جواب صحیح 04:30 هستش .
کمک کنید لطفا .

M.KH-SH

شنبه 07 آبان 1390, 15:46 عصر

Me.Text = WantedTime.Hours & ":" & WantedTime.Minutes

ArashRoshan

شنبه 07 آبان 1390, 16:38 عصر

اینم از برنامه ای که تمام چیزا رو حساب می کنه : از روز گرفته تا ثانیه : احتیاج به برنامه ی اضافی هم نیست ، خوده Timespan همه کار رو انجام می ده .

77195

Young programmer

شنبه 07 آبان 1390, 18:49 عصر

سلام
واقعا نمی دونم باچه زبونی تشکر کنم ، از خدا می خوام هرچی ازش خواستین بهتون بده .
و البته خدا کنه admin های عزیز این پست رو به عنوان off topic حذف نکنند .:چشمک:
در پناه حق