PDA

View Full Version : روش جمع زمان در access کد نویسی


arab1234
یک شنبه 14 بهمن 1397, 16:13 عصر
آیا امکان دارد بدون کد نویسی عملیات جمع دو زمان را جمع کنیم بصورت ساعت نمایش داده شود
mohammadsaleh
یک شنبه 14 بهمن 1397, 16:30 عصر
از تابع FORMAT استفاده کن
mosaArabi
دوشنبه 15 بهمن 1397, 22:04 عصر
سلام
شما با تابع left دوقم چپ ساعت را جدا کنید . با تابع rightهم دورقم دقیقه را جدا کنید . سپس جمع دو ستون ساعت و دقیقه را بدست باورید .
در اخر هم جمع دقیقه را با ساعت تبدیل کنید و با ساعت قبلی جمعرکنید . اعشار مانده را هم در 60 ضرب کنید دقیقه میشود . ساعت و دقیقه را در کنار هم قرار بدین.

راه دوم اینه که ساعت و دقیقه را کلا به دقیقه تبدیل کنید و بعد از جمع مثلرقسمت اخر روش اول به ساعت و دقیقه تبدیل کنید
حسین محمدصالحی
چهارشنبه 01 اسفند 1397, 20:24 عصر
با سلام ای کاش نمونه ای می گذاشتید
mohammadsaleh
دوشنبه 06 اسفند 1397, 10:15 صبح
Public Function TimetoNumber(T As String) As Long
Dim M As Integer, S As Integer
M = Left(T, 2) * 60
S = Right(T, 2)
TimetoNumber = M + S
End Function


Public Function NumbertoTime(N As Long) As String
Dim H As Integer, M As Integer, S As Integer
H = N \ 3600
M = (N Mod 3600) \ 60
S = ((N Mod 3600) \ 60) Mod 60
NumbertoTime = Right("0" & H, 2) & ":" & Right("0" & M, 2) & ":" & Right("0" & S, 2)


End Function