Sub 年齢()

Dim 年齢 as　Integer
Dim 彼氏いない歴 as　Integer
　
年齢 = 20
彼氏いない歴 = 年齢
IF Date:=03.10
　　年齢 = 年齢 + 1
　　彼氏いない歴 = 彼氏いない歴 + 1
　
End Sub
　
最近ブームのVBAで書いてみたけど、色々間違ってるのはご愛嬌。
要は21歳の誕生日です。
おめでとう私。
祝ってくれた方々ありがとう。