万年历.rar

procedureTFRM_Date.DateChange(MyTime:TDateTime);vari,S:integer;StarNo:integer;Present:TDateTime;Year,Month,Day:Word;beginLabel20.Caption:=IntToStr(DateUtils.YearOf(Mytime));Label17.Caption:=IntToStr(DateUtils.MonthOf(Mytime));Label16.Caption:=Label17.Caption;Label1.Caption:=IntToStr(DateUti