Я пытаюсь преобразовать «07,29,30» в формат даты, используя as.Date() в R.
(Обратите внимание, что формат строки «мм, дд, гг», то есть 29 июля 1930 г.)
Поэтому я использовал следующий код:
as.Date("07,29,30", format = "%m,%d,%y")
Но год, который я получаю, — это 2030, а не 1930 год. Как я могу указать R преобразовать значение в дату за столетие до этого?
Поскольку значения года от 00 до 68 кодируются как 20 для века. Из документации strptime кажется, что причина этого в следующем.
«Год без века (00–99). При вводе значения от 00 до 68 имеют префикс 20, а от 69 до 99 — 19 — это поведение, определенное стандартами POSIX 2004 и 2008, но они также говорят: «ожидается что в будущей версии век по умолчанию, выведенный из двухзначного года, изменится».
Вы можете использовать приведенный ниже код, чтобы перекодировать его.
d <- as.Date("07,29,30", format = "%m,%d,%y")
> as.Date(ifelse(d > today(), format(d, "19%y-%m-%d"), format(d)))
[1] "1930-07-29"
Я все равно вставлю:
# use this library
library(lubridate)
# convert to the format (your way or you acn use lubridate)
dateconvert <- as.Date("07,29,30", format = "%m,%d,%y")
# get the year
inputYear <- year(dateconvert)
# convert the year
year(dateconvert) <- ifelse(inputYear > 2000, 1900 + (inputYear %% 100), inputYear)
Попробуйте следующее: format(as.Date("07,29,30", format = "%m,%d,%y"), "19%y-%m-%d")
Чтобы решить эту проблему, используйте strtotime() и date():
$originalDate = "2010-03-21";
$newDate = date("d-m-Y", strtotime($originalDate));
