data -> integer

procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
ShowMessage(DateToStr(Now));
i:=(Round(StrToDate(DateToStr(Now))));
ShowMessage(IntToStr(i));
end;