Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.05.2017, 11:33   #1
Ship_1
Форумчанин
 
Регистрация: 10.02.2014
Сообщений: 526
По умолчанию StrToDate по формату без разделителей - возможно?

Здравствуйте!
Можно ли преобразовать строку в дату если у строки нет разделителей между месяцем и годом, но формат постоянный, без дополнительных функций сопирования частей строки чтоб получить отдельно месяц и год, используя только StrToDate с форматом? Что-то типа
Код:
SDate:=StrToDate(DateStr+'01','yyyymmdd')
где, например, DateStr = 201102
Ship_1 вне форума Ответить с цитированием
Старый 04.05.2017, 11:58   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Ship_1 Посмотреть сообщение
преобразовать строку в дату если у строки нет разделителей между месяцем и годом, но формат постоянный, без дополнительных функций сопирования частей строки чтоб получить отдельно месяц и год, используя только StrToDate с форматом?
нет, нельзя.

а в чём проблема дописать пару Copy() ?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 04.05.2017, 12:01   #3
Ship_1
Форумчанин
 
Регистрация: 10.02.2014
Сообщений: 526
По умолчанию

Да ни в чём, просто желание сделать покомпактнее.
Сейчас сделал так:
Код:
SDate:=EncodeDate(StrToInt(copy(DateStr,1,4)),StrToInt(copy(DateStr,5,2)),1);
Ship_1 вне форума Ответить с цитированием
Старый 04.05.2017, 12:07   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Ship_1 Посмотреть сообщение
Сейчас сделал так:
Код:
SDate:=EncodeDate(StrToInt(copy(DateStr,1,4)),StrToInt(copy(DateStr,5,2)),1);
ну и отлично. Это достаточно компактно и, главное, очень эффективно.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выгрузка из Эксель в текстовый документ без разделителей... igoryava Microsoft Office Excel 19 24.03.2015 13:44
Возможно ли без VBA? Zzema Microsoft Office Excel 17 29.11.2013 20:41
SQL подзапрос без сравнения, возможно ? DS75 БД в Delphi 7 03.06.2009 12:32
Form3.Table1.FieldByname('Data').Asdate:=Strtodate (Edit2.Text); - ошибка Alex_7_4_1 БД в Delphi 3 06.05.2008 22:41
Ввод даты без разделителей (311007) avtor101 Microsoft Office Excel 1 31.10.2007 19:57