1 / 1 / 1
Регистрация: 07.12.2009
Сообщений: 99

Ввод даты в поле Date

05.04.2011, 13:32. Показов 4458. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, пожалуйста подскажите как можно чтобы в делфи по нажатию на клавишу писало в поле Date (типа Date) не вводимые самим пользователем дату в Edit1

Delphi
1
Form1.Table8.FieldByName('Date').AsString:= Edit1.Text;
А вводило дату самостоятельно?

Если это возможно?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
05.04.2011, 13:32
Ответы с готовыми решениями:

Ввод даты с консоли в БД PostgreSQL (JDBS). Конфликт java.util.Date и java.sql.Date
Народ. Добрый вечер. Создаю базу библиотеки (учебная), есть такая таблица private static void initBooksDB() throws SQLException { ...

Внесение Даты В Поле Date/time
Как внести в поле Date/Time внести текущюю дату Today? Call UIdoc.FieldSetText("ДАТА_РЕЗОЛЮЦИИ_",Cstr(Today)) Заменяет тип поля с...

Сохраниние даты рождения при регистрации пользователя в поле с типом Date
Здравствуйте. Проблем вот в чем: дата рождения ни как не хочет сохранятся в поле с типом DATE Вот запрос который я делаю в базу данных:...

4
72 / 64 / 3
Регистрация: 13.05.2010
Сообщений: 349
05.04.2011, 13:52
Код Delphi
12345678 var today : TDateTime;begintoday := Time;Form1.Table8.FieldByName('Date').As String:+DateToStr(today);end;
1
1 / 1 / 1
Регистрация: 07.12.2009
Сообщений: 99
05.04.2011, 14:23  [ТС]
Delphi
1
2
3
4
5
6
7
var today : TDateTime;
begin
  today := Time;
  Form1.Table8.Append;
  Form1.Table8.FieldByName('Date').AsString:= DateToStr(today);
  Form1.Table8.Post;
end;
Что-то у меня пишет 30.12.1899. ? (((

Добавлено через 3 минуты
Нашёл в чём ошибка:
Delphi
1
today := Now;
0
1263 / 706 / 62
Регистрация: 21.12.2009
Сообщений: 2,256
05.04.2011, 14:44
Krot_F, Если не секрет, то такие преобразования для чего!!!

Цитата Сообщение от Krot_F Посмотреть сообщение
Form1.Table8.FieldByName('Date').AsStrin g:= DateToStr(today);
Почему бы не так
Delphi
1
Form1.Table8.FieldByName('Date').AsDateTime:= today;
0
72 / 64 / 3
Регистрация: 13.05.2010
Сообщений: 349
05.04.2011, 17:16
Цитата Сообщение от Krot_F Посмотреть сообщение
Что-то у меня пишет 30.12.1899. ? (((
я, наверное, хотела написать TimeToStr
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
05.04.2011, 17:16
Помогаю со студенческими работами здесь

Как переставить цифры даты так чтобы её можно внести в поле DATE mysql?
Я отправляю через input дату dd.mm.yyyy, как переставить местами цифры и отправить дату в бд вот такого формата yyyy-mm-dd? Я создала поле...

Выравнивание в текст. поле и ввод даты
Всем привет, хочу опять задать глупый вопрос, прошу заранее прощения. Работаю в VStudio.NET, asp-й проект, в WebForm нужно...

Автоматический ввод даты и времени в поле Дата
Добрый день! Помоги разобраться с вопросом ввода даты и времени в поле. Пробовал самый простой способ: Процедура ПриОткрытии(Отказ) ...

Поле типа "date" в БД и VB - ошибка "нулевой" даты
Привет! Условие: В БД есть поля типа 'date', с записями типа 00-02-2005, 00-00-2005 и т. п. Тоесть пропущен день или день и месяц. ...

Как узнать количество дней между значением текущей даты и даты в поле dateTimePicker?
есть некое значение поля dateTimePicker 1. как работать например с месяцем, в этом значении (сравнивать его с другими)? 2. как узнать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru