PDA

View Full Version : سوال: جمع دو ساعت مختلف با یکدیگر


dottnett
شنبه 06 شهریور 1389, 14:17 عصر
با سلام
دو ساعت در داخل دو تکست باکس مختلف دارم و می خواهم آنها را با یکدیگر جمع نمایم
چه کاری باید انجام دهم
Saman_12
شنبه 06 شهریور 1389, 14:53 عصر
سلام.
کار خاصی نمی خواد .کد زیر 2 ساعت به ساعت اکنون سیستم اظافه می کنه و بهت نشون میده :


Dim Time As Date = Date.FromFileTime(Now.ToFileTime)
Time = Time.AddHours(2)
MsgBox(Time.ToLongTimeString)
dottnett
شنبه 06 شهریور 1389, 15:04 عصر
منظورم این است که مثلا در تکست باکس اول :12:30 و در تکست باکس دوم :18:30 داسته باشیم
Saman_12
شنبه 06 شهریور 1389, 15:10 عصر
اینم با منظورتون مغایرت نداشت شما با دستور Split اعداد رو جدا کن بعد هم تک تک اظافه کن.(این دو تا عددی هم که مثال زدین جعمش به روز می کشه!!)با این دستور هم ثانیه رو نشون نمیده :


MsgBox(Time.ToShortTimeString)

اون AM یا ق.ظ رو هم با Mid جدا کن خوب حالا مشکل حل شد ؟؟؟؟؟؟
می تونی کلا یه فانکشن برای این کار بنویسی یا یه Sub