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

@Коляк@ · Регистрация: 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.
Есть и другие способы, но в Вашем случае за глаза хватит любого из двух перечисленных

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@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