评论中心 - [jerry] 最新评论

Jerry 于 2004-09-11 23:41(20 年以前) 发表:
小辉，我是刚学程序的大二生，我对这些一点都不懂，就是不知道如何下手去学。请回我

Jerry 于 2004-09-11 23:50(20 年以前) 发表:
这太好了，让我了解到，作为一个程序员该干什么。谢谢了。还请多帮助！

Jerry 于 2004-09-11 23:54(20 年以前) 发表:
这些书行不行啊，这么薄，内容又这么多，到底详细不详细还是个问题啊！还有没有好点的书啊！

jerry 于 2005-05-11 11:52(19 年以前) 发表:
每年10月的第二个星期日

好象是１１月份吧！

Jerry 于 2006-08-30 17:33(18 年以前) 发表:
中国人的特色? 中国人??

Jerry 于 2010-10-24 22:40(14 年以前) 发表:
不才，写了一下delphi的代码:

Quote:

  
procedure TForm1.btn1Click(Sender: TObject); 
var 
 beginYear,EndYear:Integer; 
 j,k:Integer; 
begin 
 DateSeparator := '/'; 
 beginYear := 2000; 
 EndYear   := 2100; 
 
 for j := beginYear to EndYear do 
     begin 
       for k := 1 to 12 do 
         begin 
           if (k = 1) or (k = 3) or (k = 5) or (k = 7 )  or (k = 8) or (k = 10) or (k = 12) then 
              begin 
                if DayOfWeek(StrToDate(IntToStr(j)+'/'+IntToStr(k)+'/01')) = 6   then 
                   mmo1.Lines.Add(IntToStr(j) + '--' + IntToStr(k)); 
              end; 
         end; 
     end;    
end;