חישוב מס' חודשים מתאריך עד תאריך

[chchch]

אני רוצה להכניס תאריך ראשון ותאריך אחרון ולקבל מס חודשים של גבית הו"ק.
ניסיתי: תאריך אחרון - תאריך ראשון וקיבלתי מס' ימים, איך מקבלים מס' חודשים?

 

[אריה123]

יש אפשרות שאינה נכונה כל כך: לחלק את מספר הימים ל 30

 

[chchch]

חשבתי על זה, הענין הוא שקיבלתי מס' ימים מדויק 273 ואם אחלק ל-30 הוא לא ייתן לי מס' שלם.

 

[saryoram]

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

אם את עובדת באקסל

את יכולה להוסיף למודול (Alt+F11 Visual Basic Editor ) את הפונקציה הזו:

Function myDateDiff(interval As String, date1 As Date, date2 As Date) As Integer
    myDateDiff = DateDiff(interval, date1, date2)
End Function

ואז להשתמש באקסל כדוגמה:

=myDateDiff("m",E4,D4)

 

[chchch]

אני צריכה פונקציה באקסס

 

[saryoram]

עוד יותר פשוט

אז זו הפונקציה DateDiff

כאן התיעוד שלה
http://office.microsoft.com/en-us/access-help/datediff-function-HA001228811.aspx

ארגומט ראשון: מה רוצים לספור? במקרה שלך חודשים זה "m"
ארגומנטים שני ושלישי הם התאריכים

 

[אריה123]

=DateDiff("m",[תאריך_תשלום],[תאריך_סיום])/[תדירות]

יש בעיה עם האנגלית והעברית, תנסה להסתדר עם זה.

 

[אליהו פריד]

אני לא יודע באקסל אבל האלגוריתמה בוודאי אותו הדבר
בפסקל הייתי כותב את משהו כזה
Unit XXXX;
Interface
Type
TDate = Record
Day,Month : Byte;
Year : Word
End;
{Var
Date1,Date2 : TDate}
Function IsHebLeapyear (Hy:Word): Boolean;
function IsEngLeapYear(Year: Word): Boolean;
Function DiffMonths (EarlierDate,LaterDateB : TDate) : Integer
Implementation
Function IsHebLeapyear (Hy:Word): Boolean;
Begin
Result:=HY mod 19 In[3,6,8,11,14,17,0];
End;
function IsEngLeapYear(Year: Word): Boolean;
begin
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;
Function DiffMonths (EarlierDate,LaterDateB : TDate) : Integer
Var
DiffYear,InMonths : Word;
X,Y : Byte;
Years : Array Of Byte;
Begin
DiffYear := LaterDate.Year - RealierDate.Year;
SetLangth (Years,DiffYear+1);
Y := 0;
For X := EarlierYear.Year To LaterYear.Year Do
Begin
If IsEngLeapYear(X) Then Years[Y] := 13 Else Years[Y] := 12;
Inc(Y);
End;
InMonnths := 0;
For X := 0 To High(Years) Do InMonths := InMonths + Years[X];
Dec(InMonths,EarlierDate-Month);
If DiffYear <> 0 Then Dec (InMonths,High(Years)-LaterYear.Month);
Result := InMonths;
end;

End.

 

[אליהו פריד]

אגב
הממוצע של חודשים במשך 4 שנים =30.436875
הממוצע של ימים במשך 4 שנים = 365.2425

בחודש העברי אם מדובר משנה מעוברת אז יש 384 ימים בשנה
ואם לא אז 354

 

[אליהו פריד]

תוכנה פשוטה לחישוב חודשים

....