Неправильное отображение времени

@Krit-Ydachnik · Регистрация: 06.12.2010

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

Есть маленькая база данных (данные сохраняются на Access). Есть колонка куда вношу время (допустим 14:37). Изменения производятся в отдельной форме. Пишу 14:37, жму сохранить. На главной форме время отображается по другому: 30.12.1899 14:37. Уже готов с этим смириться, но как Вы видите дата отображается неправильно, и как бы я не экспериментировал с EditMask и с настройками даты и время через панель управления упорно пишет 30 декабря 1899 года.
Тут мне подсказали, что в базе то хранится все равно дата-время
а так показывает потому, что при записи в поле я отрезаю дату, а пустая она как раз ресетится в 30.12.1899 и раз я вношу только время, то нужно обрезать дату, либо, если нужно запоминать с текущей датой, то добавлять её при записи.
Я понимаю. что это возможно очень просто, но всё таки подскажите как обрезать, чтобы отражалось только время.
Спасибо.

Добавлено через 25 минут
_____________________________
Поле время текстовым типом делать не очень хочется.
Может быть существуют другие варианты??

@new_in_net · 11.04.2011, 18:09

Вместо того чтоб пытаться разобраться в длинах и вариантах, наверное все же лучше использовать функции форматирования:

Delphi
1
Edit1.Text := FormatDateTime('HH:NN', BAZA.FieldByName('Время').AsDateTime);

@orif · 11.04.2011, 19:00

Добрый вечер.
Залез с аккаунта другого человека.

new_in_net, ваш способ - работает.
А можно чтобы в мой Базе как и отображалось ранее отображалось 65 000 р
т.е. с пробелами и т.д. и с буквой р.

А Когда нажимаю редактировать чтобы были только цифры.
т.е. если можете то пришлите ещё 1 строчку похожего кода)))
Впринципе понятно что надо изменить но незнаю что написать заместо FormatDateTime и AsDateTime ведь это не формат даты и времени а тупо цифры т.е. цена.

Заранее спасибо)

@new_in_net · 11.04.2011, 19:14

Сообщение от orif

Добрый вечер.
Залез с аккаунта другого человека.

new_in_net, ваш способ - работает.
А можно чтобы в мой Базе как и отображалось ранее отображалось 65 000 р
т.е. с пробелами и т.д. и с буквой р.

А Когда нажимаю редактировать чтобы были только цифры.
т.е. если можете то пришлите ещё 1 строчку похожего кода)))
Впринципе понятно что надо изменить но незнаю что написать заместо FormatDateTime и AsDateTime ведь это не формат даты и времени а тупо цифры т.е. цена.

Заранее спасибо)

Я вам писал вначале этой темы - у любого поля есть DisplayFormat для отображения, также есть другое своиство - EditFormat для редактирования.

Delphi
1
2
MyField.DisplayFormat := ',0.00 р';
MyField.EditFormat := '0.00'

@Krit-Ydachnik · 11.04.2011, 23:49 **[ТС]**

Действительно, прописал так и всё нормально.

Code
1
  TCurrencyField(BAZA.FieldByName('Цена')).EditFormat := '0.' ;

а вот ещё такой вопрос.... Я бы хоет сделать в меню пункт: Случайности.
Нажимая на него выскакивает меню с выбором. напрмиер Опоздание.
Нажимаешь на него и там написано: Введите на сколкьо времени опоздает поезд. Вот жжо этого момента всё понятно.. А как сделать чтобы оно приплюсовывалось с данными моей таблицы??

т.е. было к прмиеру 16:02 я ввёл 46 и оно стало 16:48... ТАкое вообще возможно?? Или я слишком много хочу?)))

