www.pudn.com > work_2.rar > CalendarTable.m

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