生年月日から星座をだす

生年月日から星座をすぐに引っ張れたら、いろいろな活用ができますね。 そこで、下記のようなモジュールを作成して、呼び出すことで可能になります サンプルはテーブルから生年月日を呼び出し、クエリーでモジュールを呼び出しています。

Public Function seiza(tanjoubi) Select Case Val(Format(tanjoubi, "MMDD")) Case 321 To 419 seiza = "おひつじ座" Case 420 To 520 seiza = "おうし座" Case 521 To 621 seiza = "ふたご座" Case 622 To 722 seiza = "かに座" Case 723 To 822 seiza = "しし座" Case 823 To 922 seiza = "おとめ座" Case 923 To 1023 seiza = "てんびん座" Case 1024 To 1121 seiza = "さそり座" Case 1122 To 1221 seiza = "いて座" Case 120 To 218 seiza = "みずがめ座" Case 219 To 320 seiza = "うお座" Case Else seiza = "やぎ座" End Select End Function