Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA EXCEL , DATE - преобразование системной даты в строку / 9 сообщений из 9, страница 1 из 1
20.07.2004, 12:56
    #32612368
ПЯРНУ
ПЯРНУ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA EXCEL , DATE - преобразование системной даты в строку
После выполнения выражения

Код: plaintext
Cells( 19 ,  2 ).Formula = Now

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

20.07.04 10:35:48

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

СПАСИБО
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2004, 13:00
    #32612379
Jojo
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA EXCEL , DATE - преобразование системной даты в строку
Cstr() ...

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2004, 13:02
    #32612391
Jojo
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA EXCEL , DATE - преобразование системной даты в строку
date_=Cells(19, 2).Value
date_str=Cstr(date_str)

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2004, 15:00
    #32612831
ПЯРНУ
ПЯРНУ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA EXCEL , DATE - преобразование системной даты в строку
Код: plaintext
1.
date_ = Cells( 19 ,  2 ).Value
 date_str = CStr(date_str)

MsgBox date_str

Код: plaintext
выведено   0 : 00 : 00
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2004, 15:09
    #32612854
Yanis
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA EXCEL , DATE - преобразование системной даты в строку
Потому что должно быть наверное вот так:
Код: plaintext
1.
2.
date_ = Cells( 19 ,  2 ).Value
date_str = CStr(date_)
Или сразу так:
Код: plaintext
1.
date_str = CStr(Cells( 19 ,  2 ).Value)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2004, 15:37
    #32612953
ПЯРНУ
ПЯРНУ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA EXCEL , DATE - преобразование системной даты в строку
Yanis , ПУСТО ВЫВОДИТ

Код: plaintext
1.
2.
date_str2 = CStr(Cells( 19 ,  2 ).Value)
MsgBox date_str2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2004, 15:55
    #32613033
Yanis
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA EXCEL , DATE - преобразование системной даты в строку
ПЯРНУYanis , ПУСТО ВЫВОДИТ

Код: plaintext
1.
2.
date_str2 = CStr(Cells( 19 ,  2 ).Value)
MsgBox date_str2
Специально проверил - работает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2004, 16:16
    #32613115
ПЯРНУ
ПЯРНУ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA EXCEL , DATE - преобразование системной даты в строку
Yanis,

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

Код: plaintext
1.
2.
3.
Cells( 19 ,  2 ).Formula = Now
    date_str2 = CStr(Cells( 19 ,  2 ).Value)
'+    MsgBox date_str2
MsgBox "qqqqqqqq  " + date_str2

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

Yanis,

и всем, кто мне помогал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2004, 16:19
    #32613124
ПЯРНУ
ПЯРНУ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA EXCEL , DATE - преобразование системной даты в строку
перепечатываю жёлтый текст

Yanis,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Я НЕ ПРАВ, ИЗВИНИ,
Я ПРОПУСТИЛ начальную строку
конечный код таков:

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


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

Yanis,

и всем, кто мне помогал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA EXCEL , DATE - преобразование системной даты в строку / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]