בניתי פונקציה שמקבלת כפרמטר תאריך ושעה ומצאת את ההפרש בינו לבין התאריך והשעה הנוכחיים בימים, שעות, דקות ושניות.
אך משום מה, הפונקציה לא עובדת טוב ומזייפת בהפרש שמתקבל. הפונקציה:
Function UpdateNoteTime(MyDate As String) As String
Dim TmpDays, TmpHours, TmpMin, TmpSec As Integer
'days
TmpDays = DateDiff("d", Now(), MyDate)
MyDate = DateAdd("d", -TmpDays, MyDate)
'hours
TmpHours = DateDiff("h", Now(), MyDate)
MyDate = DateAdd("h", -TmpHours, MyDate) 'minutes
TmpMin = DateDiff("n", Now(), MyDate)
MyDate = DateAdd("n", -TmpMin, MyDate) 'seconds
TmpSec = DateDiff("s", Now(), MyDate)
UpdateNoteTime = TmpDays & " Days " & TmpHours & " Hours " & TmpMin & " Minutes " & TmpSec & " Seconds"
End Function
|
מישהו יודע מה הבעיה בפונקציה, או למישהו יש פונקציה כזאת מוכנה? תודה מראש.
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
