Nie chodzi mi o pobieranie czasu systemowego zastosowałem Now() tylko jako przykład
Chce połączyć TDate i TTime w zmienną typu TDateTime jest z tym jednak problem
prawdopodobnie w samym delphi....
Wyjaśnie precyzyjniej:
Mam datę w postaci zmiennej TDate;
oraz czas w postaci wartości string = '00:00:00'
aby obie te zmienne połączyć w potrzebną mi zmienną typu TDateTime
napisałem funkcję:
uses DateUtils;
function KonwersjaCzasu(Data: TDate; Czas: TTime): TDateTime;
var
Year,Month,Day,Hour,Min,Sec,MSec: word;
begin
try
DecodeDate(Data,Year,Month,Day);
DecodeTime(Czas,Hour,Min,Sec,MSec);
Result:=EncodeDateTime(Year,Month,Day,Hour,Min,Sec,MSec);
except
Result:=0;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:=DateTimeToStr(KonwersjaCzasu(Now,StrToTime('00:00:00')));
end;
jednak kiedy wywołamy coś takiego reakcja Delphi jest bardzo dziwaczna....
oczywiście cały problem dotyczy tylko godziny 00:00:00
dlaczego o 00:00:00 dostajemy tylko datę bez godzin???????