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

评论