Looking for a 24 hour clock language template for Xilinx

-- use for my nios apex dev board

Library ieee;
Use ieee.std_logic_1164.ALL;

entity ssd_incr_decr_rst is
	port(
		 dp1, dp2 : out std_logic;
		 clk, incr_sw5, decr_sw6, rst_sw7	: in std_logic;
		 ssd_lsb, ssd_msb	: out std_logic_vector(6 downto 0));
end ssd_incr_decr_rst;

architecture ssd_incr_decr_rst_arc of ssd_incr_decr_rst is
begin
	dp1 <= '1';
	dp2 <= '1';
	
	process(clk, incr_sw5, decr_sw6, rst_sw7)
		variable mydelay : integer range 0 to 50_000000;--50M 
		constant bt_debounce : integer := 5000000;--5M
		constant rst_debounce : integer := 50_000000;--50M
		variable A, B : integer range -1 to 10;
	begin
		if rising_edge(clk) then					--*
----------------------------------------------------------
			if rst_sw7 = '0' then						--**
				mydelay := mydelay + 1;
				if mydelay = rst_debounce then
					A := 0;
					B := 0;
					mydelay := 0;
				end if;
			elsif incr_sw5 = '0' then						--**
				mydelay := mydelay + 1;
				if mydelay = bt_debounce then
					mydelay := 0;
					if (A = 9 and B = 9) then
						A := 9;
						B := 9;
					else
						A := A + 1;
						if A = 10 then
							A := 0;
							B := B + 1;
						end if;
					end if;
				end if;
			elsif (A = 0 and B = 0) then	-- this elsif statement is to make sure tht when both A B are zero, decr button cannot be pressed.
				A := 0;
				B := 0;
				mydelay := 0; -- without this line, after reset, the incr button would hav to press unpredictable long in order to increase count.
			elsif decr_sw6 = '0' then					--**					
				mydelay := mydelay + 1;
				if mydelay = bt_debounce then
					mydelay := 0;
					A := A - 1;
					if A = (-1) then
						A := 9;
						B := B - 1;
					end if; 
				end if;
			else										--**
				mydelay := 0;			
			end if;										--**			
-------------------------------------------------------
		end if;										--*	

		CASE A IS
				WHEN 0 => ssd_lsb <= "1000000";
				WHEN 1 => ssd_lsb <= "1111001";
				WHEN 2 => ssd_lsb <= "0100100";
				WHEN 3 => ssd_lsb <= "0110000";
				WHEN 4 => ssd_lsb <= "0011001";
				WHEN 5 => ssd_lsb <= "0010010";
				WHEN 6 => ssd_lsb <= "0000010";
				WHEN 7 => ssd_lsb <= "1111000";
				WHEN 8 => ssd_lsb <= "0000000";
				WHEN 9 => ssd_lsb <= "0011000";
				when others => ssd_lsb <= "0000000";
		END CASE;
		
		CASE B IS
				WHEN 0 => ssd_msb <= "1000000";
				WHEN 1 => ssd_msb <= "1111001";
				WHEN 2 => ssd_msb <= "0100100";
				WHEN 3 => ssd_msb <= "0110000";
				WHEN 4 => ssd_msb <= "0011001";
				WHEN 5 => ssd_msb <= "0010010";
				WHEN 6 => ssd_msb <= "0000010";
				WHEN 7 => ssd_msb <= "1111000";
				WHEN 8 => ssd_msb <= "0000000";
				WHEN 9 => ssd_msb <= "0011000";
				when others => ssd_msb <= "0000000";
		END CASE;

	end process;
end ssd_incr_decr_rst_arc;