Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Отделить дату от времени
 
#1
15.02.2014 13:11:48
Добрый день,  Есть дата 31.01.2014 18:00:00, нужно 31.01.2014 занести в ячейку А1 а 18:00:00 в ячейку А2.
Приложил свои потуги.
 
 
 
#2
15.02.2014 13:15:29
Округл(ДатаВремя;0) - будет дата
Остат(ДатаВремя;1) - будет время.
Если автоматизировать бардак, то получится автоматизированный бардак.
 
 
 
#3
15.02.2014 13:17:23
Спасибо конечно, но хотелось бы средствами VBA
 
 
 
#4
15.02.2014 13:25:19
Так замените названия на английские и пропишите в макросе...
Если автоматизировать бардак, то получится автоматизированный бардак.
 
 
 
#5
15.02.2014 13:29:50
Формулы приму к сведению, на крайняк их вставлю. Разве нету никакой функции в VBA?
 
 
 
#6
15.02.2014 13:33:08
Код
xltime = Right(Now, 8)
xlDat = Left(Now, 10)
для вашего примера

Код
Sub Date_Time()
Dim d As Date
Dim q As Date
d = Cells(2, 1).Value
Cells(4, 1) = Right(d, 8)
Cells(5, 1) = Left(d, 10)
End Sub
Изменено: lexey_fan - 15.02.2014 13:36:32
Если очень захотеть - можно в космос полететь ;)
 
 
 
#7
15.02.2014 13:38:02
Спасибо ,так понимаю ,то что получилось будет в текстовом формате ?
 
 
 
#8
15.02.2014 13:41:46
Именно для даты нету никакой функции ?
 
 
 
#9
15.02.2014 13:43:15
вот так будет формат даты
Код
Sub Date_Time()
Dim d As Date
Dim q As Date
d = Cells(2, 1).Value
q = Right(d, 8)
Cells(4, 1) = q
q = Left(d, 10)
Cells(5, 1) = q
End Sub
Изменено: lexey_fan - 15.02.2014 13:43:30
Если очень захотеть - можно в космос полететь ;)
 
 
 
#10
15.02.2014 13:51:21
А формат ячейки не устраивает? Потом будете решать как суммировать время при переходе суток.
Изменено: gling - 15.02.2014 13:56:57
 
 
 
#11
15.02.2014 13:51:40
:?:  
Код
tm = TimeValue(Now)    'системное время
dt = DateValue(Now)      'системная дата
Согласие есть продукт при полном непротивлении сторон
 
 
 
#12
15.02.2014 13:53:42
Есть какая либо функция по типу

A = 31.01.2014 18:00:00

b = Функция(A, hh mm ss)
c = Функция(A. yyyy mm dd)

чтобы:

b= 18:00:00
c= 18.01.2014
Изменено: luppi - 15.02.2014 13:54:21
 
 
 
#13
15.02.2014 13:56:16
См пост #11. Замените Now на Ваше значение.
Согласие есть продукт при полном непротивлении сторон
 
 
 
#14
15.02.2014 13:59:11
Ок, это то что нужно, хотя все способы в разных ситуациях подойдут. Sanja, ты в точку попал, спасибо.

Остальным тоже спасибо.
 
 
 
#15
15.02.2014 14:11:09
Цитата
Sanja пишет:
tm = TimeValue(Now) 'системное время
dt = DateValue(Now) 'системная дата

Код
 tm = Time 'системное время
dt = Date 'системная дата
 
 
 
#16
09.08.2021 16:13:10
dovos, создайте отдельную тему с названием, отражающим суть задачи
 
 
 
Страницы: 1
Читают тему
Наверх