VBA - 日付形式を変数に設定する

Question

初心者VBAユーザーはここにいます。私はこれが答えが非常に簡単な質問かもしれないと思うが、私は他のどのサイトでも解決策を見つけることができないので、謝罪する。

私は非常に短いコードを書いています。このコードは、最新の営業日をまだ存在しない列に挿入し、次の列に移動し、存在するプロセスと同じプロセスを実行します。コードは以下の通りです。注：これを単純化して、else条件を削除しました。 lastbusinessday変数の日付形式を"dd/mm/yyyy"に設定したいと思っています。その時点では、hh/mm/ssが含まれています。これは、if関数が正しく動作しない原因となっています。

どうすればこの変数の条件を宣言できますか？

Sub Dateextend4() 
    Dim lastbusinessday As Date 

    If Weekday(Now()) = 2 Then 
     lastbusinessday = (Now() - 3) 
    Else 
     lastbusinessday = (Now() - 1) 
    End If 

    Sheets("pb CDS").Select 
    Range("b13").Select 
    Selection.End(xlDown).Select 

    If ActiveCell.Offset(0, 0).Value < lastbusinessday Then 
     ActiveCell.Offset(1, 0) = format(lastbusinessday, "mm/dd/yyyy") 
    Else 
    End If 
End Sub 

おかげ

Answer 1

この

If Weekday(Date()) = 2 Then 
    lastbusinessday = (Date() - 3) 
Else 
    lastbusinessday = (Date() - 1) 
End If 

Format(lastbusinessday, "dd/MM/yyyy")