אופיס 365 חישוב שעות מול סכום באקסס

[HUBHCBH]

איך אני מחשב שעות כפול סכום באקסס, לדוגמה אדם שעבר 3.5 שעות ומקבל 20 ש"ח לשעה הוא צריך לקבל 70 ש"ח.
איך אני יוצר באקסס חישוב כזה?
תראו בקובץ המצורף..

 

[FullTime]

ככה.
רצוף בדוגמא.
=[סכום שעות]*24*[סכום]
לי יש בעיה אחרת שאם זה יסתדר לך אשמח לשמוע:
כשהשעות הם מעל 24 ועושים סיכום שעות, הוא לא מחשב את השעות החדשות,
ז"א אם עבדת 26 שעות הוא רושם 2 שעות וכו', וחייבים לעשות אותו כמספר, מה שגורם שהדקות נרשמים כחלקי מאות - רבע שעה = 0.25 .....

 

[moishy]

כדי לפתור את הבעיה יש להבין איך הזמן נשמר במחשב. החפץ להבין היטב יקרא את המאמר בכתובת זו.
שם גם נמצאת פונקציה הפותרת את הבעיה ולתועלת הציבור אעתיקו לכאן:

Public Function HoursAndMinutes(interval As Variant) As String
'***********************************************************************
' Function HoursAndMinutes(interval As Variant) As String
' Returns time interval formatted as a hours:minutes string
'***********************************************************************
    Dim totalminutes As Long, totalseconds As Long
    Dim hours As Long, minutes As Long, seconds As Long
    If IsNull(interval) = True Then Exit Function

    hours = Int(CSng(interval * 24))

    totalminutes = Int(CSng(interval * 1440))   ' 1440 = 24 hrs * 60 mins
    minutes = totalminutes Mod 60

    totalseconds = Int(CSng(interval * 86400))  ' 86400 = 1440 * 60 secs
    seconds = totalseconds Mod 60

    If seconds > 30 Then minutes = minutes + 1  ' round up the minutes and
    If minutes > 59 Then hours = hours + 1: minutes = 0    ' adjust hours

    HoursAndMinutes = hours & ":" & Format(minutes, "00")
End Function

ולהשתמש בו כך כך:

HoursAndMinutes([תאריך ושעת סיום]-[תאריך ושעת התחלה])

כאשר התאריך/שעה מוקפת בסולמיות, לדוגמא:

HoursAndMinutes(#10/14/2013 02:00:00#-#10/13/2013 23:00:00#)

הבעיה בפונקציה הנ"ל שהיא מחזירה ערך מחרוזת מה שלא יועיל לצרכי חישוב, ולכך נצטרך לעשות בו כמה שינויים, והנה הפונקציה הנצרכת:

Public Function HoursAndMinutes(interval As Variant) As Integer
'***********************************************************************
' Function HoursAndMinutes(interval As Variant) As String
' Returns time interval formatted as a hours:minutes string
'***********************************************************************
    Dim totalminutes As Long, totalseconds As Long
    Dim hours As Long, minutes As Long, seconds As Long
    If IsNull(interval) = True Then Exit Function

    hours = Int(CSng(interval * 24))

    totalminutes = Int(CSng(interval * 1440))   ' 1440 = 24 hrs * 60 mins
    minutes = totalminutes Mod 60

    totalseconds = Int(CSng(interval * 86400))  ' 86400 = 1440 * 60 secs
    seconds = totalseconds Mod 60

    If seconds > 30 Then minutes = minutes + 1  ' round up the minutes and
    If minutes > 59 Then hours = hours + 1: minutes = 0    ' adjust hours

    HoursAndMinutes = (hours * 60) + minutes
End Function

 

[FullTime]

...

 

[FullTime]

אחרי שבדקתי שם, ראיתי שבמסד שהם נותנים להורדה זה בסדר גמור.
את ההערה שלך, עדיין לא בדקתי, אבל אני סומך שאתה יודע מה אתה מדבר .

תודה מוישי.
ענק.

 

[אקסס]

לי יש בעיה אחרת שאם זה יסתדר לך אשמח לשמוע:
כשהשעות הם מעל 24 ועושים סיכום שעות, הוא לא מחשב את השעות החדשות,
ז"א אם עבדת 26 שעות הוא רושם 2 שעות וכו', וחייבים לעשות אותו כמספר, מה שגורם שהדקות נרשמים כחלקי מאות - רבע שעה = 0.25 .....

עיצוב תאים, בכרטיסיה מספר, בקטגוריה מותאם אישית, בסוג הקלד [h]:mm;@ ולחץ אישור.

 

[FullTime]

הבעיה בפונקציה הנ"ל שהיא מחזירה ערך מחרוזת מה שלא יועיל לצרכי חישוב, ולכך נצטרך לעשות בו כמה שינויים, והנה הפונקציה הנצרכת:

יש בעיה בקוד שלך שהוא מחזיר רק את מספר הדקות...
אפשר להשתמש עם שתי הקודים, הקוד שלך לשם חישוב (סכום לשעה/60*מספר הדקות), והקוד שלהם לתצוגה.
ובנוסף, הוא לא נותן להקיף את התאריך בסולמיות כשהתאריך נלקח מתוך שדה, רק כשכותבים את התאריך בפועל.

עיצוב תאים, בכרטיסיה מספר, בקטגוריה מותאם אישית, בסוג הקלד [h]:mm;@ ולחץ אישור.

תודה, אבל מדובר באקסס ולא באקסל

 

[HUBHCBH]

תודה רבה רבה!!