Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как дату преобразовать? / 5 сообщений из 5, страница 1 из 1
02.06.2004, 11:36
    #32544367
Forzy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как дату преобразовать?
Подскажите тупому, есть строка 18122003, как это дело преобразовать в формат даты?
CTOD() берёт строку только с разделителями? типа 18.12.2003?
Получается, что надо сначала разобрать строку, а потом собрать снова вставив точки?
А проще можно?
...
Рейтинг: 0 / 0
02.06.2004, 11:46
    #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
02.06.2004, 11:49
    #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
02.06.2004, 11:55
    #32544415
Forzy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как дату преобразовать?
я так и сделал, просто подумал, что можно проще...
Спасибо!
...
Рейтинг: 0 / 0
02.06.2004, 12:10
    #32544442
Forzy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как дату преобразовать?
я так и сделал, просто подумал, что можно проще...
Спасибо!
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как дату преобразовать? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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