Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Office Новый топик    Ответить
 VBA EXCEL , DATE - преобразование системной даты в строку  [new]
ПЯРНУ
Guest
После выполнения выражения

Cells(19, 2).Formula = Now  

в ячейку записано

20.07.04 10:35:48

Как преобразовать в строку,
допустим "20.07.04 10:35:48"


СПАСИБО
20 июл 04, 12:56    [820353]     Ответить | Цитировать Сообщить модератору
 Re: VBA EXCEL , DATE - преобразование системной даты в строку  [new]
Jojo
Member

Откуда:
Сообщений: 794
Cstr() ...

Scio me nihil scire

<<Jojo®>>
20 июл 04, 13:00    [820368]     Ответить | Цитировать Сообщить модератору
 Re: VBA EXCEL , DATE - преобразование системной даты в строку  [new]
Jojo
Member

Откуда:
Сообщений: 794
date_=Cells(19, 2).Value
date_str=Cstr(date_str)

Scio me nihil scire

<<Jojo®>>
20 июл 04, 13:02    [820384]     Ответить | Цитировать Сообщить модератору
 Re: VBA EXCEL , DATE - преобразование системной даты в строку  [new]
ПЯРНУ
Guest
date_ = Cells(19, 2).Value
 date_str = CStr(date_str)

MsgBox date_str

выведено  0:00:00
20 июл 04, 15:00    [821006]     Ответить | Цитировать Сообщить модератору
 Re: VBA EXCEL , DATE - преобразование системной даты в строку  [new]
Yanis
Member

Откуда: Казахстан, Актау
Сообщений: 4219
Потому что должно быть наверное вот так:
date_ = Cells(19, 2).Value
date_str = CStr(date_)
Или сразу так:
date_str = CStr(Cells(19, 2).Value)
20 июл 04, 15:09    [821039]     Ответить | Цитировать Сообщить модератору
 Re: VBA EXCEL , DATE - преобразование системной даты в строку  [new]
ПЯРНУ
Guest
Yanis , ПУСТО ВЫВОДИТ

date_str2 = CStr(Cells(19, 2).Value)
MsgBox date_str2 
 
20 июл 04, 15:37    [821171]     Ответить | Цитировать Сообщить модератору
 Re: VBA EXCEL , DATE - преобразование системной даты в строку  [new]
Yanis
Member

Откуда: Казахстан, Актау
Сообщений: 4219
ПЯРНУ
Yanis , ПУСТО ВЫВОДИТ

date_str2 = CStr(Cells(19, 2).Value)
MsgBox date_str2 
 
Специально проверил - работает!
20 июл 04, 15:55    [821294]     Ответить | Цитировать Сообщить модератору
 Re: VBA EXCEL , DATE - преобразование системной даты в строку  [new]
ПЯРНУ
Guest
Yanis,

Я НЕ ПРАВ, ИЗВИНИ,
Я ПРОПУСТИЛ начальную строку
конечный код таков:

Cells(19, 2).Formula = Now
    date_str2 = CStr(Cells(19, 2).Value)
'+    MsgBox date_str2
MsgBox "qqqqqqqq  " + date_str2

БОЛЬШОЕ СПАСИБО ,

Yanis,

и всем, кто мне помогал.
20 июл 04, 16:16    [821456]     Ответить | Цитировать Сообщить модератору
 Re: VBA EXCEL , DATE - преобразование системной даты в строку  [new]
ПЯРНУ
Guest
перепечатываю жёлтый текст

Yanis,

Я НЕ ПРАВ, ИЗВИНИ,
Я ПРОПУСТИЛ начальную строку
конечный код таков:

Cells(19, 2).Formula = Now
    date_str2 = CStr(Cells(19, 2).Value)
'+    MsgBox date_str2
MsgBox "qqqqqqqq  " + date_str2
 


БОЛЬШОЕ СПАСИБО ,

Yanis,

и всем, кто мне помогал.
20 июл 04, 16:19    [821472]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Office Ответить