function solartimecal
h1=findobj(0,'tag','now');
m=findobj(h1,'tag','EditText1');
local=get(m,'string');
local=str2num(local)
h2=findobj(0,'tag','solartime');
t=findobj(h2,'tag','daynumber');
nk=get(t,'string');
n=str2num(nk)
t=findobj(h2,'tag','lstandard');
lstk=get(t,'string');
lst=str2num(lstk)
tl=findobj(h2,'tag','standardtime');
standardtime=get(tl,'string');
standardtime=str2num(standardtime)
b=((n-81)*360/364);
b=b*pi/180;
%E=229.2*(0.000075+0.001868*cos(b)-0.032077*sin(b)-0.014615*cos(2*b)-0.04089*sin(2*b));
E=(9.87*sin(2*b)-7.53*cos(b)-1.5*sin(b))/60;
SOLARTIME=standardtime+E+(lst-local)/15
msgbox(num2str(SOLARTIME),'SOLARTIME')
