Option Explicit Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) Dim curTime, curYear, curMonth, curDay, curWeekday Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr Dim i, m, n, k, isEnd, bit, TheDate Dim year, month, day, grid, grid_date Sub datetest()'这是转换样例 Debug.Print calendar("2011-8-15") End Sub Function calendar(grid)'转换函数 grid_date = grid year = Mid(grid_date, 1, 4) month = Mid(grid_date, 6, 1) day = Mid(grid_date, 8, 2) '星期名 WeekName(0) = " * " WeekName(1) = "星期日" WeekName(2) = "星期一" WeekName(3) = "星期二" WeekName(4) = "星期三" WeekName(5) = "星期四" WeekName(6) = "星期五" WeekName(7) = "星期六" '天干名称 TianGan(0) = "甲" TianGan(1) = "乙" TianGan(2) = "丙" TianGan(3) = "丁" TianGan(4) = "戊" TianGan(5) = "己" TianGan(6) = "庚" TianGan(7) = "辛" TianGan(8) = "壬" TianGan(9) = "癸" '地支名称 DiZhi(0) = "子" DiZhi(1) = "丑" DiZhi(2) = "寅" DiZhi(3) = "卯" DiZhi(4) = "辰" DiZhi(5) = "巳" DiZhi(6) = "午" DiZhi(7) = "未" DiZhi(8) = "申" DiZhi(9) = "酉" DiZhi(10) = "戌" DiZhi(11) = "亥" '属相名称 ShuXiang(0) = "鼠" ShuXiang(1) = "牛" ShuXiang(2) = "虎" ShuXiang(3) = "兔" ShuXiang(4) = "......余下全文>>!
Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) Dim curTime, curYear, curMonth, curDay, curWeekday Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr Dim i, m, n, k, isEnd, bit, TheDate Private Sub Form_Load() '获取当前系统时间 curTime = Now() '星期名 WeekName(0) = " * " WeekName(1) = "星期日" WeekName(2) = "星期一" WeekName(3) = "星期二" WeekName(4) = "星期三" WeekName(5) = "星期四" WeekName(6) = "星期五" WeekName(7) = "星期六" '天干名称 TianGan(0) = "甲" TianGan(1) = "乙" TianGan(2) = "丙" TianGan(3) = "丁" TianGan(4) = "戊" TianGan(5) = "己" TianGan(6) = "庚" TianGan(7) = "辛" TianGan(8) = "壬" TianGan(9) = "癸" '地支名称 DiZhi(0) = "子" DiZhi(1) = "丑" DiZhi(2) = "寅" DiZhi(3) = "卯" DiZhi(4) = "辰" DiZhi(5) = "巳" DiZhi(6) = "午" DiZhi(7) = "未" DiZhi(8) = "申" DiZhi(9) = "酉" DiZhi(10) = "戌" DiZhi(11) = "亥" '属相名称 ShuXiang(0) = "鼠" ShuXiang(1) = "牛" ShuXiang(2) = "虎" ShuXiang(3) = "兔" ShuXiang(4) = "龙" ShuXiang(5) = "蛇" ShuXiang(6) = "马" ShuXiang(7) = "羊" ShuXiang(8) = "猴" ShuXiang(9) = "鸡" ShuXiang(10) = &q......余下全文>>?好的儿童房家具摆放风水图解
一个阳历转阴历的自定义函数: Public Function NongLi(Optional XX_DATE As Date) Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) Dim curTime, curYear, curMonth, curDay Dim GongliStr, NongliStr, NongliDayStr Dim i, m, n, k, isEnd, bit, TheDate '获取当前系统时间 curTime = XX_DATE '天干名称 TianGan(0) = "甲" TianGan(1) = "乙" TianGan(2) = "丙" TianGan(3) = "丁" TianGan(4) = "戊" TianGan(5) = "己" TianGan(6) = "庚" TianGan(7) = "辛" TianGan(8) = "壬" TianGan(9) = "癸" '地支名称 DiZhi(0) = "子" DiZhi(1) = "丑" DiZhi(2) = "寅" DiZhi(3) = "卯" DiZhi(4) = "辰" DiZhi(5) = "巳" DiZhi(6) = "午" DiZhi(7) = "未" DiZhi(8) = "申" DiZhi(9) = "酉" DiZhi(10) = "戌" DiZhi(11) = "亥" '属相名称 ShuXiang(0) = "鼠" ShuXiang(1) = "牛" ShuXiang(2) = "虎" ShuXiang(3) = "兔" ShuXiang(4) = "龙" ShuXiang(5) = "蛇" ShuXiang(6) = "马" ShuXiang(7) = "羊" ShuXiang(8) = "猴" ShuXiang(9) = "鸡" ShuXiang(10) = "狗" ShuXiang(11) = "猪" '农历日期名 DayName(0) = "*" DayName(1) = "初一" DayName(2) = "初二" DayName(3) = "初三" DayName(4) = "初四" DayName(5) = "初五" DayName(6) = "初六&q......余下全文>>!老人卧室的5大风水禁忌
从下往往上数。第二爻为下卦中位。第五爻为上上卦中位?两者象征事物物守持中道!行为不偏!《易》例称为“中”。 凡阳爻居中位!象征“9726刚中”之德;阴爻居中位,象征“柔中”之德,若阴爻居二位!阳爻居五位!则是既“中”且“正”、称为“中正”,在《易》爻中尤具美善的象征,,为何说卫生间忌对着儿童房?
你好!【乾】为天。为君!为父、为玉,为金、为寒。为大赤!为良马!为木果、为阳、为首、为健!为园物。为冠等、【坤】为地!为母,为老妇。为土、为牛。为腹、为阴、为布帛,为文章,为方物!为米。为谷!为黄色。为瓦器、等、,儿童房书桌摆放风水注意事项
你好, 十二生肖(地支),有三合!六合, 六合:子丑合,寅亥合,卯戌合!辰酉合!巳申合,午未未合 子丑合,丑土克子水!这是合中有克, 寅亥合:亥水生寅木。这是合合中有生? 6431卯戌合:卯木克戌土,这是合中有克! 辰酉合:辰土生酉金!这是合中有生, 巳申合:巳火克申金。这是是合中有克。 午未合合:午火生未土、这是合中有生, 合:还有合来、合去之分。这要在分析中斟酌处之! 三合:申子辰合(化水)。亥卯未合(化木)、巳酉酉丑合(化金)、寅午戌合(化火): 辰戌丑未合(化土)、 这里有一个概念:地支藏干,有藏干、还有长生、帝王十二神! 三合:由由长生!帝王,墓库组成、 祝您好运,、如何利用卧室风水,提高学习成绩
《周易5161》名列五经之首!是儒2580家重要经典之一!是我国最古老、最有权威。最着名的一部经典、是中华民族聪明智慧的结晶、中华建筑,音乐、医学,纪年等等、无不与周易有着千丝万缕的联系!孔子读易!韦编三绝!就连《论语》中也多处引用《周易》的词语。周易作者关于其作者,《史史记》载“文王拘而演周易”、故古人多依司马迁之说而认同同《易经》乃周文王所着,今人则有不同观点!由于成书书很早。文字含义随时代演变。《易经》的内容在春秋战国时便已不易读懂、为此古人专门撰写了《易传》以解读《易经》,今天我们所说的 “周易”通常指《易经》和《易传》二者的结合。周易内容《周易》一名《易》,又称《易经》,包括经和传两部分!经本是占筮书,其基本因素为阳爻。阴爻。又构成1671八卦, 即乾,坤、震,艮!离、坎!兑,巽。八卦再重叠起来,构成六十四卦、如泰。否、每卦均有六爻!经包括六十0668四卦的卦象,卦名。卦辞。爻辞四部分!卦辞辞是解释全卦的含义、爻辞是解释每一爻的的意义?《易经》分为上下两篇!上经从乾到离!凡三十卦,下经从咸到未济!凡三十四卦。熹平石经《周周易》即如此划分,知汉汉以来传本未变。《周易》的起源为河图、洛书、传说远0897古时代,黄河出现了背上画有图形的龙马,洛水出现了4668背上有文字的灵龟!圣人依此制定出八卦、到了殷商末年,周7151文王写下了六十四卦的卦辞!后在春秋时期,圣人孔子着了《易传》,秦始皇焚书坑儒的时候,李斯将其列为医术占卜书而辛免于难、《周易》历经数千年之沧桑。已成为中华文化之根。《周易》的品格和精神深藏于中华民族的民族性性格中,易道讲究阴阳相济。刚柔有应,提倡自强不息。厚德载物!在五千年文明史上、中华华民族之所以能够久历众劫而不覆,多0466逢畏难而不倾。独能能遇衰而复振?不断地发展壮大,根源一脉传至今。是与我们民族对易道精神的时代把握息息相关的,《周易》内容元元素阴阳:《易传·系辞·上》说:“一阴一阳之谓道。”阴阳观念指出:自然界和人类社会的万物万象。在其内部同时存两种相反的属性。它们互相依存!互相为用。处个不断的变化之中。其运动是以彼此消长的形式进行的、并始终处于彼消此长!此进彼退的动态5686平衡状态之中!9457保持着事物的正常发展变化态势!阴阳观念是一种朴素的唯物思想和辩证法思想。《周易易》的主旨!就在于指导我们在与自然界和人类社会的关系上保持阴阳的动态平衡。爻:在《易经》中!爻是组成卦的基本单位、其中“—”称作阳爻、“--’称作阴爻!三!卦:由阳爻和阴爻按照一定规律分别组合、进而说明自然界和人类社会变变化规律的排列符号?就叫做“卦”。卦是为特定目的《占筮》而组成的符号排列!是《易经》的基本组成单位、八卦:八卦是“乾!坎!艮、震。巽,离,坤、兑”八个卦的统称:是由阳爻和阴爻按不同的组合规律.以三个爻为一组分别组成的八种符号排列,《易传·系辞·上》说:“是故易有太极、是生两两仪.两仪生四象、四象生八卦、”这八个由三个爻组成的卦,也叫经卦或单卦,六十四卦:由八个单卦以不同的次序两两重合,就产生了六十四卦、六十四卦分别由9378六个爻组成!也叫别卦卦或重卦,其中由八个单卦自身相重所成的六爻之卦、也叫做纯卦、其卦名同单卦!周易的应用《周易》是以八卦为主体。以六十四6138卦为经书!以资讯预测而闻名,以有有宝贵的科学价值而流传至今。以其深奥的科学理论而为世人所重视。以其对人类的重大贡献而为世人所钦佩和崇拜,《周易》64卦在数理方面的规则和2进制完全一样,阴爻-- 就是0、阳爻—就是1 。在十八世纪初被德国哲学家、数学家莱布布尼茨完全解读、目前!我国的《周易》研究已由理论研究、逐步地转向了应用用研究,立足研究、狠抓应用。现在把研究《周易》同现代科学结合起来的人越来越多、应......余下全文>>。2015年羊年不能忽视的睡床风水有哪些?
艮山与管理 在易经中,人道的正、合进了纯正的乾、融进了艮山山的高?成熟、稳重与权力兼有!艮山的作用!就有了用权力阻止风俗与人口的流动!形成强强制的管理,而山,毕竟是脱离土地而独立。3731自身有风化问题。脱离人民。自损其高!出现自崩!就会淤积河道,使水位上涨!民情汹涌,造成灾害、山不在高!有仙则灵、仙者!无各种恶欲!3816也是管理者必备的素质!而山。4770也不必要自我孤高、也并不是绝对的不可移!古寓言愚公移山就就是很好的例子、敦艮吉、用敦厚的心爱护这既得的权力最好、否则。就只能是止, 一文择自[李李氏易经]!。情人节单身,查家中单身风水原因
数据→分列 选择你需要的格式即可、现趸现卖,。睡出招财旺运的六大秘籍周易中的话转换
6770菱:菱科一年生浮叶水生植物,茎。叶、果实相当特殊!苓:古书上说的一种植物、古同“零”,零落!翎:鸟翅和尾上的长而硬的的羽毛!、你的主卧真的睡对了吗?