Question

I’m doing an agent to send late in notification for 2 days before today with Sunday is a non-working day. Thus if today is Monday, agent will send late attendance for last Friday, if Tuesday, it will send last Saturday, if Wednesday, it will send Monday and etc. I already know how to get today’s date. How do I get 2 days before today?

Dim tdy, dayToUse
Dim intl As NotesInternational
Set intl = ss.International
tdy=intl.Today

Answer 1

You can do the following simple operation to get a specific date:

dayToUse = DateNumber( Year( Now ), Month( Now ), Day( Now ) - 2 )

You can also use the NotesDateTime object:

Dim dateTime As New NotesDateTime( "Today" )
Call dateTime.AdjustDay( -2 )

Hopefully this can help you.