אופיס 365 ברירת מחדל של תאריך באקסס

[יאיר משה]

שלום וברכה.

איך עושים באקסס שברירת המחדל של התאריך תהיה ה20 לחודש הקרוב, למשל, אם היום התאריך 12/1/16 הוא ימלא 20/1/16, ואם היום 21/1/16 הוא ימלא 20/2/16.

תודה רבה

 

[moishy]

תנסה את זה:

Public Function NextDate() As Date
    NextDate = CDate(IIf(DatePart("d", Date) > 20, IIf(DatePart("m", Date) = 12, "20/" & DateAdd("m", 1, Date) & "/" & DateAdd("y", 1, Date), "20/" & DateAdd("m", 1, Date) & "/" & DatePart("yyyy", Date)), "20/" & DatePart("m", Date) & "/" & DatePart("yyyy", Date)))
End Function

 

[יאיר משה]

איך לקרוא לפונקציה הזו?

 

[moishy]

כמו שקוראים לכל פונקציה.
textbox.text = NextDate()

 

[יאיר משה]

תודה רבה, עובד!

 

[יאיר משה]

עד ה20 לחודש הקוד עבד מעולה, אחרי ה20 הוא מקפיץ שגיאה של "type mismatch"
מה עושים?

 

[moishy]

סליחה טעות שלי, הנה גירסה מתוקנת:

Public Function NextDate() As Date
    NextDate = CDate(IIf(DatePart("d", Date) > 20, IIf(DatePart("m", Date) = 12, "20/" & Month(DateAdd("m", 1, Date)) & "/" & DateAdd("y", 1, Date), "20/" & Month(DateAdd("m", 1, Date)) & "/" & DatePart("yyyy", Date)), "20/" & DatePart("m", Date) & "/" & DatePart("yyyy", Date)))
End Function

 

[יאיר משה]

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

Public Function NextDate() As Date
   NextDate = CDate(IIf(DatePart("d", Date) > 20, IIf(DatePart("m", Date) = 12, "20/" & Month(DateAdd("m", 1, Date)) & "/" & Year(DateAdd("yyyy", 1, Date)), "20/" & Month(DateAdd("m", 1, Date)) & "/" & DatePart("yyyy", Date)), "20/" & DatePart("m", Date) & "/" & DatePart("yyyy", Date)))
End Function

 

[moishy]

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

Public Function NextDate() As Date
   NextDate = CDate(IIf(DatePart("d", Date) > 20, IIf(DatePart("m", Date) = 12, "20/" & Month(DateAdd("m", 1, Date)) & "/" & Year(DateAdd("yyyy", 1, Date)), "20/" & Month(DateAdd("m", 1, Date)) & "/" & DatePart("yyyy", Date)), "20/" & DatePart("m", Date) & "/" & DatePart("yyyy", Date)))
End Function

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