Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

日付時刻：数値から日付・時刻データを取得（ DateSerial 関数、TimeSerial 関数）

2015/04/20

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ソース

　
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

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

　

実行結果

- VBA基本 dateserial 関数, timeserial 関数, VBA基本, エクセルVBA, 日付取得, 時刻取得

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 文字列：文字列を最後から検索してその最初の文字位置を返す（InStrRev 関数）

InStrRev 関数任意の文字列の中で、指定した文字列を最後から検索して、見 …

: 配列の要素数を取得する（UBound 関数・LBound 関数）

UBound 関数・LBound 関数【書式】 result = UBound …

: 変数が数値型かどうかをチェックする（ IsNumeric 関数）

IsNumeric 関数の使い方【書式】 result = IsNumeric …

: メッセージボックスを表示（MsgBox関数）

MsgBox関数【書式】 result = MsgBox ( Prompt [ …

: VBA の演算子（論理演算子：And、Eqv、Imp、Not、Or、Xor）

論理演算子論理演算を行うときに使用する演算子で、以下の 6 種類があります。 …

: 配列（宣言・要素数の変更について）

配列の宣言【書式】※ 配列の宣言＜Type 型の静的配列（固定長配列）の宣言 …

: 文字列：文字列の長さを取得（ Len 関数、LenB 関数）

Len 関数（文字列の長さを取得）【書式】 result_len = Len …

: 画面の更新を停止（ScreenUpdating プロパティ）

画面の更新を停止マクロを実行すると、画面が更新されます。これにより、実行速度が …

: ユーザー定義関数：セルを取得する（ThisCell プロパティ）

入力されたセルを取得するワークシート上で使用する Function プロシージ …

: カレントフォルダの取得・設定（DefaultFilePath プロパティ）

DefaultFilePath プロパティカレントフォルダとは、ブックを開いた …

PREV: 日付時刻：文字列から日付・時刻データを取得（ DateValue 関数、TimeValue 関数）
NEXT: 日付時刻：日付時刻データを計算（ DateAdd 関数）