[حل شده] تبدیل ساعت به روز

[taha.r]

با عرض سلام خدمت دوستان

در قسمت مرخصی رفته می خواهم مجموع ساعت رها را تبدیل به روز و ساعت کنم ولی مشکل اینه که جمع درست انجام نمیشه همچنین در قسمت مرخصی مانده نیز از مرخصی کل کم شود

[M_ExceL]

با عرض سلام خدمت دوستان

در قسمت مرخصی رفته می خواهم مجموع ساعت رها را تبدیل به روز و ساعت کنم ولی مشکل اینه که جمع درست انجام نمیشه همچنین در قسمت مرخصی مانده نیز از مرخصی کل کم شود

سلام،
برای روز فرمول زیر رو وارد کنید :

=INT(TEXT(M16,"[hh]")/24)

برای ساعت فرمول زیر :

=MOD(TEXT(M16,"[hh]")/24,1)*24

و برای دقیقه فرمول زیر :

=MINUTE(M16)

داخل فایل پیوست، قسمت سبز رنگ از فرمول های فوق استفاده شده است.
یا حق.

[taha.r]

سپاس دوست گرامی من می خوام هر 7:20 یک روز حساب بشه و همینطور 14:20 دو روز و مابقی

[M_ExceL]

سپاس دوست گرامی من می خوام هر 7:20 یک روز حساب بشه و همینطور 14:20 دو روز و مابقی

سلام،
می تونید از تابعی که براتون نوشتم طبق فایل پیوست استفاده کنید.

Function ttd(t1, tb As Date, r As String)
Dim ff, gg As Date
i = 0
    Do While ff <= tb
        ff = ff + t1
        i = i + 1
    Loop
gg = tb - (ff - t1)
Select Case r
    Case 1
        ttd = i - 1
    Case 2
        ttd = Mid(Format(gg, "hh:mm:ss"), 2, 1)
    Case 3
        ttd = Mid(Format(gg, "hh:mm:ss"), 4, 2)
    Case Else
        ttd = "Err"
End Select
End Function

[taha.r]

سلام،
می تونید از تابعی که براتون نوشتم طبق فایل پیوست استفاده کنید.

Function ttd(t1, tb As Date, r As String)
Dim ff, gg As Date
i = 0
    Do While ff <= tb
        ff = ff + t1
        i = i + 1
    Loop
gg = tb - (ff - t1)
Select Case r
    Case 1
        ttd = i - 1
    Case 2
        ttd = Mid(Format(gg, "hh:mm:ss"), 2, 1)
    Case 3
        ttd = Mid(Format(gg, "hh:mm:ss"), 4, 2)
    Case Else
        ttd = "Err"
End Select
End Function

سپاس دوست عزیز
ولی یک مرخصی کم یا اضافه می کنم خطا میدهد

[M_ExceL]

سپاس دوست عزیز
ولی یک مرخصی کم یا اضافه می کنم خطا میدهد

سلام،
داخل فایلی که بنده پیوست کردم به درستی عمل میکنه.
ارگومان های تابع باید به درستی انتخاب شوند. لذا اگر داخل فایل یا شیت دیگری از تابع استقاده کردید فایلتون رو هم پیوست کنید بررسی کنیم.

[taha.r]

سلام،
داخل فایلی که بنده پیوست کردم به درستی عمل میکنه.
ارگومان های تابع باید به درستی انتخاب شوند. لذا اگر داخل فایل یا شیت دیگری از تابع استقاده کردید فایلتون رو هم پیوست کنید بررسی کنیم.

سپاس از زحمت شما
اگر امکان داره قسمت های سبز را برام درست کنید با توجه اینکه هر 7:20 یک روز کاری حساب بشه و اگر بیش از حد مرخصی در ماه استفاده شد مرخصی مانده منفی شود

[M_ExceL]

سپاس از زحمت شما
اگر امکان داره قسمت های سبز را برام درست کنید با توجه اینکه هر 7:20 یک روز کاری حساب بشه و اگر بیش از حد مرخصی در ماه استفاده شد مرخصی مانده منفی شود

سلام، خواهش میکنم
فایل رو چک کنید.
به این نکته هم توجه داشته باشید که بعد از اضافه کردن تابع، فایلتون را با پسوند xlsm ذخیره کنید.

[taha.r]

سلام، خواهش میکنم
فایل رو چک کنید.
به این نکته هم توجه داشته باشید که بعد از اضافه کردن تابع، فایلتون را با پسوند xlsm ذخیره کنید.

سپاس دوست گرامی از زحمت شما این فایل نمیشه به جای اینکه با پسوند xlsm ذخیره شود با پسوند xlsx ذخیره شود چون باید هر بار که فایل را باز میکنم ماکرو آن را فعال کنم چون تعداد فایل ها زیاد هستند

[M_ExceL]

سپاس دوست گرامی از زحمت شما این فایل نمیشه به جای اینکه با پسوند xlsm ذخیره شود با پسوند xlsx ذخیره شود چون باید هر بار که فایل را باز میکنم ماکرو آن را فعال کنم چون تعداد فایل ها زیاد هستند

سلام،
می تونید تابع رو بصورت Add-In به اکسلتون اضافه کنید.
فایل پیوست رو دانلود و از حالت فشرده خارج کنید سپس به تنضیمات اکسل رفته در بخش Add-Ins روی Go کلیک کنید سپس روی browse کلیک کرده و فایل ttd-Add-In رو به اکسلتون اضافه کنید
در پایان روی ok کلیک کنید
اکنون می تونید از تابع در فایل های اکسلتون استفاده کنید.
یا حق.