Tips190 - [Excel日付の関数] Year Month Day

Year関数は、1900～9999の範囲で日付から年を返します。
Month関数は、1～12の範囲で日付から月を返します。
Day関数は、1～31の範囲で日付から日を返します。

■実行例
3行目は日付を入力した結果から、年・月・日を表示しています。
4行名はNow関数、5行名はToday関数の結果です。


■計算式の表示

Tips189 - [Excel日付の関数] DATESTRING

DATESTRING関数は、日付を和暦で表示します。

■実行結果
=DATESTRING(TODAY())　:　平成21年01月24日
=DATESTRING("2009/1/24")　:　平成21年01月24日
=DATESTRING(0)　:　明治33年01月00日
=DATESTRING(1)　:　明治33年01月01日
=DATESTRING(40000)　:　平成21年07月06日

引数が日付でなければエラーになります。
=DATESTRING("abc")　:　#VALUE!

■実行シート


■数式を表示させたシート

Tips188 - [Excel日付の関数] DATEDIF

DATEDIF関数は、開始日と終了日の「年数」「月数」「日数」を調べます。
=DATEDIF(開始日,終了日,"単位")

単位の引数は下記のように指定します。
"Y" ： 年数
"M" ： 月数
"D" ： 日数
"YM" ：1年未満の端数の月数
"YD" ：1年未満の端数の日数
"MD" ：1月未満の端数の日数

■実行シート

上では、開始日と終了日の「年数」「月数」「日数」を計算しています。
開始日より終了日の方が古い場合、#NUM!エラーになっています。

下の部分では年齢を計算しています。

年齢は○年○ヶ月と表示されます。

■期間の計算式です。

年数：　=DATEDIF(A2,B2,"Y")

月数：　=DATEDIF(A2,B2,"M")

日数：　=DATEDIF(A2,B2,"D")

■年齢の計算式です。

=DATEDIF(A8,TODAY(),"Y") & "才" & DATEDIF(A8,TODAY(),"YM") & "ヶ月"

Tips187 - [Excel日付の関数] DATE

DATE関数は、「年」「月」「日」の数値を日付に変換します。
=DATE(年,月,日)
もし日付にできない場合は、#NUM! や #VALUE! エラーになります。

■セルに関数を入力


■結果
日付として表示されています。

Tips186 - [ExcelでDAOとSQL] テーブルの存在確認

ループでTableDefオブジェクトのNameを調べ、テキストボックスに入力されたテーブル名と同一のものがあるかどうかチェックします。
見つかればセルに"その名前のテーブルは存在します"と表示し、見つからなければ"その名前のテーブルは存在しません"と表示します。

■見つからなかった場合

■見つかった場合

■実行コード

Private Sub CommandButton1_Click()

Dim DB As Database

Dim tlist As TableDef

If TextBox1 = "" Then

MsgBox "検索文字を入力してください。"

Exit Sub

End If

Range("C6") = ""

'データベースを開く

Set DB = OpenDatabase("C:\sample2.mdb")

'テーブルの名前のチェック

For Each tlist In DB.TableDefs

If tlist.Name = TextBox1 Then

Range("C6") = "その名前のテーブルは存在します"

Exit For

End If

Next

If Range("C6") = "" Then

Range("C6") = "その名前のテーブルは存在しません"

End If

DB.Close

Set DB = Nothing

End Sub