Finde dato og tid uden sekunder

kig i DateUtils unit

Hmm fik jeg ikke meget ud af?

Nå lige meget.. Gør det bare på en anden måde.

Den er måske ikke optimal, men så er den så meget nemmere at forstå:
(er utestet)

var
  nu: TdateTime;
  nuUdenSec: TdateTime;
  y,m,d,h,n,dum: word;
begin
  nu:=now;
  DecodeDate(nu,y,m,d);
  DecodeTime(nu,h,n,dum,dum);
  nuUdenSec:=EncodeTime(h,n,0,0)+EncodeDate(y,m,d);
end;

--nop