הפונקציה SYD

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

החזרת כפול המציין את פחת הספרות של הסכום השנים של נכס עבור תקופה שצוינה.

תחביר

SYD ( עלות, salvage, life, תקופת )

תחביר הפונקציה SYD מכיל את הארגומנטים הבאים:

ארגומנט

תיאור

עלות

נדרש. כפול המציין עלות התחלתית של הנכס.

salvage

נדרש. כפול המציין את ערך הנכס בסוף החיים האפקטיבי שלו.

חיים

נדרש. כפול המציין את אורך החיים האפקטיבי של הנכס.

תקופה

נדרש. כפול המציין את תקופת נכסים אילו מחושב פחת.


הערות

יש לבטא את הארגומנטים lifeותקופת באותן יחידות. לדוגמה, אם life צוין בחודשים, יש גם אפשרות period בחודשים. כל הארגומנטים חייבים להיות מספרים חיוביים.

דוגמה

הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications‏ (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.

דוגמה זו משתמשת בפונקציה SYD כדי להחזיר את הפחת של נכס עבור תקופה שצוינה בהינתן העלות הראשונית של הנכס (InitCost), ערך הניצולת בסוף החיים האפקטיבי של הנכס (SalvageVal) ו- total חיי הנכס ב שנים (LifeTime). התקופה, בשנים שעבורו מחושבת הפחת הוא PDepr.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, PDepr
Const YEARMONTHS = 12 ' Number of months in a year.
Fmt = "###,##0.00" ' Define money format.
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("What's the asset's value at the end of its life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS ' Ensure period is >= 1 year.
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's useful life in months?")
Loop
LifeTime = MonthLife / YEARMONTHS ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
LifeTime = Int(LifeTime + 1) ' Round up to nearest year.
End If
DepYear = CInt(InputBox("For which year do you want depreciation?"))
Do While DepYear < 1 Or DepYear > LifeTime
MsgBox "You must enter at least 1 but not more than " & LifeTime
DepYear = CInt(InputBox("For what year do you want depreciation?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."
שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×