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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: データ型を調べてそのデータ型を示す文字列を返す（TypeName 関数）

TypeName 関数の使い方 TypeName 関数は、引数に、データ型を調 …

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

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

: 文字列：文字列の指定した位置から指定文字数取得（Mid 関数,MidB 関数）

Mid 関数・MidB 関数の使い方【書式】 result_mid = Mi …

: 変数のデータ型・宣言（Dim ステートメント）

変数の宣言一般的な方法【書式】 Dim varname [ As type, …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: 文字列：指定した文字の文字コードを取得する（Asc 関数）

Asc 関数【書式】 result = Asc ( string ) 引数・戻 …

: フォント太字・斜体（Bold, Italic, FontStyle プロパティ）

太字の設定（Bold プロパティ） Bold プロパティは、フォントを太字にする …

: 文字列：アルファベットを小文字または大文字に変換（LCase 関数,UCase 関数）

LCase 関数・UCase 関数の使い方【書式】＜アルファベットの大文字 …

: RGB 値一覧表（XlRgbColor 列挙型）

RGB 値（XlRgbColor 列挙型）一覧表 RGB 関数を使用して、出力さ …

: インプットボックスを表示する（InputBox関数・InputBoxメソッド）

「InputBox関数」と「InputBoxメソッド」の違い「InputBox …

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