и вот с Qreport никак невыходит((((

@new_in_net · 12.04.2011, 00:02

Сообщение от Krit-Ydachnik

Действительно, прописал так и всё нормально.

Code
1
  TCurrencyField(BAZA.FieldByName('Цена')).EditFormat := '0.' ;

а вот ещё такой вопрос.... Я бы хоет сделать в меню пункт: Случайности.
Нажимая на него выскакивает меню с выбором. напрмиер Опоздание.
Нажимаешь на него и там написано: Введите на сколкьо времени опоздает поезд. Вот жжо этого момента всё понятно.. А как сделать чтобы оно приплюсовывалось с данными моей таблицы??

т.е. было к прмиеру 16:02 я ввёл 46 и оно стало 16:48... ТАкое вообще возможно?? Или я слишком много хочу?)))

и вот с Qreport никак невыходит((((

Используйте функции IncDay(); IncHour(); IncMinute(); IncSecond();
например вместо

Delphi
1
Edit1.Text := FormatDateTime('HH:NN', BAZA.FieldByName('Время').AsDateTime);

делайте

Delphi
1
Edit1.Text := FormatDateTime('HH:NN', IncMinute(BAZA.FieldByName('Время').AsDateTime, 46));

@Krit-Ydachnik · 12.04.2011, 00:14 **[ТС]**

ммм.. мне надо что бы то что я ввёл в идете появлялось в базе после нажатия ОК...
Ваш код доабвит конкретно 46 минут а надо то что будет в едите...

@new_in_net · 12.04.2011, 00:47

Сообщение от Krit-Ydachnik

ммм.. мне надо что бы то что я ввёл в идете появлялось в базе после нажатия ОК...
Ваш код доабвит конкретно 46 минут а надо то что будет в едите...

может я чего-то не понимаю, но изменить в таблице аналогично:

Delphi
1
BAZA.FieldByName('Время').AsDateTime := IncMinute(BAZA.FieldByName('Время').AsDateTime, 46);

либо в таблицу из Edit добавляя 46 минут

Delphi
1
BAZA.FieldByName('Время').AsDateTime := IncMinute(StrToTime(Edit1.Text), 46);

@Krit-Ydachnik · 12.04.2011, 00:54 **[ТС]**

может я чего-то не понимаю

Млин наверно я плохо объяснил как всегда((

46 минут это я привёл к прмиеру.

Вот представьте нажимаю опоздание из меню. выскакивает форма.
В форме есть едит.
НАпрмиер form15 и edit1 так вот в edit я ввожу значение ЛЮБОЙ. НЕ обязателньо 46. это может быть и 20 и 26 и 15 и 46 и 10 и 6 и 35 и т.д... ТО, которое я ВВЕДУ!!

НУ вроде так понятно объяснил)))

@new_in_net · 12.04.2011, 01:08

Сообщение от Krit-Ydachnik

Млин наверно я плохо объяснил как всегда((

46 минут это я привёл к прмиеру.

Вот представьте нажимаю опоздание из меню. выскакивает форма.
В форме есть едит.
НАпрмиер form15 и edit1 так вот в edit я ввожу значение ЛЮБОЙ. НЕ обязателньо 46. это может быть и 20 и 26 и 15 и 46 и 10 и 6 и 35 и т.д... ТО, которое я ВВЕДУ!!

НУ вроде так понятно объяснил)))

может я не понял что именно вам нужно.
Я показал вам часть с добавлением того что вы ввели. В моих примерах это число - 46 минут.
Вам что форма нужна с Эдитом и возможностью ввода? Или как этот Эдит в дальнейшем использовать при инкременте минут?

@Krit-Ydachnik · 12.04.2011, 01:13 **[ТС]**

Вот так

@new_in_net · 12.04.2011, 01:15

Сообщение от Krit-Ydachnik

Вот так

Тогда при нажатии на Ок чуть-чуть видоизмененный вариант:

Delphi
1
BAZA.FieldByName('Время').AsDateTime := IncMinute(BAZA.FieldByName('Время').AsDateTime, StrToInt(Edit1.Text));

@Krit-Ydachnik · 12.04.2011, 01:18 **[ТС]**

[Error] Unit1.pas(142): Undeclared identifier: 'IncMinute'

@new_in_net · 12.04.2011, 01:19

подправил

Добавлено через 40 секунд
добавьте в uses unit DateUtils

@Krit-Ydachnik · 12.04.2011, 01:19 **[ТС]**

Code
1
BAZA.FieldByName('Время').AsDateTime := IncMinute(BAZA.FieldByName('Время').AsDateTime, StrToInt(form13.Edit3.Text));

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

16:35 is not a valid integer value

@new_in_net · 12.04.2011, 01:22

Сообщение от Krit-Ydachnik

Если в имлементатион описывать то
[Error] Unit1.pas(83): Identifier expected but 'UNIT' found

Функция в IncMinute находится в юните DateUtils...

Добавлено через 46 секунд
слово UNIT убери

@Krit-Ydachnik · 12.04.2011, 01:28 **[ТС]**

Да я уже давно убрал)) хах)) догадался)))
Теперь проблема опсиана выше)) ↑

