是除夕,一年的伊始为生肖的转换点
可以查《万年历》,也有口诀可以算。 运用干支来占卜的主要是邵雍的《梅花易数》和《四柱》。
哈哈,一言难尽起卦方法很多,我知道的诸如六爻课、梅花数等首先找三枚相同的铜钱或硬币,扣在两手中,诚心闭目祈思三分钟,据地面20厘米左右,然后放手丢在地上,记下背面朝上的钱币个数,这为第一次;紧接着把三钱币拾起,扣在手中摇晃4-6次再丢在地上,记下背面朝上的钱币个数,这为第二次;依次进行,共六次。1个背面计为0,2个背面计为X,3个背面计为0,无背面计为X.(即奇数为0,偶数为X)按照从第6次、第5次、第4次、第3次、第2次、第1次的顺序排列,得出六位0或X的排列。再参照下面的图例找出某卦。如:第6次为0、第5次为X、第4次为X、第3次为0、第2次为0、第1次为X则为 0XX00X 此卦为 四十、山风蛊卦 O××OO× 一、 乾为天卦:OOOOOO 卦辞:困龙得水好运交,不由喜气上眉梢。一切谋望皆如意,向后时运渐渐高。 推断:词讼和吉,病人痊愈,功名有成,求名大吉。 二、 天风(女后)卦:OOOOO× 卦辞:他乡遇友喜气欢,须知运气福重添。自今交了顺当运,向后保管不相干。 推断:功名有成,家宅平安,失物得见,占病无妨。 三、 天山走遁卦:OOOO×× 卦辞:浓云遮日不光明,劝君切莫远出行。婚姻求财皆不吉,须防口舌到门庭。 推断:占病不安,讼事见官,功名不成,事不遂心。 四、 天地否卦:OOO××× 卦辞:虎落陷坑不堪言,前进容易退后难。谋望不遂自己便,疾病口舌有牵连。 推断:占财可成,贵人远行,出行不宜,事事晚成。 五、 风地观卦:OO×××× 卦辞:鹊遇天晚宿林中,不知林内先有鹳。虽然同处心生恶,卦外逢之事非轻。 推断:先难后易,谋事不易,交过节令,忧愁变喜。 六、 山地剥卦:O××××× 卦辞:花遇甘露旱逢河,生意买卖利息多。婚姻自有人来助,出门永不受折磨。 推断:占讼得利,占病即愈,占信见得,谋事得意。 七、 火地晋卦:O×O××× 卦辞:锄地锄去苗里草,谁想财帛将人找,谋望求财皆如意,这个运气也算好。 推断:进退两难,不敢强辩,拨云见日,该你出现。 八、 火天大有卦:O×OOOO 卦辞:砍树摸雀做事牢,是非口舌自然消。婚姻合伙不费力,若问走失未脱逃。 推断:恍惚不做,拿稳下手,若求名利,到处自有。九、 兑为泽卦:×OO×OO 卦辞:这个卦象真有趣,觉着做事不费力。休要错过这机会,事事就觉遂心意。 推断:口舌消散,疾病痊愈,求财到手,谋事遂心。 十、 泽水困卦:×OO×O× 卦辞:时运不来有人欺,千方百计费商议。明明与你说好话,撮上杆去抽了梯。 推断:当交君子,莫听小人,凡事谨慎,永不受穷。 十一、泽地萃卦:×OO××× 卦辞:鲤鱼化龙喜气来,口舌疾病永无灾。愁疑从此都消散,祸门闭来福门开。 推断:鲤鱼化龙,喜气重重,求财到手,做事有功。 十二、泽山咸卦:×OOO×× 卦辞:脚踏棒槌转悠悠,时运不来莫强求。幸喜今日时运转,自有好事在后头。 推断:谋望有成,出门可行,走失来信,疾病安宁。 十三、水山蹇jian卦:×O×O×× 卦辞:大雨倾地雪满天,路上行人苦又难,拖泥带水费尽力,事不遂心且耐烦。 推断:行人未至,投向无门,好事难成,求名不准。 十四、地山谦卦:×××O×× 卦辞:天赐贫人一封金,不用争来二人分。彼此分得金到手,一切谋望皆遂心。 推断:婚姻遂意,出外得地,交易合伙,无不吉利。 十五、雷山小过卦:××OO×× 卦辞:行人路过独木桥,心内惶恐眼里跳。爽利保保过得去,慢行一步不安牢。 推断:求财到手,官事平常,目下不吉,交节自强。 十六、雷泽归妹卦:××O×OO 卦辞:求鱼须当向水中,树上求之不顺情。受尽爬揭......余下全文>>
年元旦干支是指年元旦日干支,即每年一月一日的干支,实际上它是某一日的日干支。子午流注纳甲法是根据日、时干支来推算开穴的,所以必须熟练掌握日、时干支的推算。但是,要知道日、时干支,又必须先知道年元旦干支和月元干支。年元旦干支的求法是:以本年元旦干支为基础,求下一年的元旦干支,本年若为平年,则本年元旦干支加五,即得下一年的元旦干支;本年若为闰年,则本年元旦干支加六,即得下一年的年元旦干支。列公式如下:本年(平年)元旦干支+5=下一年元旦干支本年(闰年)元旦干支+6=下一年元旦干支何谓“加五”、“加六”?加五、加六是指天干、地支都进五位或六位。例如:已知1983年为平年,其元旦干支为己丑(见表8),则1984年元旦干支为:己丑+5=甲午。掌上推算方法是:把己定在丑位上,干支进五位即为甲午。又如:已知1984年为闰年,其元旦干支为甲午,求1985年元旦干支,按上述公式:甲午+6=庚子。为什么平年加五、闰年加六呢?这是因为地球绕太阳公转一周,需时365天5小时48分46秒。平年为365天,余下的5小时48分46秒,积四年得23小时15分零4秒,约为一天,所以每隔四年立一闰,闰年二月比平年二月多一天,即29天,即闰年为366天。平年365天,365÷60(干支周转数)=6……余5,所以平年元旦到次年元旦干支相差5天。闰年366天,366÷60(干支周转数)=6……余6,所以闰年元旦到次年元旦干支相差6天。这就是平年加五闰年加六的缘故。但是,怎么知道其为平年或闰年呢?下面介绍两种识别平年和闰年的简单方法:(1)用四去除公元年数,凡能除尽者为闰年、除不尽者为平年。例如:公元1983年(癸亥年),1983÷4=495……余3,即1983年不能被4除尽,所以1983年为平年。又如:1984年能被4除尽,所以该年为闰年。但是,在用这种方法的时候要注意:由于4年加1天又多了44分56秒(24小时-23小时15分4秒=44分56秒),积满128年左右就又多算了1天(23小时57分52秒),也就是说在400年中约多算了3天。为了把这3天抵消掉,所以必须每百年停闰,每400年又不停闰。历法规定:公元数(非公元世纪整数)能被4除尽的,就是闰年;凡公元世纪的整数,能被400除尽的,才算闰年。如公元400年、800年、1200年、1600年、2000年等都是闰年;如公元1000年、1500年、1700年、1800年、1900年等虽能被4除尽,但不能被400除尽,所以不是闰年。(2)凡年支是申、子、辰的,该年就是闰年。如1984年(甲子年),其年支是子,所以该年是闰年。但需注意,如遇公元世纪的整数,不能被四百除尽的,其年支虽为申、子、辰,亦不是闰年,道理同上。
先来先服务FCFS:公平,简单,每个进程的请求都能依次得到处理。没有对寻道优化,平均寻道时间长。最短时间优先调度算法SSTF:要求访问的磁道是当前磁头所在的磁道最近,每次寻道时间最短。可能导致一些请求无限期推延。电梯调度算法SCAN:不仅考虑当前磁道的距离,优先考虑在磁道前进方向的最短时间,排除磁头在盘面上的往复运动。电梯原理。N-SCAN:是SCAN的改良。磁头改变方向时,以到达请求服务的最短时间。对中间请求服务更有利。C-SCAN:磁头单项移动。消除N-SCAN对两端请求的不公平。
准确的说就是宋代开始,在明代得到了空前的发展,清代这些东西都没什么大的建树!
风水之道是一种磁场学和方位学,通过罗盘,再经过数学计算,去找出方位对人造成的影响。风水之道其实就是五行之道,也是时间及空间之道;风水之道,也是救人济世之道,还是修心修德之道,风水实际就是人与居住环境阴阳互调后的磁场。
生肖鼠男: 鼠儿很清楚知道在处理任何事情的时候,首先最应该掌握好自己的情绪,只有讲心态放在正确的位置上,才会有能力去把事情处理好。所以,鼠儿不管在待人接物方面,都是能够做得十分妥当,从来不会多说一句关于自己情绪的话,也不会少做一件让人感觉贴心的事情。一个总得这样贴心的男生,当然是会让女生感觉到暖心的啦。 生肖猪男: 每一件事情在猪儿的心里面都会有一条标准,只要在不越过这一条标线的时候,猪儿都能够接受对方的一切无理取闹,都能够绝对按照对方的意愿去行动。在跟对方成为恋人关系的时候,不管猪儿的工作是有多么忙碌,但也总是能够很好照顾到对方的心情,不会缺少陪伴对方的时间,遇到事情也总是会跟对方沟通。 生肖蛇男: 只要是蛇儿跟对方说出的事情,无论这一件事情是多么难以完成,蛇儿都绝对会将这一件事情完成。不单单是这样,蛇儿还是一个十分懂得营造恋爱的浪漫气氛,也总是能够知道另一半的心理变化,对待对方更加是细致入微,而且蛇儿还十分积极向上努力拼搏事业,为将来的家庭生活打下一定的基础。
告诉你个小故事吧,真的: 我以前实习的时候山东有师傅, 爱算卦, 那算算双色球吧! 排了好几注号码, 有一组号码是最不可能的,就删了。 结果就是那注是大奖。 从此以后我那师傅不算双色球了。 还有就是我算股票, 算的是要抛, 结果连续3天涨停,“国阳新能”, 没骂我个半死。 算卦要是有准,还往这里忽悠你?早发财去了。
下面是一个关于VB的农历算法 '日期数据定义方法如下 '前12个字节代表1-12月为大月或是小月,1为大月30天,0为小月29天; '第13位为闰月的情况,1为大月30天,0为小月29天; '第14位为闰月的月份,如果不是闰月为0,否则给出月份,10、11、12分别用A、B、C来表示,即使用16进制; '最后4位为当年家农历新年-即农历1月1日所在公历的日期,如0131代表1月31日。 Function GetChgDate(ByVal vDate As String, ByVal ChgType As 转换方式) As String Dim vvdate() As String = Split(vDate, "-") If vvdate(0) > 2011 Or vvdate(0) Ben函数只提供1900年至2011年的日历转换!") End If Dim AddMonth, AddDay, AddYear, getDay, i As Integer Dim RunYue As Boolean Dim conDate As DateTime Dim daList(2011) As String daList(1900) = "010010110110180131" daList(1901) = "010010101110000219" daList(1902) = "101001010111000208" daList(1903) = "010100100110150129" daList(1904) = "110100100110000216" daList(1905) = "110110010101000204" daList(1906) = "011010101010140125" daList(1907) = "010101101010000213" daList(1908) = "100110101101000202" daList(1909) = "010010101110120122" daList(1910) = "010010101110000210" daList(1911) = "101001001101160130" daList(1912) = "101001001101000218" daList(1913) = "110100100101000206" daList(1914) = "110101010100150126" daList(1915) = "101101010101000214" daList(1916) = "010101101010000204" daList(1917) = "100101101101020123" daList(1918) = "100101011011......余下全文>>