הפונקציה DateValue

keren shemesh27

New member
הפונקציה DateValue

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

פאשה0

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

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

פאשה0

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

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
 
למעלה