Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Редактирование даты в БД [D7, XP]

azamatufa © (2008-04-07 15:37:00)
Привет, дорогие!

Есть таблица в Access, поле DATA типа дата/время.
при вводе в самом Аксессе, можно указать и дату и время.

В Дельфи кидаю TDateTimePicker1, а он мне только дату кажет...
RX - тоже только дату.. как быть? Надо уметь редактировать и дату и время!

СПАСИБО!!!!

Anatoly Podgoretsky (2008-04-08 13:59:00) [1]
> azamatufa (08.04.2008 06:23:15) [15]

Нафига (Picker2.DateTime - Trunc(Picker2.DateTime), почему не Fraq(Picker2.DateTime) ну или быть последовательным, не использовать Trunc

Ega23 (2008-04-08 10:15:00) [2]

> Johnmen © (07.04.08 19:19) [14]

И чё? Первую дату-время - транкейтом, остаётся чистая дата.
Вторую - можно Fract взять, можно DateTime-Trunc(Datetime) - чистое время.
Складываем первую со второй - получаем дату и время.

azamatufa (2008-04-08 06:23:00) [3]
Ну у меня вот как это заработало:

покажем дату и время
----------------------------
Picker1.DateTime := DataSet1.FieldByName('Data').Value;
Picker2.DateTime := DataSet1.FieldByName('Data').Value;

запишем
----------------------
DataSet1.FieldByName('Data').Value := Trunc(Picker1.DateTime) + (Picker2.DateTime - Trunc(Picker2.DateTime));

DataSet1.Post;

ШПАШЫБА!!

Johnmen (2008-04-07 19:19:00) [4]

> Ну ноль остаётся. А что?

А это:

> хорошо, я на форме помещу 2 этих компонента: в первом дата,
> во втором время? а потом как все этов базу записать?

Ega23 (2008-04-07 18:09:00) [5]

> Да дело не в "по-другому", а в том, что останется от времени
> после транкейта?

Ну ноль остаётся. А что?

Johnmen (2008-04-07 17:48:00) [6]

> Ega23 © (07.04.08 17:23) [6]
> > А как по другому????

Да дело не в "по-другому", а в том, что останется от времени после транкейта?
:))

Ega23 (2008-04-07 17:42:00) [7]
Хотя внутре - то же самое (а с датами меньше 0 я не работаю).

Ega23 (2008-04-07 17:40:00) [8]
От блин...
А я велосипеды изобретаю...
Век живи - век учись. Спасибо за наводку.

clickmaker (2008-04-07 17:39:00) [9]
угу

Ega23 (2008-04-07 17:37:00) [10]

> ReplaceTime

Гм.. Не знал про такую. А она в Delphi 5 была?

clickmaker (2008-04-07 17:34:00) [11]
ReplaceTime

Ega23 (2008-04-07 17:23:00) [12]

> Хм... Интересно девки пляшут (с)
> :)))
>

А как по другому????

Johnmen (2008-04-07 16:52:00) [13]
в первом дата, во втором время?

> Ega23 © (07.04.08 16:30) [3]
> Сложить Trunc(Datetime) от первого с Datetime-Trunc(Datetime) от
> второго.

Хм... Интересно девки пляшут (с)
:)))

azamatufa (2008-04-07 16:38:00) [14]
ВЫ ПРОСТО СУПЕР!!!!!!!!!!
СПАСИБО!!!

Ega23 (2008-04-07 16:30:00) [15]

> а потом как все это в базу записать?

Через параметры. Сложить Trunc(Datetime) от первого с Datetime-Trunc(Datetime) от второго.

azamatufa (2008-04-07 16:25:00) [16]

> Установи Kind = dtkTime - будет время казать

во, спасибо, добрый человек.
хорошо, я на форме помещу 2 этих компонента: в первом дата, во втором время?

а потом как все это в базу записать?
простите... за ламье... ((

Сергей М. (2008-04-07 15:42:00) [17]

> он мне только дату кажет

Установи Kind = dtkTime - будет время казать

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »