הפונקציה DateValue

[keren shemesh27]

הפונקציה DateValue

מישהו יודע את תוכן הפונקציה ? הפונקציה ממירה תאריך לערך מספרי. אני צריכה לדעת איך זה מתבצע. תודה מראש, קרן.

 

[פאשה0]

אני לא יודע את התוכן שלה אבל אני

בטוח שהיא משתמשת בחישוב של JulianDay. צירפתי קוד (הפכי סיומת ל-rar) שעושה את החישוב הדרוש.

 

[פאשה0]

קוד של הפונקציה

Private Function MyDateValue(ByVal Y As Integer, ByVal M As Integer, ByVal D As Integer, ByVal Hour As Integer, ByVal Min As Integer, ByVal Sec As Double) As Double Dim A As Long, B As Long If M <= 2 Then M = M + 12: Y = Y - 1 A = Y \ 100 B = 2 - A + A \ 4 MyDateValue = B + D + Int(365.25 * (Y + 4716)) + Int(30.6001 * (M + 1)) - 2416543 + _ Hour / 24 + Min / 1440 + Sec / 86400 End Function