powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как дату преобразовать?
5 сообщений из 5, страница 1 из 1
Как дату преобразовать?
    #32544367
Forzy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите тупому, есть строка 18122003, как это дело преобразовать в формат даты?
CTOD() берёт строку только с разделителями? типа 18.12.2003?
Получается, что надо сначала разобрать строку, а потом собрать снова вставив точки?
А проще можно?
...
Рейтинг: 0 / 0
Как дату преобразовать?
    #32544390
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, надо сначала вставить разделители и только потом использовать функции преобразования. Например:

Код: plaintext
1.
2.
LOCAL lcString
lcString = '18122003'
?DATE(VAL(SubStr(m.lcString, 5 , 4 )),VAL(SubStr(m.lcString, 3 , 2 )),VAL(SubStr(m.lcString, 1 , 2 )))
...
Рейтинг: 0 / 0
Как дату преобразовать?
    #32544398
Рам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
напиши функцию
которая преобразует строку 18122003
в 18.12.2003 а после используй CTOD()

Типа такой
FUNCTION sToD
PARAMETER tdStr
LOCAL lcRetstr
lcRetstr = ""
IF LEN(tdStr)<8
lcRetstr = tdStr
ELSE
lcRetstr = SUBSTR(tdStr, 7, 2)+'.'+SUBSTR(tdStr, 5, 2)+'.'+ ;
SUBSTR(tdStr, 1, 4)
ENDIF
RETURN lcRetstr
ENDFUNC
...
Рейтинг: 0 / 0
Как дату преобразовать?
    #32544415
Forzy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я так и сделал, просто подумал, что можно проще...
Спасибо!
...
Рейтинг: 0 / 0
Как дату преобразовать?
    #32544442
Forzy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я так и сделал, просто подумал, что можно проще...
Спасибо!
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как дату преобразовать?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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