Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
プロシージャを呼び出して星座と年齢をもとめたいのですが・・・
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9509#CommentId13927
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
流れ者
 (社会人)
投稿日時
2009/12/28 18:18:53
おはようございます。
手元に環境が無いので、ヒントのみお伝えします。
>自作関数(プロシージャ)を呼び出して
ワークシートにボタンを配置し、ボタンが押された時に実行するのが、妥当だと思います。
>星座(星占い)
日付関数で月と日を取り出し、if文で比較するのが、手間はかかりますが、わかりやすいと思います。
>年齢(今日現在)
下記の手順で導けます。
1.日付関数を使用し、入力された生年月日と現在の日付(Now関数を使用)の年の部分を取得し、差分を撮る
2.現在の日付の月日が誕生日より前の場合、1.で導きだした年齢から1を引く
>生年月日の入力が不正でないか判定し、結果が区別されることもしたいです。
Is~で始まる関数の中に日付として妥当かを判定する関数(おそらく、IsDate関数)があると思うので、それを利用してください。
もっと、シンプルでわかりやすい方法があるかもしれませんし、私の記憶のみで書いているので、間違っているかもしれませんが、ご容赦を。