1
3

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 1 year has passed since last update.

Python・R・VBAの日時(日付と時刻)の操作のまとめ

Last updated at Posted at 2022-04-03

はじめに

機械学習の勉強を始めたVBAユーザです。
備忘録としてPython・R・VBAの文法を比較しながらまとめています。

今回は、日時(日付と時刻)の操作についてまとめます。

目次

日時操作

日時を表すデータ型

日付

Python

Pythonでは、標準ライブラリにあるdatetimeモジュールを使います。
https://docs.python.org/ja/3/tutorial/stdlib.html#dates-and-times
https://docs.python.org/ja/3/library/datetime.html
https://note.nkmk.me/date-and-time/
日付はdatetimedateオブジェクトです。

Python
import datetime

d = datetime.date(2004, 3, 21)
print(d)
# 2004-03-21
print(type(d))
# <class 'datetime.date'>

R

Rでは、日時型処理パッケージのlubridateを使うと便利です。
https://lubridate.tidyverse.org/
https://rawgit.com/rstudio/cheatsheets/main/lubridate.pdf
Rでは日付はDate型です。Date型は、1970年1月1日を基準とする日数(1970年1月1日が0日目、2000年1月23日は10979日目)の数値に"Date"のclass属性を与えて日付型としています。中身は数値("double")なので、class属性をはがすと単なる数値(1970年1月1日を基準とする日数)に戻ります。
参考:Rの属性についてはこちらの記事を参照。

R
library(lubridate)

d <- ymd("2004/3/21")
d <- as_date("2004/3/21")
d <- as.Date("2004/3/21", "%Y/%m/%d")
d
# [1] "2000-01-23"
class(d)
# [1] "Date"
mode(d)
# [1] "numeric"
typeof(d)
# [1] "double"
str(d)
#  Date[1:1], format: "2000-01-23"
attributes(d)
# $class
# [1] "Date"
# 
as.numeric(d)
# [1] 12498
unclass(d)
# [1] 12498
attributes(d) <- NULL
d
# [1] 12498

d <- 12498
as_date(d)
# [1] "2004-03-21"
d <- 12498
attributes(d) <- list(class="Date")
d
# [1] "2004-03-21"
d <- 12498
attr(d, "class") <- "Date"
d
# [1] "2004-03-21"
as_date(d)
# [1] "2004-03-21"

VBA
VBAでは日時はDate型です。VBAのDate型は、1900年1月1日を基準とする日数(1900年1月1日が1日目、2000年1月23日は36548日目)の数値(シリアル値)で表します。整数部分で日付、小数部分で時刻を表します。
#で囲むとDate型になります。

VBA
Dim d As Variant
d = #3/21/2004#
Debug.Print d
' 2004/03/21
Debug.Print TypeName(d)
' Date
d = CDate("2004/3/21")
Debug.Print d
' 2004/03/21
Debug.Print TypeName(d)
' Date
Debug.Print CLng(d)
' 38067

Debug.Print CDate(38067)
' 2004/03/21

時刻

Python

Pythonでは時刻はdatetimetimeオブジェクトです。

Python
t = datetime.time(12, 34, 56)
print(t)
# 12:34:56
print(type(t))
# <class 'datetime.time'>

R
Rでは時刻は0:00:00を基準とする秒数(0:00:00が0秒目、12:34:56は45296秒目)の数値にclass属性を与えて時刻型としています。中身は数値("double")なので、class属性をはがすと単なる数値(0:00:00を基準とする秒数)に戻ります。

R
t <- hms::as_hms("12:34:56")
t
# 12:34:56
class(t)
# [1] "hms"      "difftime"
mode(t)
# [1] "numeric"
typeof(t)
# [1] "double"
str(t)
# 'hms' num 12:34:56
# - attr(*, "units")= chr "secs"
attributes(t)
# $units
# [1] "secs"
# 
# $class
# [1] "hms"      "difftime"
# 
as.numeric(t)
# [1] 45296
unclass(t)
# [1] 45296
# attr(,"units")
# [1] "secs"
attributes(t) <- NULL
t
# [1] 45296
12*60*60+34*60+56
# [1] 45296

t <- 45296
attributes(t) <- list(class=c("hms", "difftime"))
t
# 12:34:56
t <- 45296
attr(t, "class") <- c("hms", "difftime")
t
# 12:34:56
hms::as_hms(t)
# 12:34:56

VBA
VBAでは日時はDate型です。VBAのDate型は、1900年1月1日を基準とする日数(1900年1月1日が1日目、2000年1月23日は36548日目)の数値(シリアル値)で表します。小数部分が時刻を表します。
#で囲むとDate型になります。

VBA
Dim t As Variant
t = #12:34:56 PM#
Debug.Print t
' 12:34:56
Debug.Print TypeName(t)
' Date
t = CDate("12:34:56")
Debug.Print t
' 12:34:56
Debug.Print TypeName(t)
' Date
Debug.Print CDbl(t)
' 0.524259259259259
Debug.Print 12 / 24 + 34 / 24 / 60 + 56 / 24 / 60 / 60
' 0.524259259259259

Debug.Print CDate(0.524259259259259)
' 12:34:56

日時

Python

Pythonでは日時はdatetimedatetimeオブジェクトです。

Python
dt = datetime.datetime(2004, 3, 21, 12, 34, 56)
print(dt)
# 2004-03-21 12:34:56
print(type(dt))
# <class 'datetime.datetime'>

R
Rでは日時は1970年1月1日0:00:00を基準とする秒数(1970年1月1日0:00:00が0秒目、2000年1月23日12:34:56は948630896秒目)の数値にclass属性を与えて時刻型としています。中身は数値("double")なので、class属性をはがすと単なる数値(1970年1月1日0:00:00を基準とする秒数)に戻ります。

