ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

日付時刻:数値から日付・時刻データを取得( 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ソース


実行結果

DateSerial 関数 TimeSerial 関数 使用例




 - VBA基本 , , , , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

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

  関連記事

日付時刻:時・分・秒を取得(Hour、Minute、Second 関数)

日付時刻から時・分・秒を取得する関数 【書式】 time_hour = Hour …

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

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

ユーザー設定リスト
ユーザー設定リストを使って並べ替える(Sort)

VBAでリスト、テーブルを並べ替える(Sort) VBAで、ソートを行うには、S …

Weekday 関数・WeekdayName 関数 使用例
日付時刻:日付から曜日を取得( Weekday 関数、WeekdayName 関数 )

Weekday 関数(日付から曜日を表す数値を返す)の使い方 【書式】 week …

色の設定(Color プロパティ・RGB 関数)

Color プロパティ Color プロパティは、指定したオブジェクトの色を取得 …

ClearContents メソッド 例01
データをクリアする(ClearContents メソッド)

ClearContents メソッド 対象がセル範囲(Range オブジェクト) …

no image
XlThemeColor 列挙型

XlThemeColor 列挙 定数 値 内容 xlThemeColorDark …

IMEStatus 関数 例
IME の現在の状態を取得します(IMEStatus 関数)

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

文字列:文字列の長さを取得( Len 関数、LenB 関数 )

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

VBA正規表現使用例
VBA で正規表現を使う(RegExp オブジェクト)

RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …