אופיס 365 הגדרת פונקציה או ביטוי כערך ברירת מחדל לארגומנט אופציונלי

[לוי א]

שלום וברכה
אני מעוניין ליצור פונקציה או שיגרה (sub) עם מספר ארגומנטים ועוד ארגומנטים אופציונליים,
הוספתי ערך ברירת מחדל לארגומנט האופציונלי, כאשר זה יהיה הערך לארגומנט - כל עוד לא הוזן ערך אחר בקריאת הפונקציה.
כעת אני מעוניין שהערך ברירת המחדל יהיה שם של פונקציה (לדוגמא date() או כל פונקציה אחרת שפירסמתי) או שם של ביטוי (לדוגמא DlookUp ודומיו), הבעיה שהוא לא קורא את זה נכון כאשר אני מכניס את הפוקנציה או הביטוי בתוך שורת פירסום הפונקציה בתוך הסוגריים של הארגומטים,

האם מישהו יכול לעזור?

מצורף בזה קוד דוגמה

Public Function MsgName(UserName, Group, Optional DateAdd As Date = Date)
MsgBox "שם:" & UserName & "קבוצה:" & Group & "תאריך הצטרפות:" & DateAdd
End Function

 

[FullTime]

DateAdd זה פונקציה שמורה
אין אפשרות להצהיר בשמו למשתנה.

 

[לוי א]

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

Public Function MsgName(UserName, Group, Optional DateEiztarfot As Date = Date)
MsgBox "שם:" & UserName & "קבוצה:" & Group & "תאריך הצטרפות:" & DateEiztarfot
End Function

 

[moishy]

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

 

[לוי א]

רעיון מצויין, רק הקוד פחות נקי
תודה!