1

私は、日曜日が休業日である今日の2日前に、通知を遅く送信するようにエージェントを行っています。したがって、今日が月曜日の場合、エージェントは先週の金曜日に遅い出席を送信します。火曜日の場合は先週の土曜日に送信し、水曜日の場合は月曜日に送信します。今日の日付を取得する方法はすでに知っています。今日の2日前に取得するにはどうすればよいですか?

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

2 に答える 2

4

特定の日付を取得するには、次の簡単な操作を実行できます。

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

NotesDateTime オブジェクトを使用することもできます。

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

うまくいけば、これはあなたを助けることができます.

于 2012-07-06T04:39:23.510 に答える
2

@Per Henrik Lausten の応答に基づく構築:

日曜日を除外するには、Weekday 関数を使用できます。これは LotusScript 言語の組み込み関数であり、NotesDateTime クラスのメソッドではありません。NotesDateTime ではなく、LotusScript の日付を入力として使用します。したがって、次のようなことをしたいかもしれません:

Dim dateTime As New NotesDateTime( "Today" )
Dim day as variant
dim adjustment as integer

day = CDat(dateTime.dateOnly)
if Weekday(day) = 2 or Weekday(day) = 3 then ' Monday or Tuesday
   adjustment = -3
else
   adjustment = -2 ' any other day 
end if

Call dateTime.AdjustDay( adjustment )

上記のコードには、Today = Sunday の特別なケースはありません。そのケースを無視できるのか、それとも何か特別なことをできるのか、私にはわかりません。

于 2012-07-06T14:35:39.023 に答える