R
dt <- ymd_hms("2004/3/21 12:34:56")
dt
# [1] "2004-03-21 12:34:56 UTC"
class(dt)
# [1] "POSIXct" "POSIXt"
mode(dt)
# [1] "numeric"
typeof(dt)
# [1] "double"
str(dt)
# POSIXct[1:1], format: "2004-03-21 12:34:56"
attributes(dt)
# $class
# [1] "POSIXct" "POSIXt" 
# 
# $tzone
# [1] "UTC"
# 
as.numeric(dt)
# [1] 1079872496
unclass(dt)
# [1] 1079872496
# attr(,"tzone")
# [1] "UTC"
attributes(dt) <- NULL
dt
# [1] 1079872496
12498*24*60*60 + 45296
# [1] 1079872496

dt <- 1079872496
attributes(dt) <- list(class=c("POSIXct", "POSIXt"))
dt
# [1] "2004-03-21 21:34:56 JST"
dt <- 1079872496
attr(dt, "class") <- c("POSIXct", "POSIXt")
dt
# [1] "2004-03-21 21:34:56 JST"
as_datetime(dt)
# [1] "2004-03-21 21:34:56 JST"

VBA
VBAでは日時はDate型です。VBAのDate型は、1900年1月1日を基準とする日数(1900年1月1日が1日目、2000年1月23日は36548日目)の数値(シリアル値)で表します。整数部分で日付、小数部分で時刻を表します。
#で囲むとDate型になります。

VBA
Dim dt As Variant
dt = #3/21/2004 12:34:56 PM#
Debug.Print dt
' 2004/03/21 12:34:56
Debug.Print TypeName(dt)
' Date
dt = CDate("2004/3/21 12:34:56")
Debug.Print dt
' 2004/03/21 12:34:56
Debug.Print TypeName(dt)
' Date
Debug.Print CDbl(dt)
' 38067.5242592593

Debug.Print CDate(38067.5242592593)
' 2004/03/21 12:34:56

注意)なお、エクセルでは、歴史的な経緯(Lotusとの互換性)から、本来は閏年ではない1900年を閏年として扱っているため、VBAのシリアル値と1日ずれます(補足参照)。

現在の日時

Python

Python
print(datetime.date.today())
# 2022-04-03
print(datetime.datetime.now().time())
# 01:23:45.678901
print(datetime.datetime.now())
# 2022-04-03 01:23:45.678901

# timeモジュール
import time
print(time.time())
# 1648464319.4195054
print(type(time.time()))
# <class 'float'>
# 現在のUNIX時間(エポック秒)をfloat型で取得
# UNIX時間(エポック秒)は協定世界時 (UTC) での1970年1月1日午前0時0分0秒からの経過秒数

参考: https://note.nkmk.me/python-unix-time-datetime/

R

R
now()
# [1] "2022-04-03 01:23:45 UTC"
today()
# [1] "2022-04-03"

VBA

VBA
Debug.Print Now
' 2022/04/03 1:23:45
Debug.Print Date
' 2022/04/03
Debug.Print Time
' 2022/04/03 1:23:45

日時型の変換

日付型⇒シリアル値

Python

Python
dt = datetime.datetime(2004, 3, 21, 12, 34, 56)
print(dt)
# 2004-03-21 12:34:56
print(type(dt))
# <class 'datetime.datetime'>
print(dt.timestamp())
# 1079872496.0

R

R
d <- ymd("2004/3/21")
d <- as_date("2004/3/21")
d <- as.Date("2004/3/21", "%Y/%m/%d")
d
# [1] "2000-01-23"
class(d)
# [1] "Date"
mode(d)
# [1] "numeric"
typeof(d)
# [1] "double"
str(d)
#  Date[1:1], format: "2000-01-23"
attributes(d)
# $class
# [1] "Date"
# 
as.numeric(d)
# [1] 12498
unclass(d)
# [1] 12498
attributes(d) <- NULL
d
# [1] 12498

t <- hms::as_hms("12:34:56")
t
# 12:34:56
class(t)
# [1] "hms"      "difftime"
mode(t)
# [1] "numeric"
typeof(t)
# [1] "double"
str(t)
# 'hms' num 12:34:56
# - attr(*, "units")= chr "secs"
attributes(t)
# $units
# [1] "secs"
# 
# $class
# [1] "hms"      "difftime"
# 
as.numeric(t)
# [1] 45296
unclass(t)
# [1] 45296
# attr(,"units")
# [1] "secs"
attributes(t) <- NULL
t
# [1] 45296
12*60*60+34*60+56
# [1] 45296

dt <- ymd_hms("2004/3/21 12:34:56")
dt
# [1] "2004-03-21 12:34:56 UTC"
class(dt)
# [1] "POSIXct" "POSIXt"
mode(dt)
# [1] "numeric"
typeof(dt)
# [1] "double"
str(dt)
# POSIXct[1:1], format: "2004-03-21 12:34:56"
attributes(dt)
# $class
# [1] "POSIXct" "POSIXt" 
# 
# $tzone
# [1] "UTC"
# 
as.numeric(dt)
# [1] 1079872496
unclass(dt)
# [1] 1079872496
# attr(,"tzone")
# [1] "UTC"
attributes(dt) <- NULL
dt
# [1] 1079872496
12498*24*60*60 + 45296
# [1] 1079872496

VBA

VBA
Dim d As Variant
d = #1/23/2000#
Debug.Print d, TypeName(d)
' 2000/01/23    Date
d = CDate("2000/1/23")
Debug.Print d, TypeName(d)
' 2000/01/23    Date
Debug.Print CLng(d)
' 36548

Dim t As Variant
t = #12:34:56 PM#
Debug.Print t, TypeName(t)
' 12:34:56      Date
t = CDate("12:34:56")
Debug.Print t, TypeName(t)
' 12:34:56      Date
Debug.Print CDbl(t)
' 0.524259259259259
Debug.Print 12 / 24 + 34 / 24 / 60 + 56 / 24 / 60 / 60
' 0.524259259259259

