日付時刻：数値から日付・時刻データを取得（ DateSerial 関数、TimeSerial 関数 ）
DateSerial 関数（数値を使って日付データを取得）
date = DateSerial ( year, month, day )
引数・戻り値
- year ・・・ 年を表す 100 ～ 9999 の範囲の数値・数式（Integer）を指定します。
- month ・・・ 月を表す 1 ～ 12 の範囲の数値・数式（Integer）を指定します。
- day ・・・ 日を表す 1 ～ 31 の範囲の数値・数式（Integer）を指定します。
- date ・・・ 引数に指定した年、月、日に対応するバリアント型（内部処理形式 Date）の値。
引数 year, month, day に指定する値が、上記範囲外の場合でもエラーとはならず、その値・他の引数にしたがって計算されてしまうので注意が必要です。
（例）year 15, month -1, day 300 と指定すると戻り値は「2015/8/27」となります。
TimeSerial 関数（数値を使って時刻データを取得）
time = TimeSerial ( hour, minute, second )
引数・戻り値
- hour ・・・ 時を表す 0 ～ 23 の範囲の数値・数式（Integer）を指定します。
- minute ・・・ 分を表す 0 ～ 59 の範囲の数値・数式（Integer）を指定します。
- second ・・・ 秒を表す 0 ～ 59 の範囲の数値・数式（Integer）を指定します。
- time ・・・ 引数に指定した時、分、秒に対応するバリアント型（内部処理形式 Date）の値。
引数 hour, minute, second に指定する値が、上記範囲外の場合でもエラーとはならず、その値・他の引数にしたがって計算されてしまうので注意が必要です。
（例）hour -1, minute 100, second 0 と指定すると戻り値は「0:40:00」となります。
DateSerial 関数、TimeSerial 関数の使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Sub Sample_DateTimeSerial() Dim str 'DateSerial 関数 str = DateSerial(2015, 10, 7) & Chr(13) & _ DateSerial(15, -1, 300) 'TimeSerial 関数 str = str & Chr(13) & _ TimeSerial(5, 45, 21) & Chr(13) & _ TimeSerial(-1, 100, 0) MsgBox str End Sub |
実行結果
関連記事
-
-
四捨五入・切り上げ・切り捨て・丸め（Round 関数 他）
Round 関数（丸め）の使い方 【書式】 value = Round ( ex …
-
-
Join 関数（配列の要素を結合）
Join 関数 1次元配列の各要素を指定した区切り文字で連結します。 【書式】 …
-
-
乱数ジェネレータを初期化 (乱数系列を再設定) する（Randomize ステートメント）
Randomize ステートメントの使い方 Rnd 関数 を使用する前に使用しま …
-
-
指定したセル範囲のサイズを変更（Resize プロパティ）
Resize プロパティ 指定したセル範囲のサイズ（行数や列数）を変更します。 …
-
-
配列（多次元配列・配列の次元の変更）
多次元配列 【書式】 多次元配列の宣言 ＜静的配列（固定長配列）＞ Dim my …
-
-
文字列：アルファベットを小文字または大文字に変換（LCase 関数,UCase 関数）
LCase 関数・UCase 関数 の使い方 【書式】 ＜アルファベットの大文字 …
-
-
文字列：文字を指定数並べた文字列を返す（String 関数）
String 関数 【書式】 result = String ( number, …
-
-
IME の現在の状態を取得します（IMEStatus 関数）
IMEStatus 関数の使い方 【書式】 result = IMEStatus …
-
-
変数が日付型かどうかをチェックする（ IsDate 関数 ）
IsDate 関数の使い方 【書式】 result = IsDate( expr …
-
-
指定した数のスペースを挿入する（Spc 関数）
指定した数のスペースを挿入 指定した数のスペースを挿入するには、Spc 関数を使 …