首页 相关文章 中国农历算法(delphi)

中国农历算法(delphi)

  // 节日算法 请参见 《农历与西历对照、万年历》
  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;

  [ 查看全文 ]

2016-02-19 标签:
  • 标签:Delphi
      在数据库应用程序开发中,系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表,在Delphi中我们可以采用多种方案来解决这一问题。如运用OLE自动化技术将数据输出到MS-Word、MS-Excel中等,但其中最直接、最本地化的还是使用Delphi3.0/40中的QuickReport报表组件。它是挪威QuSoft公司专门为Delphi 编写的,使用QuickReport可以迅速设计出符合西方人习惯用的报表。   然而,在设计中...[ 查看全文 ]
  • 标签:Web开发
    首先给扑克牌中每张牌设定一个编号,下面算法实现的编号规则如下: u 红桃按照从小到大依次为:1-13 u 方块按照从小到大依次为:14-26 u 黑桃按照从小到大依次为:27-39 u 梅花按照从小到大依次为:40-52 u 小王为53,大王为54 算法实现如下: u 首先按照以上编号规则初始化一个包含108个数字的数组 u 每次随机从该数组中抽取一个数字,分配给保存玩家数据的数组 实现该功能的代码如下所示: 代码如...[ 查看全文 ]
  • 已知一棵二叉树按顺序方式存储在数组 A[1..n]中。设计算法求出下标分别为 i 和 j 的两个结点的最近的公共祖先结点的值。 武汉大学2000年第五(1)题(8’) #inlcude stdio.h parent(int A[],int i,int j) {int k,m; m=k=0; if(i==1j==1A[i]==0A[j]==0i==j) // A[i]==0或A[j]==0表示不存在该结点 {printf("Error.");return;} while(i!=1&&j!=1){...[ 查看全文 ]
  • 标签:Web开发
    代码如下: HTML HEAD TITLE农历与西历对照/TITLE META content="农历; 阳历; 月历; 节日; 时区; 节气; 八字; 干支; 生肖; gregorian solar; chinese lunar; calendar;" name=keywords META content=All name=robots META content="gregorian solar calendar and chinese lunar cale...[ 查看全文 ]
  • 写个过河算法 作者:陈健 下载源代码 警察小偷爸爸妈妈儿子女儿过河,这个游戏不用说的吧,应该很多人见过,一般是考察隔壁邻居家小朋友智商的,有人把他做成了FLASH游戏。规则如游戏图。详细请看文件中那个FLASH游戏 : 那天看见MM在玩,一不小心说漏了嘴,为了让她不鄙视我,只有研究下算法了。 先来分...[ 查看全文 ]
  • 残缺棋盘(defective chessboard)是一个有2k×2k 个方格的棋盘,其中恰有一个方格残缺。图2 - 3给出k≤2时各种可能的残缺棋盘,其中残缺的方格用阴影表示。注重当k= 0时,仅存在一种可能的残缺棋盘(如图1 4 - 3 a所示)。事实上,对于任意k,恰好存在22k 种不同的残缺棋盘。 残缺棋盘的问题要求用三格板(t r i o m i n o e s)覆盖残缺棋盘(如图1 4 - 4所示)。在此覆盖中,两个三格板不能重叠...[ 查看全文 ]
  • CRC算法与实现 作者:bhw98 提交者:eastvc 发布日期:2004-1-2 20:57:13 原文出处:http://www.csdn.net/ 摘要: 本文首先讨论了CRC的代数学算法,然后以常见的CRC-ITU为例,通过硬件电路的实现,引出了比特型算法,最后重点介绍了字节型快速查表算法,给出了相应的C语言实现。 关键词: CRC, FCS, 生成多项式, 检错重传 引言 CRC的全称为Cyclic Redundancy Check,中文名称为循环冗余校验。...[ 查看全文 ]
  •     首先,我们先看看这个游戏的规则,给出4个1-9之间的自然数,例如:1,5,5,5(这是很经典的一个例子哦 ^_^)。在1,5,5,5中间用+、-、*、/来运算后得到24这个数。每个数只能使用一次。如果没有计算过的基本都会被难住吧。哈哈,答案是 5*(5-1/5)。是不是很经典呢?和它类似的还有3,3,8,8。     下面我们来看具体算法。一般我们考虑这样的问题的时候,都是直接写...[ 查看全文 ]
  • 标签:SQLServer
    建一表,放初始化资料  因为农历的日期,是由天文学家推算出来的,到现在只有到2049年的,以后的有了还可以加入!  CREATE  TABLE  SolarData  (         yearId  int  not  null,         data  char(7)  not  null,         da...[ 查看全文 ]
  • 标签:办公软件
    你想知道某一天对应的农历日期和节气吗?你可以请Word帮忙,方法如下: 1.启动Word 2002。 2.在“文件”菜单中,单击“新建”,打开“新建文档”任务窗格。 3.在“新建文档”任务窗格中,单击“通用模板”,打开“模板”对话框。 4.单击“其他文档”选项,然后单击“日历向导”,单击“确定”按钮,打开“日历向导”对话框。 5.单击“日期和范围”,然后在“起始于”和“终止于”框中设...[ 查看全文 ]
  • 推算法知排卵期 大部分妇女在下次来月经前2周左右(12-16天)排卵,可以根据自己以前月经周期的规律推算,由于排卵可受疾病、情绪、环境及药物的影响而发生改变,应与其他方法结合使用。 测量基础体温知排卵期 女性基础体温有周期性变化,排卵后基础体温升高能提示排卵已经发生,排卵一般发生在基础体温上升前由低到高上升的过程中,在基础体温处于升高水平的三天内为"易孕阶段",...[ 查看全文 ]
  • 程序代码如下: 代码如下: // BubbleSort.cpp : 定义控制台应用程序的入口点。 // #include "stdafx.h" #include cmath #include iostream using namespace std; #define  MAXNUM 20 templatetypename T void Swap(T& a, T& b) {     int t = a;     a = b;     b = t; } templatetypename T void Bubble(T a[], int n) {//把数组a[0:n-1]中最大的元素...[ 查看全文 ]
  • 网上流传很多计算公农历的源代码,很多,但是居然没有VB的,晕, 所以。。。。。 用法: 以l开始的方法均为阴历,以s开始的方法均为公历 基本的两个初使函数: lInitDate:用农历年月日初使化日期对象 sInitDate: 用公历年月日初使化日期对象 其它的方法看下面的一小段代码吧 示例代码 Private Sub Command1_Click() Dim t As clsDate Dim y As Long Dim m As Long Dim d As Long Dim st As Single Dim et A...[ 查看全文 ]
  • public static string HashCryptString(string strText,string method){ if(method == "MD5"){ strText = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(strText,"MD5"); // MD5 md5 = new MD5CryptoServiceProvider(); // strText = System.Text.Encoding.UTF8.GetString(md5.ComputeHash(System.Text.Encoding.UTF8.GetBytes(strText))); } else if(method == "SHA1"){...[ 查看全文 ]
  • 虽然设计一个好的求解算法更像是一门艺术,而不像是技术,但仍然存在一些行之有效的能够用于解决许多问题的算法设计方法,你可以使用这些方法来设计算法,并观察这些算法是如何工作的。一般情况下,为了获得较好的性能,必须对算法进行细致的调整。但是在某些情况下,算法经过调整之后性能仍无法达到要求,这时就必须寻求另外的方法来求解该问题。 本章首先引入最优化的概念,然后介绍一种直观的问...[ 查看全文 ]
  • 老调重提,利用 SDK 实现迷宫算法 作者:赖锋 下载本文示例源代码 我近来重看了数据结构的书,现在的教材还是使用C/C++的编写的算法,编译还是在console mode进行, 如果能把这些数据结构的算法使用在SDK上,那么就可以开发出 Windows 程序的算法程序提高学习,不用在 单调的console mode 中看着冷冰冰的字符来学习数据结构了,这样学习一方面...[ 查看全文 ]
  • 作者:Sabine 本文介绍了C#的四种排序算法:冒泡排序、选择排序、插入排序和希尔排序  冒泡排序 using System; namespace BubbleSorter  { public class BubbleSorter  { public void Sort(int [] list)  { int i,j,temp;  bool done=false;  j=1;  while((j<list.L...[ 查看全文 ]
  • 希尔排序的时间复杂度为O(n*log2n) 空间复杂度为O(1)是一种不稳定的排序算法 思想:希尔排序也是一种插入排序方法,实际上是一种分组插入方法。先取定一个小于n的整数d1作为第一个增量,把表的全部记录分成d1个组,所有距离为d1的倍数的记录放在同一个组中,在各组内进行直接插入排序;然后,取第二个增量d2(<d1),重复上述的分组和排序,直至所取的增量dt=1(dtdt-1…d2d1),即所有记录放在同一组中进行直接插入...[ 查看全文 ]
  • 标签:Web开发
    说到做游戏,必不可少的需要用到寻路算法,一般游戏里的寻路算法大多数都以A*算法为主,这里也就实现了js里采用a*寻路的程序,在51js和蓝色都开了帖。     程序是以前写的,后来也没有修正或者精简,有冗余之处大家还见谅一下。      当然,这个寻路算法也不是最优化的,像幻宇开发的“交点寻径法”也是个中精品,两者可谓各有千秋,只是如果地图很大的情况...[ 查看全文 ]
手机页面 收藏网站 回到头部