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

関連記事

: 日付時刻：年・月・日を取得（Year、Month、Day 関数）

日付から年・月・日を取得する関数【書式】 date_year = Year ( …

: セルのデータを区切り文字で複数のセルに分割する（TextToColumns メソッド）

TextToColumns メソッド TextToColumns メソッドを使用 …

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

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

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

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

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

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

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

: 色の設定（ColorIndex プロパティ・Colors プロパティ）

ColorIndex プロパティ ColorIndex プロパティは、指定したオ …

: フォント名（Name,ThemeFont,StandardFont）

フォント名を取得・設定する（Name プロパティ） Name プロパティは、オブ …

: 文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）

Mid・MidB ステートメントの使い方【書式】 { Mid | MidB } …

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

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

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