Dim dt As Variant
dt = #1/23/2000 12:34:56 PM#
Debug.Print dt, TypeName(dt)
' 2000/01/23 12:34:56         Date
dt = CDate("2000/1/23 12:34:56")
Debug.Print dt, TypeName(dt)
' 2000/01/23 12:34:56         Date
Debug.Print CDbl(dt)
' 36548.5242592593

シリアル値⇒日時型

Python

Python
print(datetime.datetime.fromtimestamp(1079872496.0))
# 2004-03-21 12:34:56

R

R
d <- 12498
as_date(d)
# [1] "2004-03-21"
d <- 12498
attributes(d) <- list(class="Date")
d
# [1] "2004-03-21"
d <- 12498
attr(d, "class") <- "Date"
d
# [1] "2004-03-21"
as_date(d)
# [1] "2004-03-21"

t <- 45296
attributes(t) <- list(class=c("hms", "difftime"))
t
# 12:34:56
t <- 45296
attr(t, "class") <- c("hms", "difftime")
t
# 12:34:56
hms::as_hms(t)
# 12:34:56

dt <- 1079872496
attributes(dt) <- list(class=c("POSIXct", "POSIXt"))
dt
# [1] "2004-03-21 21:34:56 JST"
dt <- 1079872496
attr(dt, "class") <- c("POSIXct", "POSIXt")
dt
# [1] "2004-03-21 21:34:56 JST"
as_datetime(dt)
# [1] "2004-03-21 21:34:56 JST"

VBA

VBA
Debug.Print CDate(36548)
' 2000/01/23

Debug.Print CDate(0.524259259259259)
' 12:34:56

Debug.Print CDate(36548.5242592593)
' 2000/01/23 12:34:56

文字列型⇒日時型

Python

Python
print(datetime.datetime.strptime('2004/3/21', '%Y/%m/%d').date())
# 2004-03-21
print(datetime.datetime.strptime('12:34:56', '%H:%M:%S').time())
# 12:34:56
print(datetime.datetime.strptime('2004/3/21 12:34:56', '%Y/%m/%d %H:%M:%S'))
# 2004-03-21 12:34:56
print(datetime.datetime.strptime('2004年3月21日 12時34分56秒',
                                 '%Y年%m月%d日 %H時%M分%S秒'))
# 2004-03-21 12:34:56

# ISOフォーマット(ISO 8601形式)の文字列
print(datetime.date.fromisoformat('2004-03-21'))
# 2004-03-21
print(datetime.time.fromisoformat('12:34:56'))
# 12:34:56
print(datetime.datetime.fromisoformat('2004-03-21T12:34:56'))
# 2004-03-21 12:34:56

書式化コードについて
https://docs.python.org/ja/3/library/time.html#time.strftime
https://docs.python.org/ja/3/library/datetime.html#strftime-strptime-behavior
https://note.nkmk.me/python-datetime-usage/

主な書式化コード
%d : 0埋めした10進数で表記した月中の日にち
%m : 0埋めした10進数で表記した月
%y : 0埋めした10進数で表記した西暦の下2桁
%Y : 0埋めした10進数で表記した西暦4桁
%H : 0埋めした10進数で表記した時 (24時間表記)
%I : 0埋めした10進数で表記した時 (12時間表記)
%M : 0埋めした10進数で表記した分
%S : 0埋めした10進数で表記した秒
%f : 0埋めした10進数で表記したマイクロ秒(6桁)
%A : ロケールの曜日名
%a : ロケールの曜日名(短縮形)
%B : ロケールの月名
%b : ロケールの月名(短縮形)
%j : 0埋めした10進数で表記した年中の日にち(正月が'001')
%U : 0埋めした10進数で表記した年中の週番号(週の始まりは日曜日)
%W : 0埋めした10進数で表記した年中の週番号(週の始まりは月曜日)

R

R
as_date("2004/3/21")
# [1] "2004-03-21"
as.Date("2004/3/21", "%Y/%m/%d") # baseパッケージ
# [1] "2004-03-21"
ymd("2004/3/21")
ymd("2004/03/21")
ymd("2004-03-21")
ymd("2004 3 21")
ymd("2004,3,21")
ymd("20040321")
ymd("2004年3月21日")
# [1] "2004-03-21"

ydm("2004-21-03")
# [1] "2004-03-21"

mdy("03-21-2004")
# [1] "2004-03-21"
mdy("3, 21, 2004")
# [1] "2004-03-21"

dmy("21-03-2004")
# [1] "2004-03-21"
dmy("21 Mar 2004")
# [1] "2004-03-21"
dmy("21th of March 2004")
# [1] "2004-03-21"

ymd_hms("2004-03-21 12:34:56")
# [1] "2004-03-21 12:34:56 UTC"
ymd_hm("2004-03-21 12:34")
# [1] "2004-03-21 12:34:00 UTC"
ymd_hm("2004-03-21 12")
# [1] "2020-04-03 21:12:00 UTC"

ydm_hms("2004-21-03 12:34:56")
# [1] "2004-03-21 12:34:56 UTC"
mdy_hms("03-21-2004 12:34:56")
# [1] "2004-03-21 12:34:56 UTC"
dmy_hms("21 Mar 2004 12:34:56")
# [1] "2004-03-21 12:34:56 UTC"

hms::as_hms("12:34:56")
# 12:34:56

hms("12:34:56")
hms("12時34分56秒")
# [1] "12H 34M 56S"

as_datetime("2004/3/21 12:34:56")
as_datetime("2004年3月21日12時34分56秒")
# [1] "2004-03-21 12:34:56 UTC"

VBA

