اضافه کردن ثانیه به ساعت

چون اکسس در بعضی سیستم ها ساعت را بصورت AmPm و نه حالت ۲۴ ساعته نشان می دهد بنابراین برای حل مشکل باید ماژولی نوشت که اگر Format اون Time جاری AM شد عدد ۱۲ به آن اضافه بنماید البته برای ساعات خیلی بالاتر باید ارور را رفع کرد بعد تبدیل ساعت و دقیقه به ثانیه و جمع کردن با خود ثانیه 

فرضا اضافه کردن 520 ثانیه  ( 8 دقیقه و 40 ثانیه ) به تایم زیر 

 1:14:20AM

Start ..... 131420

Dim H,M,S

(H=Mid(Start,1,2

(M=Mid(Start,3,2

(S=Mid(Start,5,2

 در اینجا 13 در 3600 و 14 در 60 ضرب شده وبا 20 جمع می گردد و با عدد 520 ثانیه در بالا جمع میشود که عدد 48180 بدست می آید برای تبدیل این عدد به ساعت دقیقه و ثانیه اول 48180 را به 3600 تقسیم می کنیم  که عدد 13 بدست می آید دوم  Remainder ( یا باقیمانده ی تقسیم  )  عدد 48180 بر 3600 را محاسبه می کنیم  وبر 60 تقسیم می کنیم  که عدد 23 میشود ( عدد دقیقه بدست آمد )  و ثانیه هم از Remainder عدد قبلی حاصل میشود یعنی  1380 منهای 22 در 60 : 0 

AMPMhttps://www.languagecentre.ir/english/vocabulary/difference-between-pm-am

ساعت ( 13) دقیقه (23) ثانیه (0)