разделить дату и время или целую и дробную часть
lFJl
Дата: Среда, 07.12.2016, 10:16 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация:
6
±
Замечаний:
0% ±
Excel 2013
Добрый день форумчане! Подскажите пожалуйста, как можно разделить дату и время или целую и дробную часть числа. Например в ячейке число 42711,5910879629 , а это 07.12.2016 14:11:10. Так как средствами vba их раскидать на 2 переменные? 42711 или 07.12.2016 и 5910879629 или 14:11:10 Спасибо.
Добрый день форумчане! Подскажите пожалуйста, как можно разделить дату и время или целую и дробную часть числа. Например в ячейке число 42711,5910879629 , а это 07.12.2016 14:11:10. Так как средствами vba их раскидать на 2 переменные? 42711 или 07.12.2016 и 5910879629 или 14:11:10 Спасибо. lFJl
Ответить
Сообщение Добрый день форумчане! Подскажите пожалуйста, как можно разделить дату и время или целую и дробную часть числа. Например в ячейке число 42711,5910879629 , а это 07.12.2016 14:11:10. Так как средствами vba их раскидать на 2 переменные? 42711 или 07.12.2016 и 5910879629 или 14:11:10 Спасибо. Автор - lFJl Дата добавления - 07.12.2016 в 10:16
_Boroda_
Дата: Среда, 07.12.2016, 10:21 |
Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация:
6479
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Int или Fix - целое остаток - всё минус целое, илиНе, бред написал. Стер Вот так еще [vba]Код
dd_ = DateValue(Range("A1")) tt_ = TimeValue(Range("A1"))
[/vba]
Int или Fix - целое остаток - всё минус целое, илиНе, бред написал. Стер Вот так еще [vba]Код
dd_ = DateValue(Range("A1")) tt_ = TimeValue(Range("A1"))
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Int или Fix - целое остаток - всё минус целое, илиНе, бред написал. Стер Вот так еще [vba]Код
dd_ = DateValue(Range("A1")) tt_ = TimeValue(Range("A1"))
[/vba] Автор - _Boroda_ Дата добавления - 07.12.2016 в 10:21
Alex_ST
Дата: Среда, 07.12.2016, 10:51 |
Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3206
Репутация:
609
±
Замечаний:
0% ±
2003
А не так ли?[vba]Код
Dim nn: nn = 42711.5910879629 Debug.Print Format(nn, "yyyy/mm/dd") Debug.Print Format(nn, "hh:mm:ss")
[/vba]
А не так ли?[vba]Код
Dim nn: nn = 42711.5910879629 Debug.Print Format(nn, "yyyy/mm/dd") Debug.Print Format(nn, "hh:mm:ss")
[/vba] Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Ответить
Сообщение А не так ли?[vba]Код
Dim nn: nn = 42711.5910879629 Debug.Print Format(nn, "yyyy/mm/dd") Debug.Print Format(nn, "hh:mm:ss")
[/vba] Автор - Alex_ST Дата добавления - 07.12.2016 в 10:51
KuklP
Дата: Среда, 07.12.2016, 11:05 |
Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Леш, при таком способе у тебя на выходе получится текст. Не число, не дата.
Леш, при таком способе у тебя на выходе получится текст. Не число, не дата. KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Леш, при таком способе у тебя на выходе получится текст. Не число, не дата. Автор - KuklP Дата добавления - 07.12.2016 в 11:05
lFJl
Дата: Среда, 07.12.2016, 11:09 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация:
6
±
Замечаний:
0% ±
Excel 2013
_Boroda_, Так просто.. спасибо!
_Boroda_, Так просто.. спасибо! lFJl
Ответить
Сообщение _Boroda_, Так просто.. спасибо! Автор - lFJl Дата добавления - 07.12.2016 в 11:09
lFJl
Дата: Среда, 07.12.2016, 11:10 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация:
6
±
Замечаний:
0% ±
Excel 2013
Alex_ST, Спасибо KuklP, Разве что дополнительно потом в числовой или формат времени перевести.
Alex_ST, Спасибо KuklP, Разве что дополнительно потом в числовой или формат времени перевести. lFJl
Ответить
Сообщение Alex_ST, Спасибо KuklP, Разве что дополнительно потом в числовой или формат времени перевести. Автор - lFJl Дата добавления - 07.12.2016 в 11:10
Alex_ST
Дата: Среда, 07.12.2016, 11:16 |
Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3206
Репутация:
609
±
Замечаний:
0% ±
2003
при таком способе у тебя на выходе получится текст
Привет, Серёга. Ну, вообще-то при постановке задачи не было сказано, в каком формате должны быть данные. А т.к. цель не ясна, я сделал так, чтобы полученный текст можно было СЦЕПИТЬ с текстом какого-нибудь заголовка
при таком способе у тебя на выходе получится текст
Привет, Серёга. Ну, вообще-то при постановке задачи не было сказано, в каком формате должны быть данные. А т.к. цель не ясна, я сделал так, чтобы полученный текст можно было СЦЕПИТЬ с текстом какого-нибудь заголовкаAlex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Четверг, 08.12.2016, 08:51
Ответить
Сообщение при таком способе у тебя на выходе получится текст
Привет, Серёга. Ну, вообще-то при постановке задачи не было сказано, в каком формате должны быть данные. А т.к. цель не ясна, я сделал так, чтобы полученный текст можно было СЦЕПИТЬ с текстом какого-нибудь заголовкаАвтор - Alex_ST Дата добавления - 07.12.2016 в 11:16
lFJl
Дата: Четверг, 08.12.2016, 04:18 |
Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация:
6
±
Замечаний:
0% ±
Excel 2013
Alex_ST, Это тоже будет полезно! Спасибо!
Alex_ST, Это тоже будет полезно! Спасибо! lFJl
Ответить
Сообщение Alex_ST, Это тоже будет полезно! Спасибо! Автор - lFJl Дата добавления - 08.12.2016 в 04:18