VBA
Debug.Print IsDate("2004/3/21 12:34:56")
' True
Debug.Print CDate("2004/3/21 12:34:56")
' 2004/03/21 12:34:56
Debug.Print DateValue("2004/3/21 12:34:56")
' 2004/03/28
Debug.Print TimeValue("2004/3/21 12:34:56")
' 12:34:56

Debug.Print IsDate("2004年3月28日 12時34分56秒")
' True
Debug.Print DateValue("2004年3月28日 12時34分56秒")
' 2004/03/28
Debug.Print TimeValue("2004年3月28日 12時34分56秒")
' 12:34:56

Debug.Print IsDate("平成16年3月28日 12時34分56秒")
' True
Debug.Print DateValue("平成16年3月28日 12時34分56秒")
' 2004/03/28
Debug.Print TimeValue("平成16年3月28日 12時34分56秒")
' 12:34:56

Dim d As Date
d = "2004/3/21 12:34:56" ' 日付型に変換して代入
Debug.Print d
' 2004/03/21 12:34:56
d = "2004/3/21"
Debug.Print d
' 2004/03/21
d = "12:34:56"
Debug.Print d
' 12:34:56

日時型⇒文字列型

Python

Python
d = datetime.date(2004, 3, 21)
print(d.strftime('%Y/%m/%d'))
print('{0:%Y/%m/%d}'.format(d))
# 2004/03/21

t = datetime.time(12, 34, 56)
print(t.strftime('%H:%M:%S'))
print('{0:%H:%M:%S}'.format(t))
# 12:34:56

dt = datetime.datetime(2004, 3, 21, 12, 34, 56)
print(dt.strftime('%Y/%m/%d %H:%M:%S'))
print('{0:%Y/%m/%d %H:%M:%S}'.format(dt))
# 2004/03/21 12:34:56

print(dt.strftime('%Y年%m月%d日 %H時%M分%S秒'))
# 2004年03月21日 12時34分56秒

# ISOフォーマット(ISO 8601形式)の文字列
print(d.isoformat())
# 2004-03-21
print(t.isoformat())
# 12:34:56
print(dt.isoformat())
# 2004-03-21T12:34:56
print(dt.isoformat().replace('-', '/').replace('T', ' ')) # replace()で置換
# 2004/03/21 12:34:56

# UNIX時刻を文字列表現に変換
import time
print(time.ctime(1079872496.0))
# Sun Mar 21 12:34:56 2004

R

R
strftime(d, format="%Y/%m/%d") # strftimeはbaseの関数
# [1] "2004/03/21"
strftime(d, format="%Y-%m-%d")
# [1] "2004-03-21"
strftime(d, format="%Y%m%d")
# [1] "20040321"

strftime(t, format="%H:%M:%S")
# [1] "12:34:56"
strftime(t, format="%H時%M分%S秒")
# [1] "12時34分56秒"

strftime(dt, format="%Y/%m/%d %H:%M:%S")
# [1] "2004/03/21 21:34:56"
strftime(dt, format="%Y-%m-%d %H:%M:%S")
# [1] "2004-03-21 21:34:56"
strftime(dt, format="%Y年%m月%d日 %H時%M分%S秒")
# [1] "2004年03月21日 21時34分56秒"

VBA

VBA
Dim dt As Date
dt = DateSerial(2004, 3, 21) + TimeSerial(12, 34, 56)
Debug.Print dt
' 2004/03/21 12:34:56

Debug.Print Format(dt, "yyyy/mm/dd hh:nn:ss")
' 2004/03/21 12:34:56
Debug.Print Format(dt, "yyyy/mm/dd hh:nn:ss am/pm")
' 2004/03/21 12:34:56 pm
Debug.Print Format(dt, "yyyy/mm/dd hh:nn:ss")
' 2004/03/21 12:34:56
Debug.Print Format(dt, "yyyy/mm/dd hh:nn:ss am/pm")
' 2004/03/21 12:34:56 pm

Debug.Print Format(dt, "ggge/mm/dd hh:nn:ss aaaa")
' 平成16/03/21 12:34:56 日曜日
Debug.Print Format(dt, "ge/mm/dd hh:nn:ss am/pm aaa")
' H16/03/21 12:34:56 pm 日

Debug.Print Format(dt, "ggge/mm/dd hh:nn:ss dddd")
' 平成16/03/21 12:34:56 Sunday
Debug.Print Format(dt, "ge/mm/dd hh:nn:ss am/pm ddd")
' H16/03/21 12:34:56 pm Sun

日時の要素⇒日時型

日時の要素(年・月・日・時・分・秒の数値)から日時型を作ります。

Python

Python
d = datetime.date(2004, 3, 21)
print(d)
# 2004-03-21

t = datetime.time(12, 34, 56)
print(t)
# 12:34:56
t = datetime.time(12, 34, 56, 700000)
print(t)
# 12:34:56.700000

dt = datetime.datetime(2004, 3, 21, 12, 34, 56)
print(dt)
# 2004-03-21 12:34:56
dt = datetime.datetime(2004, 3, 21, 12, 34, 56, 700000)
print(dt)
# 2004-03-21 12:34:56.700000

R

R
make_datetime(2004,3,21,12,34,56)
# [1] "2004-03-21 12:34:56 UTC"

make_date(2004,3,21)
# [1] "2004-03-21"

VBA

VBA
Debug.Print DateSerial(2004, 3, 21)
' 2004/03/21
Debug.Print TimeSerial(12, 34, 56)
' 12:34:56
Debug.Print DateSerial(2004, 3, 21) + TimeSerial(12, 34, 56)
' 2004/03/21 12:34:56

日時型⇒日時の要素

日時型から日時の要素(年・月・日・時・分・秒の数値)を取り出します。

Python

Python
dt = datetime.datetime(2004, 3, 21, 12, 34, 56)
print(dt)
# 2004-03-21 12:34:56

