![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 20.04.2008
Сообщений: 57
|
![]()
Приветствую. Вопрос очень простой, но через поиск не нашел. Необходимо разделить системную дату на год,месяц и число. Знаю есть процедура DecodeDatа, но как им пользоваться не знаю. Цель- в один DBEdit поместить число, в другой месяц и третий год соответстввенно.
|
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 29.03.2008
Сообщений: 300
|
![]()
FormatDateTime('yyyy', date()); -год (2008)
FormatDateTime('mmmm', date()); -месяц (май) FormatDateTime('dd', date()); -число (27) другой формат: FormatDateTime('yy', date()); -год (08) FormatDateTime('mm', date()); -месяц (05) FormatDateTime('dddd', date()); -число (вторник)
Карп преодолевший водопад становится драконом.
Последний раз редактировалось N!ckeL; 27.05.2008 в 17:49. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 20.04.2008
Сообщений: 57
|
![]()
В каком типе данных выйдут значения?
yy,mmm,,ddd - это переменные куда лягут значения? |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
![]()
Var s:string;
s:=DateToStr(now); Edit1.Text:=Copy(s,1,pos('.',s)-1); delete(s,1,pos('.',s)); Edit2.Text:=Copy(s,1,pos('.',s)-1); delete(s,1,pos('.',s)); Edit3.Text:=s;
Нет невыполнимых задач, всё дело времени...
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 29.03.2008
Сообщений: 300
|
![]()
Функция вернёт строку:
Код:
Карп преодолевший водопад становится драконом.
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 20.04.2008
Сообщений: 57
|
![]() |
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 20.04.2008
Сообщений: 57
|
![]()
В целом понятно. Всем большое спасибо!!!
|
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 29.03.2008
Сообщений: 300
|
![]()
p.s.:чем FormatDateTime не нравится?
copy копирует участок строки, 1 параметр строка с которой копировать, 2 параметр с какого символа копировать, 3 параметр сколько символов копировать
Карп преодолевший водопад становится драконом.
|
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
![]()
copy(строка откуда копировать, начиная с символа, заканчивая чимволом включительно)
pos(подстрока, строка) - ищет первое вхождение подстроки в строку и возвращает позицию (н.п. pos('.','12.12.2008') = 3) delete(строка откуда удалять, начиная с символа, заканчивая чимволом включительно)
Нет невыполнимых задач, всё дело времени...
|
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 20.04.2008
Сообщений: 57
|
![]()
Все устраивает!!! Еще раз большое спасибо!
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Акция: хостинг 200 Гб, 200 р. в месяц. | Viteef | Свободное общение | 2 | 28.07.2008 23:43 |
Защита .xls файла на месяц | valerij | Microsoft Office Excel | 2 | 09.02.2008 03:03 |
как суммировать только определенный месяц? | Алька | Microsoft Office Excel | 2 | 08.05.2007 08:50 |