Delphi - DateTimePicker - zadávanie dátumu a času naraz

Nevím, jestli jsem celý dlouhatý dotaz dobře pochopil . Co kdybys tím TDateTimePicker zadával jen datum a hodinu normálním textovým polem (nebo TSpinEdit). Sloučení provedeš takto (jen příklad):

DatumACas := DateTimePicker1.Date + EncodeTime (StrToInt (Edit1.Text), 0, 0, 0);

Prepáč, ale tvoje riešenie sa mi veľmi nepáčilo, keďže na čas je komponenta DateTimePicker a mala by sa vlastne použiť tá. No, tak som skúsil nájsť riešenie sám a skončilo to takto:

TForm.OnCreate

  dtpDateFrom.DateTime := Today;
  dtpTimeFrom.DateTime := dtpDateFrom.DateTime;
  dtpDateTo.DateTime := dtpDateFrom.DateTime;
  dtpTimeTo.DateTime := dtpTimeFrom.DateTime;

TForm.DateTimePickerChange - nastaviť na všetky 4 túto metódu

begin
  dtpDateFrom.DateTime := Int(dtpDateFrom.DateTime)
   + dtpTimeFrom.DateTime - Int(dtpTimeFrom.DateTime);
  dtpDateTo.DateTime := Int(dtpDateTo.DateTime)
   + dtpTimeTo.DateTime - Int(dtpTimeTo.DateTime);
  if dtpDateFrom.DateTime > dtpDateTo.DateTime then
    begin
      if ((Sender as TDateTimePicker) = dtpDateFrom)
       or ((Sender as TDateTimePicker) = dtpTimeFrom) then
        begin
          dtpDateTo.DateTime := dtpDateFrom.DateTime;
          dtpTimeTo.DateTime := dtpDateFrom.DateTime;
        end;
      if ((Sender as TDateTimePicker) = dtpDateTo)
       or ((Sender as TDateTimePicker) = dtpTimeTo) then
        begin
          dtpDateFrom.DateTime := dtpDateTo.DateTime;
          dtpTimeFrom.DateTime := dtpTimeTo.DateTime;
        end;
    end;
end;

No a časy sú v tým komponentách, ktoré majú v názve Date. Tie s názvom Time nemajú presný čas v prípade, že nedojde k stretnutiu časov, pretože časy sa preratúvajú len do do prvých dvoch komponent (prvé dva príkazy za begin).

Edit: Neexistuje protiklad k funkcii Int? Ide o to, že potrebujem odrezať desatinnú časť, pracovať s ňou a celú časť zahodiť. Na počítačoch Sharp MZ-800 na to bol v BASICu príkaz FRAC(). Potrebujem to na prvé dva príkazy za begin na odrezanie času z DateTime.

Já ten původní dotaz asi blbě pochopil .

Funkce Frac () pochopitelně v Delphi existuje. Nešlo by zde raději použít funkce EncodeDate, EncodeTime, DecodeDate, DecodeTime, EncodeDateTime, DecodeDateTime, které datum a čas poskládají nebo rozeberou?

Mne je jedno, ako sa bude pracovať s časom. Potrebujem len dosiahnuť to, čo som dosiahol a k tomu do potrebujem v Delphi zadať do SQL príkazu, len netuším, v akom univerzálnom foráte sa zadáva dátum a čas. Viem, že národné zvyklosti tu neplatia (desatinné číslo musí byť s bodkou, inak ho TQuery nezožerie.

To teda znamená, že by som pracoval s vlastnosťou Date a Time? No nevadí, aj takto to stačí.

Datum a čas se do podmínek v SQL zadává dost blbě. Nejlépe je to přes parametr, to si veškeré převody udělá Delphi samo a správně. Například Chceš udělat něco takového:

select * from Tab1 where KdyToBylo > nějaké-datum-a-čas

Zadáš do Query1 takovouto kostru:

select * from Tab1 where KdyToBylo > :Kdy

Před otevřením Query1 nastavíš paremetr:

Query1.ParamByName ('Kdy').AsDateTime := Delfácký-datum-a-čas-z-proměnné-typu-TDateTime;
Query1.Prepare; Query1.Open;

//Edit: Podobným způsobem jdou udělat i reálná čísla a nemusíš se starat o desetinnou tečku/čárku.

Super, ďakujem. Dúfam, že to funguje aj na update a insert into. Ale myslím, že áno, vyzerá to univerzálne.