print(dt.year)
# 2004
print(dt.month)
# 3
print(dt.day)
# 21
print(dt.hour)
# 12
print(dt.minute)
# 34
print(dt.second)
# 56
print(dt.microsecond) # マイクロ秒
# 0
print(dt.timestamp()) # UNIX時間
# 1079872496.0

R

R
dt <- ymd_hms("2004/3/21 12:34:56")
dt
# [1] "2004-03-21 12:34:56 UTC"

year(dt)
# [1] 2004
month(dt)
# [1] 3
day(dt)
# [1] 21

hour(dt)
# [1] 12
minute(dt)
# [1] 34
second(dt)
# [1] 56

VBA

VBA
Dim dt As Date
dt = CDate("2004/3/21 12:34:56")
Debug.Print dt
' 2004/03/21 12:34:56

Debug.Print Year(dt)
' 2004
Debug.Print Month(dt)
' 3
Debug.Print Day(dt)
' 21
Debug.Print Hour(dt)
' 12
Debug.Print Minute(dt)
' 34
Debug.Print Second(dt)
' 56

日時型⇒その他の情報

Python

Python
print(dt.weekday())
# 6
# 返り値は月曜0から日曜6までの整数値

import calendar
print(calendar.weekday(dt.year, dt.month, dt.day))
# 6
# 返り値は月曜0から日曜6までの整数値

print(dt.strftime('%A'))
# Sunday
print(dt.strftime('%a'))
# Sun
print(dt.strftime('%B'))
# March
print(dt.strftime('%b'))
# Mar

print(dt.strftime('%j'))
# 081
print(dt.strftime('%U'))
# 12
print(dt.strftime('%W'))
# 11

R

R
date(dt)
# [1] "2004-03-21"
as_date(dt)
# [1] "2004-03-21"

month(dt, label = TRUE)
# [1] 3
# Levels: 1 < 2 < 3 < 4 < 5 < 6 < 7 < 8 < 9 < 10 < 11 < 12
month(dt, label = TRUE, abbr = FALSE)
# [1] 3月
# Levels: 1月 < 2月 < 3月 < 4月 < 5月 < 6月 < 7月 < 8月 < 9月 < 10月 < 11月 < 12月

wday(dt)
# [1] 1
wday(d, label = TRUE)
wday(d, label = TRUE, abbr = TRUE)
# [1] 土
# Levels: 日 < 月 < 火 < 水 < 木 < 金 < 土
wday(d, label = TRUE, abbr = FALSE)
# [1] 日曜日
# Levels: 日曜日 < 月曜日 < 火曜日 < 水曜日 < 木曜日 < 金曜日 < 土曜日
wday(dt, week_start = 1)
# [1] 7
# week_start : 1 means Monday, 7 means Sunday (default). 
wday(dt, label = TRUE, week_start = 1)
# [1] 日
# Levels: 月 < 火 < 水 < 木 < 金 < 土 < 日

# baseの関数
d <- ymd("2004/3/21")
weekdays(d)
# [1] "日曜日"
months(d)
# [1] "3月"
quarters(d)
# [1] "Q1"
julian(d)
# [1] 12498
# attr(,"origin")
# [1] "1970-01-01"

yday(dt) # day of year
# [1] 81
# 31+29+21
qday(dt) # day of quarter
# [1] 81
mday(dt) # day of month
# [1] 21
wday(dt) # day of week
# [1] 1
wday(d, label = TRUE)
# [1] 土
# Levels: 日 < 月 < 火 < 水 < 木 < 金 < 土

week(dt)
# [1] 12
# the number of complete seven day periods that have occurred 
# between the date and January 1st, plus one.

quarter(dt)
# [1] 1
quarter(dt, with_year = TRUE)
# [1] 2004.1
quarter(dt, with_year = TRUE, fiscal_start = 4)
# [1] 2004.4
semester(dt)
# [1] 1
semester(dt, with_year = TRUE)
# [1] 2004.1

leap_year(dt)
# [1] TRUE

am(dt)
# [1] FALSE
pm(dt)
# [1] TRUE

tz(dt)
# [1] "UTC"

with_tz(dt, "America/Chicago")
# [1] "2004-03-21 06:34:56 CST"
force_tz(dt, "America/Chicago")
# [1] "2004-03-21 12:34:56 CST"

VBA

VBA
Debug.Print Weekday(dt)
' 1
Debug.Print WeekdayName(Weekday(dt))
' 日曜日
Debug.Print Weekday(dt, vbMonday)
' 7

Debug.Print WeekdayName(1), WeekdayName(1, False), WeekdayName(1, True)
' 日曜日        日曜日        日
Debug.Print WeekdayName(1, , vbSunday), WeekdayName(1, , vbMonday)
' 日曜日        月曜日

Debug.Print DatePart("y", dt) '何日目(年間通算日)
' 81
Debug.Print DatePart("d", dt) '何日目(月の中で)
' 21
Debug.Print DatePart("w", dt, vbSunday) '何日目(週日)
' 1
Debug.Print DatePart("w", dt, vbMonday) '何日目(週日)
' 7

Debug.Print DatePart("ww", dt) '何週目
' 13
Debug.Print DatePart("ww", dt, , vbFirstJan1)
' 13
Debug.Print DatePart("ww", dt, , vbFirstFourDays)
' 12
Debug.Print DatePart("ww", dt, , vbFirstFullWeek)
' 12

'引数firstweekofyear
'定数            値  説明
'vbFirstJan1     1   1月1日が含まれる週から開始(デフォルト)
'vbFirstFourDays 2   4日以上が含まれる最初の週が年の第1週目
'vbFirstFullWeek 3   1週間全体が含まれる最初の週がその年の第1週目

'引数firstdayofweek
'定数        値  説明
'vbUseSystem 0
'vbSunday    1   日曜日(デフォルト)
'vbMonday    2   月曜
'vbTuesday   3   火曜
'vbWednesday 4   水曜
'vbThursday  5   木曜
'vbFriday    6   金曜
'vbSaturday  7   土曜

日時の計算

日時の加算

Python

Python
dt = datetime.datetime(2004, 3, 21, 12, 34, 56)
print(dt)
# 2004-03-21 12:34:56

print(dt + datetime.timedelta(weeks=1))
# 2004-03-28 12:34:56
print(dt + datetime.timedelta(weeks=-1))
print(dt - datetime.timedelta(weeks=1))
# 2004-03-14 12:34:56
print(dt + datetime.timedelta(days=1))
# 2004-03-22 12:34:56
print(dt + datetime.timedelta(days=-1))
print(dt - datetime.timedelta(days=1))
# 2004-03-20 12:34:56

print(dt + datetime.timedelta(hours=1))
# 2004-03-21 13:34:56
print(dt + datetime.timedelta(hours=-1))
print(dt - datetime.timedelta(hours=1))
# 2004-03-21 11:34:56
print(dt + datetime.timedelta(minutes=1))
# 2004-03-21 12:35:56
print(dt + datetime.timedelta(minutes=-1))
print(dt - datetime.timedelta(minutes=1))
# 2004-03-21 12:33:56
print(dt + datetime.timedelta(seconds=1))
# 2004-03-21 12:34:57
print(dt + datetime.timedelta(seconds=-1))
print(dt - datetime.timedelta(seconds=1))
# 2004-03-21 12:34:55

R

R
dt <- make_datetime(2004,3,21,12,34,56)
dt
# [1] "2004-03-21 12:34:56 UTC"
dt + 1
# [1] "2004-03-21 12:34:57 UTC"

dt + years(1)
# [1] "2005-03-21 12:34:56 UTC"
dt + years(-1)
dt - years(1)
# [1] "2003-03-21 12:34:56 UTC"
dt + months(1)
# [1] "2004-04-21 12:34:56 UTC"
dt + months(-1)
dt - months(1)
# [1] "2004-02-21 12:34:56 UTC"
dt + weeks(1)
# [1] "2004-03-28 12:34:56 UTC"
dt + weeks(-1)
dt - weeks(1)
# [1] "2004-03-14 12:34:56 UTC"
dt + days(1)
# [1] "2004-03-22 12:34:56 UTC"
dt + days(-1)
dt - days(1)
# [1] "2004-03-20 12:34:56 UTC"

dt + hours(1)
# [1] "2004-03-21 13:34:56 UTC"
dt + hours(-1)
dt - hours(1)
# [1] "2004-03-21 11:34:56 UTC"
dt + minutes(1)
# [1] "2004-03-21 12:35:56 UTC"
dt + minutes(-1)
dt - minutes(1)
# [1] "2004-03-21 12:33:56 UTC"
dt + seconds(1)
# [1] "2004-03-21 12:34:57 UTC"
dt + seconds(-1)
dt - seconds(1)
# [1] "2004-03-21 12:34:55 UTC"

d <- make_date(2004,3,21)
d
# [1] "2004-03-21"
d + 1
# [1] "2004-03-22"

d + years(1)
# [1] "2005-03-21"
d + years(-1)
d - years(1)
# [1] "2003-03-21"
d + months(1)
# [1] "2004-04-21"
d + months(-1)
d - months(1)
# [1] "2004-02-21"
d + weeks(1)
# [1] "2004-03-28"
d + weeks(-1)
d - weeks(1)
# [1] "2004-03-14"
d + days(1)
# [1] "2004-03-22"
d + days(-1)
d - days(1)
# [1] "2004-03-20"

VBA

VBA
Dim dt As Date
dt = DateSerial(2004, 3, 21) + TimeSerial(12, 34, 56)
Debug.Print dt
' 2004/03/21 12:34:56

Debug.Print dt + 1, dt - 1
' 2004/03/22 12:34:56         2004/03/20 12:34:56

Debug.Print dt + 1 / 24
' 2004/03/21 13:34:56
Debug.Print dt + 1 / 24 / 60
' 2004/03/21 12:35:56
Debug.Print dt + 1 / 24 / 60 / 60
' 2004/03/21 12:34:57

Debug.Print DateAdd("yyyy", 1, dt), DateAdd("yyyy", -1, dt) '年
' 2005/03/21 12:34:56         2003/03/21 12:34:56
Debug.Print DateAdd("q", 1, dt), DateAdd("q", -1, dt) '四半期
' 2004/06/21 12:34:56         2003/12/21 12:34:56
Debug.Print DateAdd("m", 1, dt), DateAdd("m", -1, dt) '月
' 2004/04/21 12:34:56         2004/02/21 12:34:56
Debug.Print DateAdd("d", 1, dt), DateAdd("d", -1, dt) '日
' 2004/03/22 12:34:56         2004/03/20 12:34:56
Debug.Print DateAdd("ww", 1, dt), DateAdd("ww", -1, dt) '週
' 2004/03/28 12:34:56         2004/03/14 12:34:56

Debug.Print DateAdd("h", 1, dt), DateAdd("h", -1, dt) '時間
' 2004/03/21 13:34:56         2004/03/21 11:34:56
Debug.Print DateAdd("n", 1, dt), DateAdd("n", -1, dt) '分
' 2004/03/21 12:35:56         2004/03/21 12:33:56
Debug.Print DateAdd("s", 1, dt), DateAdd("s", -1, dt) '秒
' 2004/03/21 12:34:57         2004/03/21 12:34:55

日時の差

Python

Python
d1 = datetime.date(2004, 3, 21)
d2 = datetime.date(2003, 3, 21)
print(d1 - d2)
# 366 days, 0:00:00
print(type(d1 - d2))
# <class 'datetime.timedelta'>

print((d1 - d2).days)
# 366
print((d1 - d2).seconds)
# 0
print((d1 - d2).microseconds)
# 0
print((d1 - d2).total_seconds())
# 31622400.0

R

R
dt1 <- make_date(2004, 3, 21)
dt1
# [1] "2004-03-21"
dt2 <- make_date(2003, 3, 21)
dt2
# [1] "2003-03-21"

dt1 - dt2
# Time difference of 405 days
interval(dt1, dt2)
# [1] 2004-03-21 UTC--2003-02-10 UTC
dt1 %--% dt2
# [1] 2004-03-21 UTC--2003-02-10 UTC
class(dt1 %--% dt2)
# [1] "Interval"
# attr(,"package")
# [1] "lubridate"

interval(dt2, dt1) / years(1)
# [1] 1
interval(dt2, dt1) / days(1)
# [1] 366

int_length(interval(dt2, dt1))
# [1] 31622400
31622400 / 24 / 60 / 60
# [1] 366

VBA

VBA
Dim dt1 As Date
Dim dt2 As Date
dt1 = DateSerial(2004, 3, 21)
dt2 = DateSerial(2003, 3, 21)
Debug.Print dt1, dt2
' 2004/03/21    2003/03/21

Debug.Print dt1 - dt2
' 366
Debug.Print dt2 - dt1
' -366

日時の大小関係

Python

Python
print(d1 >  d2)
# True
print(d1 >= d2)
# True
print(d1 == d2)
# False
print(d1 <= d2)
# False
print(d1 <  d2)
# False

R

R
dt1 <- make_date(2004, 3, 21)
dt1
# [1] "2004-03-21"
dt2 <- make_date(2003, 3, 21)
dt2
# [1] "2003-03-21"
dt1 >  dt2
# [1] TRUE
dt1 >= dt2
# [1] TRUE
dt1 == dt2
# [1] FALSE
dt1 <  dt2
# [1] FALSE
dt1 <= dt2
# [1] FALSE

VBA

VBA
Debug.Print dt1 > dt2
' True
Debug.Print dt1 >= dt2
' True
Debug.Print dt1 = dt2
' False
Debug.Print dt1 < dt2
' False
Debug.Print dt1 <= dt2
' False

日時の丸め処理

Python

Python

R

R
round_date(dt, unit = "day")
# [1] "2004-03-22 UTC"
floor_date(dt, unit = "minute")
# [1] "2004-03-21 12:34:00 UTC"
ceiling_date(dt, unit = "month")
# [1] "2004-04-01 UTC"
# Valid units are second, minute, hour, day, week, month, bimonth, 
# quarter, season, halfyear and year. 

VBA

VBA

日時型のデータ列

補足

エクセルでは、歴史的な経緯(Lotusとの互換性)から、本来は閏年ではない1900年を閏年として扱っているため、VBAのシリアル値と1日ずれます。

Microsoft
Excel 1900 年がうるう年と誤って想定される
Excel incorrectly assumes that the year 1900 is a leap year
1900 年と 1904 年の日付システムの違Excel
年がうるう年かどうかを判断する方法

Lotus 1-2-3 が最初にリリースされた時、プログラムは、実際にはうるう年ではないにもかかわらず、1900 年はうるう年であると仮定しました。 これにより、プログラムはうるう年の処理が容易になり、Lotus 1-2-3 のほとんどすべての日付計算に害を及ぼしました。
Microsoft Multiplan と Microsoft Excelリリース時には、1900 年がうるう年であるとも見なされました。 この前提により、Microsoft Multiplan と Microsoft Excel は Lotus 1-2-3 で使用されるのと同じシリアル日付システムを使用し、Lotus 1-2-3 との互換性を向上しました。

エクセルの学校
ExcelPedia シリアル値
シリアル値 (tp0049)
『シリアル値について』

1900年は本来閏年ではないが、「エクセルでは」閏年として扱っている。このため、1900年1月1日から起算した場合、1900年3月1日以後の日付連番は実際の日数よりも 1 大きい数値となる。これに対し、Excel VBA? では、平年扱いとなっており、ユーザー定義関数(UDF)?を作成して計算する場合には、この点を考慮して設計する必要がある。

Rのas.Dateのヘルプ

## Excel is said to use 1900-01-01 as day 1 (Windows default) or
## 1904-01-01 as day 0 (Mac default), but this is complicated by Excel
## incorrectly treating 1900 as a leap year.
## So for dates (post-1901) from Windows Excel
as.Date(35981, origin = "1899-12-30") # 1998-07-05
## and Mac Excel
as.Date(34519, origin = "1904-01-01") # 1998-07-05
## (these values come from http://support.microsoft.com/kb/214330)

まとめ

各言語のコード等を一覧にまとめます。比較のために、EXCELの数式も示しました。

データ型

Python (datetime) R (lubridate) VBA EXCEL
日付 date オブジェクト "Date" クラス Date型(整数部分) Date型(整数部分)
時刻 time オブジェクト "hms" "difftime" クラス Date型(小数部分) Date型(小数部分)
日時 datetime オブジェクト "POSIXct" "POSIXt" クラス Date型 Date型

現在の日時

Python (datetime) R (lubridate) VBA EXCEL
現在の日付 datetime.date.today() today() Date =TODAY()
現在の時刻 datetime.datetime.now().
time()
Time
現在の日時 datetime.datetime.now() now() Now =NOW()

日付型⇒シリアル値

Python (datetime) R (lubridate) VBA EXCEL
日付 as.numeric(d)
unclass(d)
CLng(d)
時刻 as.numeric(t)
unclass(t)
CDbl(t)
日時 dt.timestamp() as.numeric(dt)
unclass(dt)
CDbl(dt)

シリアル値⇒日時型

Python (datetime) R (lubridate) VBA EXCEL
日付 as_date(d) CDate(d) =A1
時刻 hms::as_hms(t) CDate(t) =A1
日時 datetime.datetime.
fromtimestamp(d)
as_datetime(dt) CDate(dt) =A1

