情伤

阴历算法（pascal版）

myfavorcn — 2005-06-05 19:50:00

unit CNYear; interface uses sysutils; type TCNDate = Cardinal; function DecodeGregToCNDate(dtGreg:TDateTime):TCNDate; function GetGregDateFromCN(cnYear,cnMonth,cnDay:word;bLeap:Boolean=False): TDateTime; function GregDateToCNStr(dtGreg:TDateTime):String; function isCNLeap(cnDate:TCNDate):boolean; implementation const cstDateOrg:Integer=32900; //公历1990-01-27的TDateTime表示对应农历1990-01-01 const cstCNYearOrg=1990; const cstCNTable:array[cstCNYearOrg..cstCNYearOrg + 60] of WORD=( // unsigned 16-bit 24402, 3730, 3366, 13614, 2647, 35542, 858, 1749, //1997 23401, 1865, 1683, 19099, 1323, 2651, 10926, 1386, //2005 32213, 2980, 2889,

学习c++的50条忠告(初学者必看)

myfavorcn — 2005-06-05 19:49:00

1.把C++当成一门新的语言学习（和C没啥关系！真的。）； 2.看《Thinking In C++》，不要看《C++变成死相》； 3.看《The C++ Programming Language》和《Inside The C++ Object Model》,不要因为他们很难而我们自己是初学者所以就不看； 4.不要被VC、BCB、BC、MC、TC等词汇所迷惑——他们都是集成开发环境，而我们要学的是一门语言； 5.不要放过任何一个看上去很简单的小编程问题——他们往往并不那么简单，或者可以引伸出很多知识点； 6.会用Visual C++，并不说明你会C++； 7.学class并不难，template、STL、generic programming也不过如此——难的是长期坚持实践和不遗余力的博览群书； 8.如果不是天才的话，想学编程就不要想玩游戏——你以为你做到了，其实你的C++水平并没有和你通关的能力一起变高——其实可以时刻记住：学C++是为了编游戏的； 9.看Visual C++的书，是学不了C++语言的； 10.浮躁的人容易说：XX语言不行了，应该学YY；——是你自己不行了吧！？ 11.浮躁的人容易问：我到底该学什么；——别问，学就对了； 12.浮躁的人容易问：XX有钱途吗；——建议你去抢银行； 13.浮躁的人容易说：我要中文版！我英文不行！——不行？学呀！ 14.浮躁的人容易问：XX和YY哪个好；——告诉你吧，都好——只要你学就行； 15.浮躁的人分两种：a)只观望而不学的人；b)只学而不坚持的人； 16.把时髦的技术挂在嘴边，还不如把过时的技术记在心里； 17.C++不仅仅是支持面向对象的程序设计语言； 18.学习编程最好的方法之一就是阅读源代码； 19.在任何时刻都不要认为自己手中的书已经足够了； 20.请阅读《The Standard C++ Bible》(中文版：标准C++宝典)，掌握C++标准； 21.看得懂的书，请仔细看；看不懂的书，请硬着头皮看； 22.别指望看第一遍书就能记住和掌握什么——请看第二遍、第三遍； 23.请看《Effective C++》和《More Effective C++》以及《Exceptional C++》； 24.不要停留在集成开发环境

VB常见问题总结

myfavorcn — 2005-06-05 18:28:00

各位朋友大家好，如果你在这里的时间够长，那么你会发现很多帖子的问题是相同的，既然这样，不如总结到一起让初学者来翻看，再热心的大虾也不愿意把一个答案重复几十遍：）Ryowu制作匆忙，难免错漏，还请见谅。若朋友您想要问如何才能学好vb，或者入门需要看什么教材一类的问题，建议你抱着一颗刻苦钻研的心去面对这门学问，多动脑，少提问，遇到不知道的，多查msdn，多看老贴，或者用断点来亲自试验。实在不会了，请在此贴中查找您的常见问题，如果还没有，那请您发出新贴，向各位高手讨教：）查找方法：按ctrl+f，输入要查找的问题关键字即可注明：本贴源于VB编程乐园网站，本人只是稍微编辑了一下。每个问题中间用///分隔，这只是一部分最常见到的问题，以后会逐渐更新。 //////////////////////////////////////////////////////////////////////////////////// 如何用VB建立快捷方式 Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long Sub Command1_Click() Dim lReturn As Long '添加到桌面 lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "") '添加到程序组 lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe", "") '添加到启动组 lReturn = fCreateShellLink("\St

请不要做浮躁的人

myfavorcn — 2005-06-05 18:22:00

