چطور اختلاف ساعت را در اکسس محاسبه کنیم؟
سوال :
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ و فرمت را چه نوعی تنظیم کنیم و چه کدی بنویسیم که مثلا اختلاف ساعت بین 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
مطالب مرتبط
من ویندوز xp داشتم که به ویندوز 7 تغییر دادم و از اون به بعد پرینترم کار نمی کنه در صورتی که دستگاه پرینتر رو چک کردم و سالم هست Windows 7 ویندوز XP ویندوز Seven درایور پرینتر نصب درایور
2013, Tuesday, 21, May
تفاوت گزینه های Blank Page با Page Break در بخش insert چیست؟ ایجاد یک صفحه خالی تفاوت گزینه های blank page با page break پاسخ به سوالات ورد
2013, Friday, 26, Apr
ذخیره فایل ورد به پی دی اف PDF سیو به پی دی اف Save to pdf تبدیل ورد به پی دی اف Convert Word To PDf چطور می توان فایل ورد را به پی دی اف ذخیره کنم تا بتوان با نرم افزار Adobe Acrobat Reader باز کرد؟ پلاگین SaveToPDF پی دی اف
2013, Friday, 07, Jun
شرط گذاری در سلول های اکسل با گزینه Conditional Formatting رنگی کردن سطر و سلول و ستون های اکسل با استفاده از منوی فرمتینگ تب Style پنجره Conditional formating rules manager آموزش اکسل Excel Learning
2016, Friday, 05, Feb
آیا شما مایل به خارج شدن از برنامه Powerpoint هستید؟ چه جوری میتونم کاری کنم که وقتی می خوام از پاورپوینت خارج شم پیام بده که آیا شما مایل به خارج شدن هستید یانه پیغام خروج کدهای VBA برنامه نویسی با پاورپوینت
2013, Friday, 12, Jul
