آیا امکان دارد بدون کد نویسی عملیات جمع دو زمان را جمع کنیم بصورت ساعت نمایش داده شود
آیا امکان دارد بدون کد نویسی عملیات جمع دو زمان را جمع کنیم بصورت ساعت نمایش داده شود
از تابع FORMAT استفاده کن
سلام
شما با تابع left دوقم چپ ساعت را جدا کنید . با تابع rightهم دورقم دقیقه را جدا کنید . سپس جمع دو ستون ساعت و دقیقه را بدست باورید .
در اخر هم جمع دقیقه را با ساعت تبدیل کنید و با ساعت قبلی جمعرکنید . اعشار مانده را هم در 60 ضرب کنید دقیقه میشود . ساعت و دقیقه را در کنار هم قرار بدین.
راه دوم اینه که ساعت و دقیقه را کلا به دقیقه تبدیل کنید و بعد از جمع مثلرقسمت اخر روش اول به ساعت و دقیقه تبدیل کنید
با سلام ای کاش نمونه ای می گذاشتید
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
آخرین ویرایش به وسیله mohammadsaleh : دوشنبه 06 اسفند 1397 در 10:26 صبح