چطور اختلاف ساعت را در اکسس محاسبه کنیم؟
سوال :
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ و فرمت را چه نوعی تنظیم کنیم و چه کدی بنویسیم که مثلا اختلاف ساعت بین 11 تا 12 محاسبه شود؟
پاسخ :
نوع فیلد زمان یا تاریخ باید Date/Time انتخاب شود و فرمت زمانی بصورت 00:00:00 و برای بدست آوردن اختلاف زمان از دستور DateDiff استفاده می گردد
بطور مثال در جدول دلخواه فیلدهایی با نام Time1 و Time2 با توع داده ای Date/Time ایجاد می کنیم و زمانهای مورد نیاز را ثبت می کنیم و سپس برای محاسبه اختلاف این زمان ها باید یک Query ایچاد نمائید و به جز فیلدهای اصلی فیلدهایی با نام DiffH به منظور ستون اختلاف ساعت و DiffM به منظور ستون اختلاف دقیقه و DiffS به منظور ستون اختلاف ثانیه ایجاد می کنید و تابع های زیر را به ترتیب ستون های ایجاد شده تایپ می کنیم
دستور اختلاف ساعت :
DiffH: DateDiff('h';[time1];[time2])
دستور اختلاف دقیقه :
DiffM: DateDiff('n';[time1];[time2])
دستور اختلاف ثانیه :
DiffS: DateDiff('s';[time1];[time2])
و برای درک بهتر مطلب می توانید مثال فوق را در قالب فایل اکسس البته قابل اجرا در نسخه 2013 از اینجا دانلود نمائید
پسورد فایل : www.farsimeeting.com
پسورد فایل : www.farsimeeting.com
نظرات و پاسخ ها
محمد عامری نوشته :
سلام به نظرم اين جواب راه حل مناسبي نيست چون اختلاف دقيق رو محاسبه نمي كنه بنده روش بسيار ساده اي رو خدمتتون با مثال عرض مي كنم كه ممكنه كار خيلي ها رو راه بندازه .
مرحله اول : فرض كنيد ما يك جدول داريم به اسم tbl و دو فيلد براي ذخير ساعت كه حتما بايد از نوع date/Time باشند و فرمتشون روي ShortTime ذخيره شده باشه اسم اين دو فيلد رو مي زاريم Enter و Exit حالا ما يك جدول داريم كه زمان رو در دو فيلد ذخيره مي كنه .
مرحله دوم : يك كوئري مي سازيم از جدول مورد نظرمون .
مرحله سوم : حالا ما در كوئري دو فيلد داريم با نام هاي Exit و Enter خب كاري كه ما بايد بكنيم اينه كه 3 تا فيلد جديد بسازيم كه يكي ساعت ورود رو كنترل كنه يكي ساعت خروج رو و يكي هم اختلاف رو محاسبه كنه .من اسم كنترل ساعت ورود رو ميزارم EnterCon اسم كنترل ساعت خروج رو ميزارم ExitCon و فيلد محاسبه اختلاف ميزارم Sum
مرحله چهارم : داخل قسمت فيلد كه همون اسم فيلد رو مي خوايم بنويسيم به اين شكل مي نويسيم :فيلد اول :EnterCon: IIf(Hour(tbl.Enter)<12;0;1)فيلد دوم :ExitCon: IIf(Hour(tbl.Exit)<12 And [EnterCon]=1;1;0)فيلد سوم :sum: IIf([ExitCon]=0;[Enter]-[Exit];([Enter]-CDate(12))-([Exit]+CDate(12)))حالا بعد از اجراي كوئري متوجه اعمال تغييرات خواهيم شد
شراره نوشته :
فرمول ها رو چطور پنهان کنم؟
محمد جواد نوشته :
ممنون از برنامه
صفحه 1 از 1
مطالب مرتبط
روش ترکیب کردن متن انگلیسی با ترجمه فارسی اجرای ماکر برنامه نویسی VBA فرمت دارای قابلیت اجرای Macro ایجاد Madual ماژول اجرای کد ترکیب سطرهای دو فایل ورد فایل اکسل comine rows in excell
2013, Wednesday, 24, Jul
ساخت برنامه غذایی روزانه کارمندان شرکت با ACCESS ایجاد نرم افزار محاسبه خورد و خوراک روزانه کارمندان با ACCESS اکسس ایجاد نرم افزار با اکسس ساخت بانک اطلاعاتی با اکسز
2013, Tuesday, 26, Nov
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ محاسبه اختلاف ساعت در اکسس amoozesh mohasebeh ekhtelaf saat dar access بدست آوردن اختلاف ساعت و تاریخ
2015, Thursday, 18, Jun
ذخیره فایل ورد به پی دی اف PDF سیو به پی دی اف Save to pdf تبدیل ورد به پی دی اف Convert Word To PDf چطور می توان فایل ورد را به پی دی اف ذخیره کنم تا بتوان با نرم افزار Adobe Acrobat Reader باز کرد؟ پلاگین SaveToPDF پی دی اف
2013, Friday, 07, Jun
پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس دراکسس 2010 بر روی فرم" navigation "دو فرم را باز کرده ام میخواهم دکمه ای ایجاد کنم که با کلیک بر روی آن محتویات یک فیلد از فرم اول در فیلدی از فرم دوم درج شود
2013, Friday, 25, Oct