@new_in_net · 12.04.2011, 01:29

Сообщение от Krit-Ydachnik

16:35 is not a valid integer value

Вы что в Эдите вводите 16:35? Там только минуты. Целочисленные.

@Krit-Ydachnik · 12.04.2011, 01:31 **[ТС]**

блин..я сам себя перемудрил))) Счас сделю как надо через пару мин отпишсь))

@Krit-Ydachnik · 12.04.2011, 01:37 **[ТС]**

Вот настоящая причина)) ранее я тупил)))

@new_in_net · 12.04.2011, 17:43

Перед любым редактированием желательно делать явный Edit, а после либо Post (сохранить) либо Cancel (отменить)

Code
1
2
3
4
5
// начать редактирование
BAZA.Edit;
BAZA.FieldByName('Время').AsDateTime := IncMinute(BAZA.FieldByName('Время').AsDateTime, StrToInt(form13.Edit3.Text));
// завершить редактирование и сохранить
BAZA.Post;

Новые блоги и статьи Все статьи Все блоги /
Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205

	Неправильное отображение времени 28.03.2011, 02:59. Показов 13177. Ответов 84 Метки нет (Все метки) Есть маленькая база данных (данные сохраняются на Access). Есть колонка куда вношу время (допустим 14:37). Изменения производятся в отдельной форме. Пишу 14:37, жму сохранить. На главной форме время отображается по другому: 30.12.1899 14:37. Уже готов с этим смириться, но как Вы видите дата отображается неправильно, и как бы я не экспериментировал с EditMask и с настройками даты и время через панель управления упорно пишет 30 декабря 1899 года. Тут мне подсказали, что в базе то хранится все равно дата-время а так показывает потому, что при записи в поле я отрезаю дату, а пустая она как раз ресетится в 30.12.1899 и раз я вношу только время, то нужно обрезать дату, либо, если нужно запоминать с текущей датой, то добавлять её при записи. Я понимаю. что это возможно очень просто, но всё таки подскажите как обрезать, чтобы отражалось только время. Спасибо. Добавлено через 25 минут _____________________________ Поле время текстовым типом делать не очень хочется. Может быть существуют другие варианты?? 1

@orif 22 / 22 / 9 Регистрация: 08.03.2011 Сообщений: 155
	11.04.2011, 19:00
	Добрый вечер. Залез с аккаунта другого человека. new_in_net, ваш способ - работает. А можно чтобы в мой Базе как и отображалось ранее отображалось 65 000 р т.е. с пробелами и т.д. и с буквой р. А Когда нажимаю редактировать чтобы были только цифры. т.е. если можете то пришлите ещё 1 строчку похожего кода))) Впринципе понятно что надо изменить но незнаю что написать заместо FormatDateTime и AsDateTime ведь это не формат даты и времени а тупо цифры т.е. цена. Заранее спасибо) 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	12.04.2011, 00:14 [ТС]
	ммм.. мне надо что бы то что я ввёл в идете появлялось в базе после нажатия ОК... Ваш код доабвит конкретно 46 минут а надо то что будет в едите... 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	12.04.2011, 01:13 [ТС]
	Вот так Миниатюры 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	12.04.2011, 01:18 [ТС]
	[Error] Unit1.pas(142): Undeclared identifier: 'IncMinute' 0

@new_in_net 283 / 262 / 32 Регистрация: 11.11.2009 Сообщений: 605
	12.04.2011, 01:19
	подправил Добавлено через 40 секунд добавьте в uses unit DateUtils 1

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	12.04.2011, 01:28 [ТС]
	Да я уже давно убрал)) хах)) догадался))) Теперь проблема опсиана выше)) ↑ 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	12.04.2011, 01:31 [ТС]
	блин..я сам себя перемудрил))) Счас сделю как надо через пару мин отпишсь)) 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	12.04.2011, 01:37 [ТС]
	Вот настоящая причина)) ранее я тупил))) Миниатюры 0