Age_FS（）

誕生日から年齢を計算します。この関数は、基準日としてシステム日付を使用しています。

構文

Age_FS(dtmBirthDate as Date) As Integer

引数

指定項目 内容
dtmBirthDate 誕生日を指定します。


戻り値
年齢を返します。


使用例
フォームのOn Current()イベントに以下のコードを追加してマウスが誕生日に移動したとき、ツールチップとして年齢を表示させます。

Private Sub Form_Current()
  txtBirthDate.ControlTipText = Age_FS(txtBirthDate)
End Sub
Modules_DateandTime_Age
図１-誕生日にマウスを移動したときツールチップとして年齢を表示する


注）
使用例をテストするには、最新のライブラリーデータベース（MyLib.mda）を組み込む必要があります。