declinationcal

function declinationcal
%we nedd phe and n
h1=findobj(0,'tag','now');
m=findobj(h1,'tag','EditText2');
phe=get(m,'string');
phe=str2num(phe)
h2=findobj(0,'tag','declinationf');
t=findobj(h2,'tag','EditText1dec');
nk=get(t,'string')
n=str2num(nk)
dece=23.45*sin((360*(n+284)*pi)/(180*365))
msgbox(num2str(dece),'declination angle')