文字列型⇒日時型

Python (datetime) R (lubridate) VBA EXCEL
日付 datetime.datetime.
strptime('s', '%Y/%m/%d').date()
as_date(s)
as.Date(s, "%Y/%m/%d")
ymd(s) 等
CDate(s)
DateValue(s)
=DATEVALUE(A1)
時刻 datetime.datetime.
strptime(s, '%H:%M:%S').time()
hms::as_hms(s) CDate(s)
TimeValue(s)
=TIMEVALUE(A1)
日時 datetime.datetime.
strptime(s, '%Y/%m/%d %H:%M:%S')
as_datetime(s)
ymd_hms(s) 等
CDate(s)

日時型⇒文字列型

Python (datetime) R (lubridate) VBA EXCEL
日付 d.strftime('%Y/%m/%d')
'{0:%Y/%m/%d}'.format(d)
strftime(d, format="%Y/%m/%d") Format(d, "yyyy/mm/dd") =TEXT(A1,"yyyy/mm/dd")
時刻 t.strftime('%H:%M:%S')
'{0:%H:%M:%S}'.format(t)
strftime(t, format="%H:%M:%S") Format(t, "hh:nn:ss") =TEXT(A1,"hh:nn:ss")
日時 dt.strftime('%Y/%m/%d %H:%M:%S')
'{0:%Y/%m/%d %H:%M:%S}'.format(dt)
strftime(dt, format="%Y/%m/%d %H:%M:%S") Format(dt, "yyyy/mm/dd hh:nn:ss") =TEXT(A1,"yyyy/mm/dd hh:nn:ss")

日時の要素⇒日時型

Python (datetime) R (lubridate) VBA EXCEL
日付 datetime.date(2004, 3, 21) make_date(2004, 3, 21) DateSerial(2004, 3, 21) =DATE(2004,3,21)
時刻 datetime.time(12, 34, 56) TimeSerial(12, 34, 56) =TIME(12,34,56)
日時 datetime.datetime(2004, 3, 21, 12, 34, 56) make_datetime(2004, 3, 21, 12, 34, 56) DateSerial(2004, 3, 21)
+ TimeSerial(12, 34, 56)
=DATE(2004,3,21)
+TIME(12,34,56)

日時型⇒日時の要素

Python (datetime) R (lubridate) VBA EXCEL
dt.year year(dt) Year(dt) =YEAR(A1)
dt.month month(dt) Month(dt) =MONTH(A1)
dt.day day(dt) Day(dt) =DAY(A1)
dt.hour hour(dt) Hour(dt) =HOUR(A1)
dt.minute minute(dt) Minute(dt) =MINUTE(A1)
dt.second second(dt) Second(dt) =SECOND(A1)
マイクロ秒 dt.microsecond
日付 dt.date() date(dt)
as_date(dt)
時刻 dt.time()
曜日 dt.weekday() wday(dt)
wday(d, label = T)
Weekday(dt)
WeekdayName(
Weekday(dt))
=WEEKDAY(A1)
年の通算日 yday(dt) DatePart("y", dt)
四半期の通算日 qday(dt)
月の通算日
=日
mday(dt) DatePart("d", dt)
週の通算日
=曜日
wday(dt)
wday(d, label = T)
DatePart("w", dt)
年の通算週
=週
DatePart("ww", dt) =WEEKNUM(A1)
四半期 quarter(dt)
quarter(dt, with_year = T)
半期 semester(dt)
semester(dt, with_year = T)
閏年 leap_year(dt)
午前 am(dt)
午後 pm(dt)
タイムゾーン tz(dt)
タイムゾーン変更 with_tz(dt,
"America/Chicago")

日時の加算

Python (datetime) R (lubridate) VBA EXCEL
dt + years(1) DateAdd("yyyy", 1, dt)
半期
四半期 DateAdd("q", 1, dt)
dt + months(1) DateAdd("m", 1, dt) =EDATE(A1,1)
dt +
datetime.timedelta(weeks=1)
dt + weeks(1) DateAdd("ww", 1, dt) =A1+7
dt +
datetime.timedelta(days=1)
dt + days(1)
d + 1
DateAdd("d", 1, dt)
dt + 1
=A1+1
時間 dt +
datetime.timedelta(hours=1)
dt + hours(1) DateAdd("h", 1, dt)
dt + 1/24
=A1+1/24
dt +
datetime.timedelta(minutes=1)
dt + minutes(1) DateAdd("n", 1, dt)
dt + 1/24/60
=A1+1/24/60
dt +
datetime.timedelta(seconds=1)
dt + seconds(1)
dt + 1
DateAdd("s", 1, dt)
dt + 1/24/60/60
=A1+1/24/60/60

日時の差

Python (datetime) R (lubridate) VBA EXCEL
日付 (d1 - d2).days d1 - d2
interval(dt1, dt2)
dt1 %--% dt2
d1 - d2 =A1-A2
=DAYS(A2,A1)
時刻 (d1 - d2).seconds d1 - d2 =A1-A2
日時 (d1 - d2).total_seconds() d1 - d2 =A1-A2

日時の大小関係

Python (datetime) R (lubridate) VBA EXCEL
d1 > d2 dt1 > dt2 dt1 > dt2 =A1>A2
d1 >= d2 dt1 >= dt2 dt1 >= dt2 =A1>=A2
dt1 == dt2 dt1 == dt2 dt1 = dt2 =A1>A2
dt1 < dt2 dt1 < dt2 dt1 < dt2 =A1<A2
dt1 <= dt2 dt1 <= dt2 dt1 <= dt2 =A1<=A2

日時の丸め処理

Python (datetime) R (lubridate) VBA EXCEL
ラウンド round_date(dt, unit = "day")
天井 ceiling_date(dt, unit = "month")
floor_date(dt, unit = "minute")

参考

1
3
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
1
3

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?