چطور اختلاف ساعت را در اکسس محاسبه کنیم؟
سوال :
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ و فرمت را چه نوعی تنظیم کنیم و چه کدی بنویسیم که مثلا اختلاف ساعت بین 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
مطالب مرتبط
برقراری ارتباط بین یک تیبل با چندین تیبل بانک اطلاعاتی جدول مشخصات شناسنامه فرد relation کلید خارجی در جدول دیتابیس ساخت دیتابیس با جداول زیاد و ایجاد رابطه بین جداول و نحوه تعریف کلید خارجی database تیبل یا جدول بانک اطلاعاتی access
2016, Saturday, 13, Feb
نحوه مرتب شدن خودکار Auto Sort رکورد ها در نرم افزار اکسل نحوه مرتب شدن خودکار (Auto Sort) رکورد ها در نرم افزار اکسل منوی Home و منوی Editing و از دکمه Sort Filter
2013, Thursday, 05, Sep
از بین بردن فایل اکسل در تاریخ معین ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی) Expire Date In Excel ایجاد فایل اکسل با تاریخ انقضاء ایجاد ماکرو VBProject فایل اکسل
2013, Thursday, 30, May
تنظیمات را باید از طریق تب Page Layout و منوی Page Setup انجام داد، برای این کار بر روی زبانه کوچک در منوی Page Setup کلیک کنید تا صفحه تنظیمات صفحه نحوه تنظیمات Page Setup برای پایان نامه payan name
2013, Thursday, 05, Sep
آیا شما مایل به خارج شدن از برنامه Powerpoint هستید؟ چه جوری میتونم کاری کنم که وقتی می خوام از پاورپوینت خارج شم پیام بده که آیا شما مایل به خارج شدن هستید یانه پیغام خروج کدهای VBA برنامه نویسی با پاورپوینت
2013, Friday, 12, Jul