1.不要看到别人的回复第一句话就说：给个代码吧！你应该想想为什么。当你自己想出来再参考别人的提示，你就知道自己和别人思路的差异。 2.初学者请不要看太多太多的书那会误人子弟的，先找本系统的学，很多人用了很久都是只对部分功能熟悉而已，不系统还是不够的。 3.看帮助,不要因为很难而自己是初学者所以就不看；帮助永远是最好的参考手册，虽然帮助的文字有时候很难看懂，总觉得不够直观。 4.不要被对象、属性、方法等词汇所迷惑；最根本的是先了解最基础知识。 5.不要放过任何一个看上去很简单的小问题——他们往往并不那么简单，或者可以引伸出很多知识点；不会举一反三你就永远学不会。 6.知道一点东西，并不能说明你会写脚本，脚本是需要经验积累的。 7.学脚本并不难，JSP、ASP、PHP等等也不过如此——难的是长期坚持实践和不遗余力的博览群书； 8.看再多的书是学不全脚本的，要多实践。 9.把时髦的技术挂在嘴边，还不如把过时的技术记在心里； 10.学习脚本最好的方法之一就是多练习； 11.在任何时刻都不要认为自己手中的书已经足够了； 12.看得懂的书，请仔细看；看不懂的书，请硬着头皮看； 13.别指望看第一遍书就能记住和掌握什么——请看第二遍、第三遍； 14.请把书上的例子亲手到电脑上实践，即使配套光盘中有源文件； 15.把在书中看到的有意义的例子扩充；并将其切实的运用到自己的工作中； 16.不要漏掉书中任何一个练习——请全部做完并记录下思路； 17.当你用脚本到一半却发现自己用的方法很拙劣时，请不要马上停手；请尽快将余下的部分粗略的完成以保证这个代码的完整性，然后分析自己的错误并重新编写和工作。 18.别心急，写脚本确实不容易；水平是在不断的实践中完善和发展的； 19.每学到一个脚本难点的时候，尝试着对别人讲解这个知识点并让他理解----你能讲清楚才说明你真的理解了； 20.记录下在和别人交流时发现的自己忽视或不理解的知识点； 21.保存好你做过的所有的源文件----那是你最好的积累之一； 22.对于网络，还是希望大家能多利用一下，很多问题不是非要到论坛来问的，首先你要学会自己找答案，比如google、百度都是很好的搜索引擎，你只要输入关键字就能找到很多相关资料，别老是等待别人给你希望，看的出你平时一定也很懒！ 23，到一个论坛，你学会去看以前的帖子，不要什么都不看就发帖子问，也许你的

真正想当个好程序员的人都应该看看这篇文章(转)

myfavorcn — 2005-06-05 18:21:00

做为一名大四的学生,我面试过不少的单位，有成功的也有失败的，但是对我来说所有的失败在某种意义上都是一种成功，特别是我下面写的这些，写这篇文章的时候，我已经签了南京的一家软件公司，但是想起今年2月21日我面试苏州台湾的IT公司的经历联想到我们现在学习编程的一些情况我真的深有感触，这次面试使我深深的体会到了失败但也收获了很多。我要说的将分成三部分，1.是我面试的具体经过2.是由面试想到的3.现今我应该做的。当然这些话很大程度上是我个人的意见，不可能完全得到大家的赞同，所以在某些观点上如果哪位朋友觉得跟我的有很大出入，请不要介意，也不要对我攻击，就当我没有说过，欢迎和我联系共同探讨这些问题！我的EMAIL:wutao8@263.net 1.面试经过大约在年前我接到了台湾瑞晟(Realtek)苏州公司的面试通知，通知我2月21日到苏州工业园区面试，接到面试后的几天我把一些专业课温习了一遍，特别是C++和数据结构，由于大学几年里，我一直专研这些方面，加上通过了高级程序员的考试，对于一些常用的算法我差不多也达到了烂熟于胸的地步，当时的感觉是如果问了我这些方面的问题我应该是没有问题的！ 21日那天我被安排在4：30面试，由一位技术人员单独给我面试，在问了一些简单的问题之后他给我出了一道编程题目，题目是这样的： (由于具体面试的题目比较烦琐，我将其核心思想提取出来分解成……（乱码） 1) 写一个函数计算当参数为n(n很大)时的值 1-2+3-4+5-6+7......+n 哼，我的心里冷笑一声！没想到这么简单，我有点紧张的心情顿时放松起来！于是很快我给出我的解法： long fn(long n) { long temp=0; int i,flag=1; if(n<=0) { printf("err

ADO常用方法

myfavorcn — 2005-06-05 18:18:00

ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸准备工作 ======== Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用 Dim CnStr As String, Sql As String '创建两个字符串变量分别存放两个集合的SQL语句代码段 1、装载数据库(不属于Recordset集合) ============= Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$ '以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码 FileName = App.Path & "\'数据库名'" DbIp = "数据库地址" DbName = "数据库名" DbUser = "数据操作员用户名" DbPw = "操作员密码" '以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量 '1)连接Access数据库: '------------------- CnStr = "microsoft.jet.oledb.3.51;persist security info =false;data source=" & FileName & ";Jet OLEDB:Database Password=" & DbPw '2)连接Oracle数据库: '------------------- CnStr = "MSDAORA.1;Password=" & DbPw & ";User ID="