calendartable.m

实现（2

function CalendarTable; 
% calendar 日历 
% Example: 
% CalendarTable; 

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