ListView1の条件のやり方

いつもお世話になっております。
下記のコードで条件を付けることは可能でしょうか。

.SubItems(4) = wS.Range("F" & R).Value '生年月日
ここの部分で年齢が20歳以上
可能でしょうか。

わかる方おしえてくれませんでしょうか

With ListView1.ListItems.Add 'ListView1に1行追加
.Text = wS.Range("B" & R).Value 'チェックボックスにB列
.SubItems(1) = wS.Range("C" & R).Value '名前
.SubItems(2) = wS.Range("D" & R).Value '性別
.SubItems(3) = wS.Range("E" & R).Value '血液型
.SubItems(4) = wS.Range("F" & R).Value '生年月日
End With
End If
Next

質問者からの補足コメント

• 

  .SubItems(4) = wS.Range("F" & R).Value '生年月日
  例えば
  .SubItems(4) = もしも20歳以上なら、1だなければ2
  wS.Range("F" & R).Value '生年月日
  
  とかくにはどうしたよろしいでしょうか
  すみません　質問がかわってしまい。

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/06/19 07:56

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/06/19 00:30

こんばんは

取得方法は複数あると思いますが、
Evaluate関数はご存知ですか
例
Debug.Print Application.Evaluate("DATEDIF(""" & wS.Range("C" & R).Value & """, TODAY(), ""Y"")")
これを用いて分岐処理すれば良いかと・・

この回答へのお礼

ありがとうございます。

お礼日時：2022/06/19 20:48

No.2 回答者： めぐみん_ 回答日時： 2022/06/19 08:08

= IIf("条件式" , "真の時" , "偽の時")

ではないでしょうか？
以前も使った関数かと。

この回答へのお礼

ありがとうございます。

お礼日時：2022/06/19 20:48

No.3 回答者： 東西線 回答日時： 2022/06/19 08:26

めぐみん様

ありがとうございます
スマホから
観てますので東西線ににります