matlab中编写日历,matlab 日历

S=datestr(now);

[y,m,d]=datevec(S);

% d is day

% m is month

% y is year

DD={'Sun','Mon','Tue','Wed','Thu','Fri','Sat'};

close all

figure;

for k=1:7;

uicontrol(gcf,'style','text',...

'unit','normalized','position',[0.02+k*0.1,0.55,0.08,0.06],...

'BackgroundColor',0.6*[1,1,1],'ForegroundColor','b',...

'String',DD(k),'fontsize',16,'fontname','times new roman');

end

h=1;

ss='b';

qq=eomday(y,m);

for k=1:qq;

n=datenum(y,m,k);

[da,w] = weekday(n);

if k==d;

ss='r';

end

uicontrol(gcf,'style','push',...

'unit','normalized','position',[0.02+da*0.1,0.55-h*0.08,0.08,0.06],...

'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...

'String',num2str(k));

ss='b';

if da==7;

h=h+1;

end

end

uicontrol(gcf,'style','push',...

'unit','normalized','position',[0.6,0.66,0.12,0.08],...

'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...

'String','clock','fontsize',18,'fontname','times new roman');

Tq=uicontrol(gcf,'style','push',...

'unit','normalized','position',[0.74,0.66,0.17,0.08],...

'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...

'fontsize',18,'fontname','times new roman');

sq='The calendar';

uicontrol(gcf,'style','push',...

'unit','normalized','position',[0.14,0.86,0.37,0.08],...

'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...

'fontsize',18,'fontname','times new roman','string',sq);

try

while 1

set(Tq,'String',datestr(now,13));

pause(1);

end

end