プロシージャを呼び出して星座と年齢をもとめたいのですが・・・

タグの編集
投稿者 シンバ  (中学生) 投稿日時 2009/12/28 10:12:37
ワークシート上に適当な著名人の生年月日表を作成し(3人ぐらい)、自作関数(プロシージャ)を呼び出して星座(星占い)と年齢(今日現在)をもとめたいのですが、どのようにプログラムを記述すればよいですか?
また、生年月日の入力が不正でないか判定し、結果が区別されることもしたいです。
投稿者 流れ者  (社会人) 投稿日時 2009/12/28 18:18:53
おはようございます。

手元に環境が無いので、ヒントのみお伝えします。

>自作関数(プロシージャ)を呼び出して
ワークシートにボタンを配置し、ボタンが押された時に実行するのが、妥当だと思います。

>星座(星占い)
日付関数で月と日を取り出し、if文で比較するのが、手間はかかりますが、わかりやすいと思います。

>年齢(今日現在)
下記の手順で導けます。
1.日付関数を使用し、入力された生年月日と現在の日付(Now関数を使用)の年の部分を取得し、差分を撮る
2.現在の日付の月日が誕生日より前の場合、1.で導きだした年齢から1を引く

>生年月日の入力が不正でないか判定し、結果が区別されることもしたいです。
Is~で始まる関数の中に日付として妥当かを判定する関数(おそらく、IsDate関数)があると思うので、それを利用してください。

もっと、シンプルでわかりやすい方法があるかもしれませんし、私の記憶のみで書いているので、間違っているかもしれませんが、ご容赦を。
投稿者 るしぇ  (社会人) 投稿日時 2009/12/30 09:03:08
自分で作った?

ほんとか?おい。
引数も理解してねぇのに。
マジかよ^^;