引言： 1. 求星期公式
星期=[5+A(实际天数)] mod 7
2. 干支计算公式
六十甲子干支序号，从1->59->0。
摘要：netscape浏览器，显示出你指定的www地址的主页。下面这个程序能
够完成这一功能。
programnetscape；
usesddeman；
proceduregotourl（surl：string）；
var
dde：tddeclientconv；
begin
dde：κtddeclientconv．create（nil）；
withddedo
beg......
摘要：作者:未名码头
在所开以的应用软件中,有时我们对某些文件进行拷贝（如对数据库进行备份、制作
安装程序），但是常用的一些语言却没有提供可直接进行文件拷贝的过程或函数。为此
，我曾利用delphi编制了可提供文件拷贝过程的动态连接库copy.dll,其输出过程为
copyfile。由于dll具有简化编程、运行速度快等诸多优点，且不受编程语言的限制，
用delphi编写的copf.dll同......
星期、干支、二十八宿计算公式上一页 ...
===================================================
好可怕！还有一些其它公式……但好象有些参数不知道怎么得到: 【程序编程相关:
用 ModelMaker 生成 单例程窗】 【推荐阅读:
hdsi2.0 sql注入部分抓包分析语】
【扩展信息:
用DLL方式封装MDI子窗体。
】
二十四节交节日算法:
用已知年的交接时辰加上22个小时35分,超过24要减去24,分数足60
进1个小时,即得到8年后的各节交节时辰.
如2000年雨水交节时辰为16时22分,则2008年雨水交节时辰为14时52
分.
因为16时22分+22时35分=38时57分.38-24=14时.
谁知道公元元年到公元八年的交节日,这个算法就可以实现了.--好
象逆算法可以解决这个问题.谁试试?
农历闰月算法:
农历中,二十四节气(十二节气与十二中气)的中气落在月末的话,下
个月就没有中气.农历将这种有节(节气)无气(中气)的月份规定为闰
月.平均计算,19年有七个闰月.
但二十四个节气的十二节气与十二中气是怎么分的呢?我没有资料,
估记应该是一节气一中气这样交叉. :(
unit cnyear;
interface
uses sysutils;
type tcndate = cardinal;
function decodegregtocndate(dtgreg:tdatetime):tcndate;
function
getgregdatefromcn(cnyear,cnmonth,cnday:word;bleap:boolean=fal
se):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 ...
下一页 摘要： 在delphi程序设计中，我们需要通过解除建立的所有对象来避免内存泄
漏。但是，如果你在程序中不谨慎小心的话，很容易多次解除同一个对象，
这将会引起很严重的错误，造成应用程序崩溃，甚至是死机。
请看下面的程序：
procedure tform1.button1click(sender:tobject);
var
button2,button3:tbutton;
......
