powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Функция, обратная к DTOS
6 сообщений из 6, страница 1 из 1
Функция, обратная к DTOS
    #33368628
n0name
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте!
dtos(date()) ->20051109
А как обратно?
...
Рейтинг: 0 / 0
Функция, обратная к DTOS
    #33368647
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
пиши свою функцию


function stod
lpara tString
local lcString
lcString = substr(tString,1,4)+"."+substr(tString,5,2)+"."+substr(tString,7)
retu ctod(lcString)


делов та
...
Рейтинг: 0 / 0
Функция, обратная к DTOS
    #33368669
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
да, для сет дата герман

нужно так

substr(tString,7)+"."+substr(tString,5,2)+"."+substr(tString,1,4)


да и можно ее универсальной еще сделать

там параметром передавать YMD DMY ....
...
Рейтинг: 0 / 0
Функция, обратная к DTOS
    #33368697
n0name
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Умищще-то, умищще....
так и сделал, просто мыслил есть родная функция...

----------------
Efes Pilsener - чувствуешь, что спиваешься...
...
Рейтинг: 0 / 0
Функция, обратная к DTOS
    #33368701
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну так еще можно:
?"{^"+TRANSFORM(DTOS(DATE()),"@R XXXX-XX-XX")+"}"
...
Рейтинг: 0 / 0
Функция, обратная к DTOS
    #33368857
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я не понимаю может чего

публика здесь блин
хамят напрополую
чего блин от пивных ларьков убежали???
лучше сюда вообще не заходить

n0name
ну раз сам умный ну .....
по англицки хелп почитай тады .... или своим глазкам не доверяешь???
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Функция, обратная к DTOS
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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