matlab万年历制作

万年历制作，有农历显示，附加记事功能，能够调用Word控件，亲自测试有用

function varargout = zibian（varargin）
% ZIBIAN MATLAB code for zibian.fig
%      ZIBIAN by itself creates a new ZIBIAN or raises the existing
%      singleton*.
%
%      H = ZIBIAN returns the handle to a new ZIBIAN or the handle to
%      the existing singleton*.
%
%      ZIBIAN（‘CALLBACK‘hobjecteventDatahandles...） calls the local
%      function named CALLBACK in ZIBIAN.M with the given input arguments.
%
%      ZIBIAN（‘Property‘‘Value‘...） creates a new ZIBIAN or raises the
%      existing singleton*.  Starting from the left property value pairs are
%      applied to the GUI before zibian_OpeningFcn gets called.  An
%      unrecognized property name or invalid value makes property application
%      stop.  All inputs are passed to zibian_OpeningFcn via varargin.
%
%      *See GUI Options on GUIDE‘s Tools menu.  Choose “GUI allows only one
%      instance to run （singleton）“.

% See also: GUIDE GUIDATA GUIHANDLES

% Edit the above text to modify the response to help zibian

% Last Modified by GUIDE v2.5 19-Oct-2014 15:48:19

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct（‘gui_Name‘       mfilename ...
                   ‘gui_Singleton‘  gui_Singleton ...
                   ‘gui_OpeningFcn‘ @zibian_OpeningFcn ...
                   ‘gui_OutputFcn‘  @zibian_OutputFcn ...
                   ‘gui_LayoutFcn‘  []  ...
                   ‘gui_Callback‘   []）;
if nargin && ischar（varargin{1}）
    gui_State.gui_Callback = str2func（varargin{1}）;
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn（gui_State varargin{:}）;
else
    gui_mainfcn（gui_State varargin{:}）;
end
% End initialization code - DO NOT EDIT

% --- Executes just before zibian is made visible.
function zibian_OpeningFcn（hobject eventdata handles varargin）
% This function has no output args see OutputFcn.
% hobject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data （see GUIDATA）
% varargin   command line arguments to zibian （see VARARGIN）
%{
if exist（‘D:\riji‘‘file‘）~=7
mkdir（‘D:\riji‘）;
end
%}


tian= get（handles.listbox1‘value‘）;
nian=get（handles.popupmenu1‘Value‘）;
yue=get（handles.popupmenu1‘Value‘）;
if nian~=1
  sy=nian;
  sm=yue;
  sd0=tian;
else
tdy=today（）;
	sy=year（tdy）;
	sm=month（tdy）;
	sd0=day（tdy）;
end

global LunarInfoglobal TianGaninfoglobal DiZhiInfoglobal  text
global ShengXiaoInfoglobal YueFenInfoglobal RiQiInfoglobal XingQiInfo

%下面是一些参数请勿改动（该数据源自互联网，仅供参考，勿用于商业用途）
LunarInfo=[
19416191684235221717538565563291476221763963221970...
191684242242192538401193814640054944444503832084343...
188004216046261272162796810939611104382562123418800...
2595854432599842830923248111041000673760011695151536...
544321209984641622176107956968037584539384334446423...
27808464168686919872424488331521200434325972827296...
4471043856192964374842352210886205155632233832

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      29127  2014-10-19 18:35  xiugai\zibian.asv

     文件       9440  2014-10-19 18:53  xiugai\zibian.fig

     文件      29070  2014-10-19 18:46  xiugai\zibian.m

     目录          0  2014-10-19 20:36  xiugai

----------- ---------  ---------- -----  ----

                67637                    4