Как выделить из даты день, месяц, день недели

@Коляк@ · Регистрация: 29.01.2012

Студворк — интернет-сервис помощи студентам

В Delphi пишу програмку для работы с Access. Там хранится табличка с полями
HB_rukov (HB_rukov.ID, HB_rukov.FIO, HB_rukov.BirthD)

Выбираю следующие поля:

Delphi
1
2
3
4
5
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT HB_rukov.ID, HB_rukov.FIO, HB_rukov.BirthD,');
ADOQuery1.SQL.Add('DateDiff("yyyy",HB_rukov.BirthD,Date()) AS DifHB, DateAdd("yyyy",DifHB,HB_rukov.BirthD) AS HB_this_y');
ADOQuery1.SQL.Add('FROM HB_rukov');
ADOQuery1.Active:=True;

т.е. HB_this_y - дата ДР для текущего года.

Вопрос: нужно для даты в текущем году сделать селект, который выдаст следующее значение:
было стало
01.02.2012 февраль, 1, среда

В идеале конечно было бы здоро, если будет писаться "1 февраля, среда", но даже первый вариант вполне устроит.

Подскажите, как это прописать в запросе?

Комментарий модератора

Используйте теги кода!

@MsGuns · 01.02.2012, 11:05

В запросе Access - никак, да и зачем ?
На клиенте - см. FormatDateTime

@Коляк@ · 01.02.2012, 12:29 **[ТС]**

MsGuns, я пишу запрос в Delphi,обращаясь в Access

может не совсем понятно спросила.. нужно получить "февраль, 1, среда"

Добавлено через 19 минут
может что-то непонятно указал.. еще раз напишу, мне нужно получить строку из даты "февраль, 1, среда"

Например, добавлю в запрос в select

Delphi
1
Day(HB_this_y)

и получу число месяца из даты

Добавлю в запрос в select

Delphi
1
Month(HB_this_y)

и получу номер месяца из даты. от него мне нужно название - как его получить - прошу подсказать.

и , наконец, из этой даты нужно получить день недели.

@MsGuns · 01.02.2012, 13:49

Ответ дан в [2].
Он означает, что средствами Access SQL (читайте help а акцесе, а также справку по джету Jetsql40.chm) получить дату в том формате, что указан в сабже НЕЛЬЗЯ. Т.е. непосредственно в запросе решить задачу НЕЛЬЗЯ, поэтому надо преобразовать дату НА КЛИЕНТЕ, в данном случае средствами Delphi, в частности с помощью делфи-функции FormatDateTime. Либо "ручками", т.е. самостоятельно написать код, формирующий дату в нужном виде.
Преобразование даты можно сделать либо в событии OnGetText поля с датой) либо с помощью калькулируемых полей, т.е. Вам нужно почитать вниматель справку Delphi по классу TDataSet.
Есть и другие способы, но в Вашем случае за глаза хватит любого из двух перечисленных

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	01.02.2012, 11:05
	В запросе Access - никак, да и зачем ? На клиенте - см. FormatDateTime 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	01.02.2012, 13:49
	Ответ дан в [2]. Он означает, что средствами Access SQL (читайте help а акцесе, а также справку по джету Jetsql40.chm) получить дату в том формате, что указан в сабже НЕЛЬЗЯ. Т.е. непосредственно в запросе решить задачу НЕЛЬЗЯ, поэтому надо преобразовать дату НА КЛИЕНТЕ, в данном случае средствами Delphi, в частности с помощью делфи-функции FormatDateTime. Либо "ручками", т.е. самостоятельно написать код, формирующий дату в нужном виде. Преобразование даты можно сделать либо в событии OnGetText поля с датой) либо с помощью калькулируемых полей, т.е. Вам нужно почитать вниматель справку Delphi по классу TDataSet. Есть и другие способы, но в Вашем случае за глаза хватит любого из двух перечисленных 0