免费占卜算命网 免费占卜算命免费下载

好的文章肯定人人都喜欢阅读，免费占卜算命网给你解惑答疑，丰富的内容让你更加有只是免费占卜算命免费下载和免费占卜算命网让你人生无疑。关注我们，更多精彩正在路上！

占卜免费运势，农历算命最准免费

占卜免费运势

本占卜内容为海百合老师

请署名 否则视为 行为

welcome Bella

本文配图 于 络

《 运势 》

运势总是起起伏伏，我们也需要不断的调整，每过一段时间就要自我检测一下，最近哪方面需要暂停，哪方面又需继续加油？现在就跟着海百合老师一起来看一看，最近你的运势怎样，如何做可以帮你转运？

▼

//

首先请您轻轻的做个深呼吸，感觉静下心后

在心中默默的冥想问题三次

然后凭着之一直觉从下面的卡牌中选择最吸引你的一张牌

//

▼

▼

▼

▼

不

许

偷

看

哦

▼

▼

▼

▼

▼

// 选择A的朋友

最近你不能跨大步的往前走，需要拥有一种折中态度，凡事都要权衡利弊之后再做决定，低调为上，这是在为你的未来发展而做准备。总之切记如果最近遇到好事，千万不要得意忘形。

// 选择B的朋友

最近你内心的欲望非常强烈，这对赚钱而言是件好事，你有很多的奇思妙想和创意，这些都可以帮你赚到钱，所以最近可以抓住机会发展事业。但却不太有利于感情方面，跟异性容易生出误会，同时你也会因为跟对方缺少沟通而增加不快。

【兴趣占卜】当下有很多人年纪不大，却已患上了中年危机症，现在就跟着海百合老师一起来看一看，中年危机离你有多远呢？

// 选择C的朋友

最近你的运势比较不错，身边充满了各种各样的机会，如果你感兴趣可以听从内心的指引，努力看看，将有意想不到的收获。最近正是可以尝试冒险的时间段，成功的几率非常大，不过唯一要求便是要你信任自己的内心，而不是用他人的观点去判断。

// 选择D的朋友

最近要小心会有一些对立的观点和信息，你要去认真分辨真假，其次也会有隐形的小人与真正对你好的人出现。所以近期你一定要清醒，不要稀里糊涂的错把贵人当小人，把小人当贵人。

怎样确定星座和血型，血型星座精准分析性格

怎样确定星座和血型

【白羊座】

A型血的白羊座–充满侠义之气的白羊座

对于爱情，A型白羊人常会有类似阴差阳错的感慨，不是他(她)爱的人不爱他(她)，就是爱他(她)的人他(她)不爱。皆因，无论是A型血还是白羊座人，都是较自我和本位的。年少时候的A白羊人人很难体察出爱情中种种必须领悟的细腻之处，于是总会发生“货不对板”的情况。A白羊人真正的爱情之花往往是要到了一定年纪之后才会盛开，其时他们的人验较为丰富，会容易抓住真正的缘分。

好友： A/B/AB/O型的白羊、狮子、射手、水瓶、双子。

最容易一见钟情的人： O/B/AB型天秤

女生适合的爱人： O/AB/B型白羊、狮子、射手、水瓶、双子。

男生适合的爱人： AB/B型白羊、狮子、射手、水瓶、双子。

最不的爱人： A型巨蟹、A型羯

B型血的白羊座–最简单活泼的白羊座

B型白羊座人对于爱情是感性和勇敢的，感情充沛的他们一生中可能会遇到多次的恋情。陷入爱河的B型白羊座人，是热情洋溢的，愿意付出和牺牲，但也会带有一定的盲目性。如果遭受拒绝或恋爱失败，倒不会对他们造成太大的阴影，属于越挫越勇型的人物。B型血的白羊座人真正需要的是，一个成熟可靠，品质优秀的伴侣，来引导和安定他(她)的生活。

好友：A/AB/O型的白羊、狮子、射手、水瓶、双子。

最容易一见钟情的人： O/A/AB型天秤

女生适合的爱人： AB/O型白羊、狮子、射手、水瓶、双子。

男生适合的爱人： O/A/AB型白羊、狮子、射手、水瓶、双子。

最不的爱人： B型巨蟹、B型羯

AB型血的白羊座–最矛盾犹豫的白羊座

AB型白羊座人的爱情，也许是所有血型白羊座人中最百转千回的一种了，大部分情况下，并没有白羊座招牌式的直接和主动，取而代之的则是较被动的。同所有的AB型血人一样，AB型白羊座人对于爱情充满了浪漫的憧憬，他们在爱中虽会表现出冷静的姿态，内心却充满了深刻的情感。

好友：A/AB/B型的白羊、狮子、射手、水瓶、双子。

最容易一见钟情的人： O/A/B型天秤。

女生适合的爱人： AB/B型白羊、狮子、射手、水瓶、双子。

男生适合的爱人： AB/A型白羊、狮子、射手、水瓶、双子。

最不的爱人： O型巨蟹、O型羯

O型血的白羊座–最富活力的白羊座

O型白羊座人对待爱情的态度是积极和自信的，但从另外一种角度来说，他们又是骄傲的，他们对于恋人的要求是近乎完美的，能够让他们觉得值得去喜欢去付出的人，不会很多。所以，一旦出现那个让他们心动的人，他们就会执着大胆的追求，如果最后没有得到那个人，那么爱有多深，恨就有多深。

好友：A/O/B型的白羊、狮子、射手、水瓶、双子。

最容易一见钟情的人： A或AB型天秤。

女生适合的爱人： B型白羊、O/B型狮子、O/B型射手、O/B型水瓶、O/B型双子。

男生适合的爱人： B型白羊、A/B型狮子、A/B型射手、A/B型水瓶、A/B型双子。

最不的爱人： AB型巨蟹、AB型羯

【金牛座】

A型血的金牛座–执着笃定的金牛座

对于爱情，A金牛人属于宁缺毋滥型，再没有遇到自己真正觉得喜欢的那个人之前，其他人怎么追求，他们都不会接受。而一旦遇到了喜欢人，A金牛人表现出的行动力之迅速和占有欲之强烈，是让旁人惊讶的。开始了一段感情发展的A金牛人，是忠诚和执着的，是让恋人可以放心的去爱的充满安全感的人。

好友： A/B/AB/O型的金牛、处女、羯、双鱼、巨蟹。

最容易一见钟情的人：O/B/AB型天蝎

女生适合的爱人：O/AB/B型金牛、处女、羯、双鱼、巨蟹。

男生适合的爱人：AB/B型金牛、处女、羯、双鱼、巨蟹。

最不的爱人：A型狮子、A型水瓶

B型血的金牛座–安详温和的金牛座

B型血的金牛座人对于感情是有点晚熟和笨拙的，对于爱情，他们并没有过多的浪漫幻想，即使到了该谈情说爱的年纪，也不会急着找个人来恋爱，似乎总是拖到不能再拖了，才通过相亲等途径来解决恋爱的问题。对爱做了承诺之后的B金牛人是安定和稳重的，他们喜欢稳定的家庭感，也希望有一个同样安定的单纯的伴侣来相伴过一生。

好友：A/AB/O型的金牛、处女、摩羯、双鱼、巨蟹。

最容易一见钟情的人：O/A/AB型天蝎

女生适合的爱人：AB/O型金牛、处女、摩羯、双鱼、巨蟹。

男生适合的爱人：O/A/AB型金牛、处女、摩羯、双鱼、巨蟹。

最不的爱人：B型狮子、B型水瓶

AB型血的金牛座–憨厚乐天的金牛座

因为AB型的金牛座人的个性中总是有着很孩子气的一面，也强烈的渴望安全感，所以对于恋人的选择，他们往往喜欢成熟可依赖的对象。进入了爱情状态的AB型金牛人，喜欢对方主动的热烈追求，自己被动的接受，他们会是忠实和不变心的爱人，也会因为有了爱，而充满了生气，焕发出与以前不一样的成熟光彩。

好友：A/AB/B型的金牛、处女、羯、双鱼、巨蟹。

最容易一见钟情的人：O/A/B型天蝎。

女生适合的爱人：AB/B型金牛、处女、羯、双鱼、巨蟹。

男生适合的爱人：AB/A型金牛、处女、羯、双鱼、巨蟹。

最不的爱人：O型狮子、O型水瓶

O型血的金牛座–现实物质的金牛座

一旦恋爱起来，O金牛是所有的金牛座人中最会说动听情话的。只是，的成分在O金牛人的爱情中的比重会比较大，他们很难容忍一个身材或者容貌走样的伴侣，或者，即使已经拥有了美丽的爱人，有时还是忍不住被更美丽的吸引。当然，不是说O金牛人的爱情中没有精神的成分，只是这些都是要建立在对眼的外表基础之上的。

好友：A/O/B型的金牛、处女、羯、双鱼、巨蟹。

最容易一见钟情的人：A或AB型天蝎。

女生适合的爱人：B型金牛、O/B型处女、O/B型羯、O/B型双鱼、O/B型巨蟹。

男生适合的爱人：B型金牛、A/B型处女、A/B型羯、A/B型双鱼、A/B型巨蟹。

最不的爱人：AB型狮子、AB型水瓶

【双子座】

A型血的双子座–型的双子座

A型血的双子座人对于爱情的表达不是过于害羞就是过于大胆，一旦喜欢上一个容易想的很多，造成神经紧张。仿***是内心另一个活泼的自己的投射，有时候他们会被特立独行的甚至有点张扬的人所吸引，让人们大跌眼镜。A双子的天性中有点喜欢悲剧式的爱情，来点曲折离奇的情节，才够味道。

好友： A/B/AB/O型的双子、天秤、水瓶、白羊、A/B/AB/O型狮子。

最容易一见钟情的人：O/B/AB型射手

女生适合的爱人：O/AB/B型双子、天秤、水瓶、白羊、狮子。

男生适合的爱人：AB/B型双子、天秤、AB/B型水瓶、AB/B型白羊、AB/B型狮子。

最不的爱人：A型处女、A型双鱼

B型血的双子座–灵巧多变的双子座

B型血的双子座人爱自由，因为个性善变好动，害怕平淡，即使有了伴侣，也并不妨碍他们欣赏其他出色的异性，搞搞暧昧，是有点小花心的情人。但他们也仅限于暧昧暧昧，并不会越出一定的界限，只是作为生活的调味料而已，不用搞的很隆重。

好友：A/AB/O型的双子、天秤、A/AB/O型水瓶、A/AB/O型白羊、A/AB/O型狮子。

最容易一见钟情的人：O/A/AB型射手

女生适合的爱人：AB/O型双子、天秤、水瓶、白羊、狮子。

男生适合的爱人：O/A/AB型双子、天秤、水瓶、O/A/AB型白羊、O/A/AB型狮子。

最不的爱人：B型处女、B型双鱼

AB型血的双子座–低调平和的双子座

AB型的双子座人，因为具有强烈的冷静理性的特质，所以陷入一段恋爱关系的速度是比较慢的，他们会不动声色的观察徘徊许久，才做出是否开始的决定。不过一旦开始一段恋爱，AB型的双子座人还是非常忠诚和全心全意付出的。

好友：A/AB/B型的双子、天秤、A/AB/B型水瓶、A/AB/B型白羊、A/AB/B型狮子。

最容易一见钟情的人：O/A/B型射手。

女生适合的爱人：AB/B型双子、天秤、AB/B型水瓶、AB/B型白羊、AB/B型狮子。

男生适合的爱人：AB/A型双子、天秤、AB/A型水瓶、AB/A型白羊、AB/A型狮子。

最不的爱人：O型处女、O型双鱼

O型血的双子座–乐观外向的双子座

O型血的双子座人是主动热情的情人，在与恋人相处的时候，他们同样喜欢以及表达自己内心的想法，也总是能灵敏的感知到对方需要的是什么。他们也希望对方能够给予相应的回应，如果一腔热情得不到期待中的回报(也许只是口头上的小小表扬)，他们会非常失落。对于O双子来说，最理想的爱情，莫过于在精神上能够彼此理解和支持的爱情。

好友：A/O/B型的双子、天秤、A/O/B型水瓶、A/O/B型白羊、A/O/B型狮子。

最容易一见钟情的人：A或AB型射手。

女生适合的爱人：B型双子、O/B型天秤、O/B型水瓶、O/B型白羊、O/B型狮子。

男生适合的爱人：B型双子、A/B型天秤、A/B型水瓶、A/B型白羊、A/B型狮子。

最不的爱人：AB型处女、AB型双鱼

【巨蟹座】

A型血的巨蟹座–谨慎上进的巨蟹座

对于A型血巨蟹人来说，爱情是珍贵和洁的，他们渴望着温暖人心的长长久久的爱情。他们最不欣赏举止或言语轻浮的异性，而风头太足太优秀的异性也会令他们没有安全感。有点弱势的、貌似需要他们保护和照顾的、易于亲近和人品端正的异性，更能令他们找到放心的付出爱的动力。A型巨蟹人不喜欢用引人注目的方式来表达情感，也很害怕被拒，因此表现爱的方式通常极为含蓄、迂回。他们也常喜欢暗恋，却不一定要结果。

好友： A/B/AB/O型的巨蟹、天蝎、双鱼、金牛、处女。

最容易一见钟情的人：O/B/AB型羯

女生适合的爱人：O/AB/B型巨蟹、天蝎、双鱼、金牛、处女。

男生适合的爱人：AB/B型巨蟹、天蝎、双鱼、金牛、处女。

最不的爱人：A型天秤、A型白羊

B型血的巨蟹座–纯朴又温暖的巨蟹座

B型巨蟹人是非常感性的，也决定了他们的爱情是跟着感觉走的。只要看对眼，穷光蛋他们也爱；看不对眼的话，王子公主都不会要。刚开始一段恋爱的B型巨蟹人，会表现的非常热情、健谈。但一段时间以后他们又会表现出有点漫不经心的样子，甚至会有点忽冷忽热、若即若离的情绪化表现。这往往是他们开始希望对方也能够更热情的对待自己，当B型巨蟹人感到安全之后，就又会恢复成那个热情贴心的样子了，甚至会更加黏人哦！

好友：A/AB/O型的巨蟹、天蝎、双鱼、金牛、处女。

最容易一见钟情的人：O/A/AB型羯

女生适合的爱人：AB/O型巨蟹、天蝎、双鱼、金牛、处女。

男生适合的爱人：O/A/AB型巨蟹、天蝎、双鱼、金牛、处女。

最不的爱人：B型天秤、B型白羊

AB型血的巨蟹座–纯朴又温暖的巨蟹座

AB型的巨蟹座人是为爱而生的，对他们来说，爱情应该像或故事情节一样轰轰烈烈、浪漫美好，甚至为此放弃名或利都是无所谓的。但往往只有很少的AB型巨蟹座人能够幸运的找到那份理想中的无暇爱情。大部分的AB型巨蟹座人会在一段又一段的恋情失败之后感到受伤。不过，成熟之后的AB型巨蟹座人会开始慢慢懂得真正珍贵的感情存在于朴实和平淡之中，于是就会成为非常平和踏实的伴侣。

好友：A/AB/B型的巨蟹、A/AB/B型的天蝎、A/AB/B型双鱼、A/AB/B型金牛、A/AB/B型处女。

最容易一见钟情的人：O/A/B型羯。

女生适合的爱人：AB/B型巨蟹、AB/B型天蝎、AB/B型双鱼、AB/B型金牛、AB/B型处女。

男生适合的爱人：AB/A型巨蟹、AB/A型天蝎、AB/A型双鱼、AB/A型金牛、AB/A型处女。

最不的爱人：O型天秤、O型白羊

O型血的巨蟹座–亲切又可信赖的巨蟹座

O型血巨蟹座人的爱情是理性与浪漫的结合，他们不喜欢太疯狂的恋情，恋爱是一定要建立在走向婚姻的基础上的。因此，他们挑选恋爱的对象是谨慎又仔细的。对于恋家的O型巨蟹来说，没有比建立一个兴旺的家庭更重要的了，他们是怎么都不会成为不婚者的。一旦确定了喜欢的人，他们就会积极大方的追求，不会犹豫暧昧。婚后的O型巨蟹人，是一个充满了包容力的负责任的伴侣，如果另一半想偷懒爱依赖，他们也会喜欢被对方需要的感觉，并乐在其中！

好友：A/O/B型的巨蟹、天蝎、双鱼、金牛、处女。

最容易一见钟情的人：A或AB型羯。

女生适合的爱人：B型巨蟹、O/B型天蝎、O/B型双鱼、O/B型金牛、O/B型处女。

男生适合的爱人：B型巨蟹、A/B型天蝎、A/B型双鱼、A/B型金牛、A/B型处女。

最不的爱人：AB型天秤、AB型白羊

【狮子座】

A型血的狮子座–含蓄高雅的狮子座

A型血的狮子座人对待爱情的态度是非常认真的，不喜欢轻浮的表达感情，面对喜欢的人会甚至显的有点严肃。A型血的狮子男在遇到心仪女性的时候，会不再内向，大方直接的表达自己的爱意。而A型血的狮子女面对他人的追求，则会有一个较长时的矜持表现期，以了解和考验对方。无论是A型的狮子男还是狮子女，一旦确立了恋爱关系，都会是忠诚和负责任的伴侣。

好友： A/B/AB/O型的狮子、射手、白羊、A/B/AB/O型双子、A/B/AB/O型天秤。

最容易一见钟情的人：O/B/AB型水瓶

女生适合的爱人：O/AB/B型狮子、射手、白羊、O/AB/B型双子、O/AB/B型天秤。

男生适合的爱人：AB/B型狮子、射手、AB/B型白羊、AB/B型双子、AB/B型天秤。

最不的爱人：A型天蝎、A型金牛

B型血的狮子座：豪爽义气的狮子座

B型血的狮子座人是比较容易动情的，他们在爱情中的致命伤是遇到擅长甜言蜜语的异性，令他们感觉自己终于被 、被欣赏。B型血的狮子男有点小花心，期望能拥有丰富多彩的恋爱经历，以证明自己的魅力。B型血的狮子女则需要被浓烈的如胶似漆的爱所包围，只有这样的爱情才能令她感到满足，并充满了自信、容光焕发。

好友：A/AB/O型的狮子、射手、A/AB/O型白羊、A/AB/O型双子、A/AB/O型天秤。

最容易一见钟情的人：O/A/AB型水瓶

女生适合的爱人：AB/O型狮子、射手、AB/O型白羊、AB/O型双子、AB/O型天秤。

男生适合的爱人：O/A/AB型狮子、射手、白羊、O/A/AB型双子、O/A/AB型天秤。

最不的爱人：B型天蝎、B型金牛

AB型血的狮子座：浪漫温柔的狮子座

AB型血的狮子座人在爱情中是羞涩的浪漫派人物，王子或者乞丐，都有可能去爱。他们容易因为外表的吸引而发生一见钟情的事情。AB型的狮子男一旦陷入爱河能想出许多浪漫的招数来逗女孩子开心。AB型的狮子女遇到喜欢的人来追求则会表现的羞涩、被动、不置可否，但心中也许已幻想无数遍各种未来可能的情节。AB型狮子座人是具有包容力的伴侣，并渴望着他们在爱中付出的热情可以得到同样的回报。

好友：A/AB/B型的狮子、射手、A/AB/B型白羊、A/AB/B型双子、A/AB/B型天秤。

最容易一见钟情的人：O/A/B型水瓶。

女生适合的爱人：AB/B型狮子、射手、AB/B型白羊、AB/B型双子、AB/B型天秤。

男生适合的爱人：AB/A型狮子、射手、AB/A型白羊、AB/A型双子、AB/A型天秤。

最不的爱人：O型天蝎、O型金牛

O型血的狮子座：自信明朗的狮子座

O型血狮子座人对待爱情和婚姻是比较实际和谨慎的，也有着自己独特的标准。O型血狮子座的男性喜欢小鸟依人型的对象，是会崇拜他们并需要他们保护的温柔女性。有了爱情之后的他们，会为心爱的人生活更好而努力的在事业上拼搏。O型血狮子座的女性则喜欢体面、条件出众的对象，她们深深明白良好的客观物质环境才会是培养浪漫爱情的温床。

好友：A/O/B型的狮子、射手、A/O/B型白羊、A/O/B型双子、A/O/B型天秤。

最容易一见钟情的人：A或AB型水瓶。

女生适合的爱人：B型狮子、O/B型射手、O/B型白羊、O/B型双子、O/B型天秤。

男生适合的爱人：B型狮子、A/B型射手、A/B型白羊、A/B型双子、A/B型天秤。

最不的爱人：AB型天秤、AB型白羊

【处女座】

O型血的处女座–力争上游的处女座

工作上常是能手的O型处女座人面对爱情会感到有点小笨拙。他们的恋爱经历不会太多。但时常会滋生孤独感的O型处女座人其实非常渴望爱情。对自己要求很高的O型处女座人，希望拥有可以强强联合的伴侣。O型血的处女座男生喜欢独立自主、会在背后支持他们的女生，不会因谈恋爱而给他们的生活或工作增加负担。O型血的处女座女生欣赏出色和强势的男生，也希望可以提升彼此的恋爱关系。

好友：A/O/B型的处女、A/O/B型的羯、A/O/B型金牛、A/O/B型巨蟹、A/O/B型天蝎。

最容易一见钟情的人：A或AB型双鱼。

女生适合的爱人：B型处女、O/B型羯、O/B型金牛、O/B型巨蟹、O/B型天蝎。

男生适合的爱人：B型处女、A/B型羯、A/B型金牛、A/B型巨蟹、A/B型天蝎。

最不的爱人：AB型射手、AB型双子

A型血的处女座–纯静低调的处女座

看似害羞腼腆的A型血处女座男生，在爱情中却往往出人意料的直接。一旦遇到自己喜欢的人，他们就会发扬钻研精神，多方面了解对方 ，然后迅速研究、制造一些貌似自然的机会，让自己和她接近。也因为其外表的腼腆老实，常令女生有所好感，他们的深情表白也往往成功。

而A型血的处女座女生，在感情方面则非常害羞、被动，属于比较矜持的一类女生。她们即使面对心仪的男生表白，也常常不知该怎么回应。好在这也正是A型处女座女生的独特魅力所在，越矜持越不乏热情的追求者。

好友： A/B/AB/O型的处女、羯、金牛、A/B/AB/O型巨蟹、A/B/AB/O型天蝎。

最容易一见钟情的人：O/B/AB型双鱼

女生适合的爱人：O/AB/B型处女、羯、金牛、O/AB/B型巨蟹、O/AB/B型天蝎。

男生适合的爱人：AB/B型处女、羯、金牛、巨蟹、AB/B型天蝎。

最不的爱人：A型射手、A型双子

B型血的处女座—简单厚道的处女座

感情丰富的B型血处女座人面对爱情的到来，会显的比较害羞。因为细腻有点胆小，他们会容易犹豫。B型血的处女座男生喜欢一个女生时候，会找机会在对方周围转来转去，和她唱唱反调，引起对方的注意，却又迟迟不敢表白。B型血的处女座女生表达爱情的方式是被动型的，但若有喜欢的人示爱，并不会表现的过于矜持，而会明确的表明心意。无论是B型血的处女座男生还是女生，都希望拥有简单和专一的爱情。

好友：A/AB/O型的处女、羯、A/AB/O型金牛、A/AB/O型巨蟹、A/AB/O型天蝎。

最容易一见钟情的人：O/A/AB型双鱼

女生适合的爱人：AB/O型处女、羯、AB/O型金牛、AB/O型巨蟹、AB/O型天蝎。

男生适合的爱人：O/A/AB型处女、羯、金牛、O/A/AB型巨蟹、O/A/AB型天蝎。

最不的爱人：B型射手、B型双子

AB型血的处女座–冷静敏锐的处女座

AB型处女座人对于风度优雅、仪表出众的异性容易心生好感。但无论是AB型的处女座男生还是女生，决定去爱对方之前，先会观察评估很久，看对方是否表里如一。他们在爱情中足够挑剔，所以，恋人必须拥有出众的内在美和纯净的灵，以经得起他们近距离的审视。虽然AB型处女座人一开始会在爱中有所保留，但他们一旦得到了安全感，就会给予对方以坦诚、体贴、细腻又毫无保留的爱。

好友：A/AB/B型的处女、羯、A/AB/B型金牛、A/AB/B型巨蟹、A/AB/B型天蝎。

最容易一见钟情的人：O/A/B型双鱼。

女生适合的爱人：AB/B型处女、羯、AB/B型金牛、AB/B型巨蟹、AB/B型天蝎。

男生适合的爱人：AB/A型处女、羯、AB/A型金牛、AB/A型巨蟹、AB/A型天蝎。

最不的爱人：O型射手、O型双子

【天秤座】

A型血的天秤座

A型天秤座颇能吸引异性的注意，所以恋爱运气不错，即使不去主动追求，喜欢你的人仍会找机会接近，到了二十岁左右，无论男女，身旁都会有一群异性围绕着你。对于异性，你有充分的自信，但是你不会把此自信表现出来，只是快乐而优雅地享受着恋爱，接受异性对你的倾慕。你对你的情人表现得也不够积极，甚至显得有些冷淡，但却让对方迷恋不已，A型的力，天秤座的优越感所致。尽管如此，只要一进入情况，你仍会流你的感情，并明了如何让情人满足，快快乐乐地谈恋爱。

好友：A/B/AB/O型的天秤、A/B/AB/O型的水瓶、A/B/AB/O型双子、A/B/AB/O型狮子、A/B/AB/O型射手。

最容易一见钟情的人：O/B/AB型白羊

女生适合的爱人：O/AB/B型天秤、水瓶、双子、O/AB/B型狮子、O/AB/B型射手。

男生适合的爱人：AB/B型天秤、水瓶、AB/B型双子、AB/B型狮子、AB/B型射手。

最不的爱人：A型羯、A型巨蟹

B型血的天秤座

不会盲目地陷入爱的漩涡，而B型天秤的恋爱观便是谈恋爱只是人生的点缀，应使它快快乐乐，可说是游戏人间的类型。你的爱情观很，会同时跟两位以上的异往，自己的恋人如果跟其他的异性朋友交往，也不会在意，不过，圆滑的你会小心处理这类的事，不会让任何一方受到伤害。决定分手时，并会采取潇洒毫不留恋的的态度和对方说再见，总觉得自己在任何时候都必须表现出一流的风采及胸襟。

好友：A/AB/O型的天秤、A/AB/O型的水瓶、A/AB/O型双子、A/AB/O型狮子、A/AB/O型射手。

最容易一见钟情的人：O/A/AB型白羊

女生适合的爱人：AB/O型天秤、水瓶、AB/O型双子、AB/O型狮子、AB/O型射手。

男生适合的爱人：O/A/AB型天秤、水瓶、双子、O/A/AB型狮子、O/A/AB型射手。

最不的爱人：B型羯、B型巨蟹

AB型血的天秤座

AB型天秤座的感情世界是以、优雅为原则，在AB型天秤的世界里只有美丽的恋情，没有所谓的苦命鸳鸯。你一向以追求浪漫、美丽的爱情而感到快乐及满足。他是重视华丽炫耀目的，外表甚于一切的人。AB型天秤会不断追求新的恋情，毕竟美丽是短暂的，也可能只是假象。一旦深入了解后发现了对方内在的缺点，便一刻也不能忍受，决意离去。

好友：A/AB/B型的天秤、水瓶、A/AB/B型双子、A/AB/B型狮子、A/AB/B型射手。

最容易一见钟情的人：O/A/B型白羊。

女生适合的爱人：AB/B型天秤、水瓶、AB/B型双子、AB/B型狮子、AB/B型射手。

男生适合的爱人：AB/A型天秤、水瓶、AB/A型双子、AB/A型狮子、AB/A型射手。

最不的爱人：O型羯、O型巨蟹

O型血的天秤座

O型天秤的爱情是”等待燃烧的爱情”，总是安静地等待把感情的火苗点燃。O型天秤座无论男女，对自己都有十足的信心。恋爱起来仿***中世纪那些上流的贵，充满了浪漫且华丽的色彩。即使以第三者的身份介入恋爱中，也会把恋情点缀得令人响往。在做内心感情的表达时，也可分为两种类型，当O型是非分明的气质较强时，就会单刀直入地进攻，若是犹豫不决，缺乏果断的天秤座气质较强，就会表现出若即若离的态度，使对方焦躁起来。

好友：A/O/B型的天秤、A/O/B型的水瓶、A/O/B型双子、A/O/B型狮子、A/O/B型射手。

最容易一见钟情的人：A或AB型白羊。

女生适合的爱人：O/B型天秤、O/B型水瓶、O/B型双子、O/B型狮子、O/B型射手。

男生适合的爱人：A/B型天秤、A/B型水瓶、A/B型双子、A/B型狮子、A/B型射手。

最不的爱人：AB型羯、AB型巨蟹

【天蝎座】

A型天蝎座

爱上一个人的话，因为害羞腼腆而不容易表白，但是会默默的用行动让对方感知到，如果单恋最后没有成功，会一生都惦念着这个人。 A型天蝎最有魅力的地方是除了天蝎的性感加A型人淡淡的忧郁，从他们深邃的眼神里流来，常让异性会有触电的感觉。A型天蝎女气质高雅，虽不喜欢交际，却总有若心塌地的追求者围绕身旁，A型天蝎男话语不多，带点酷酷的气质，但因其丰富深刻的内涵，常许多女性的青睐。

好友：A/B/AB/O型的天蝎、双鱼、巨蟹、A/B/AB/O型处女、A/B/AB/O型羯。

最容易一见钟情的人：O/B/AB型金牛

女生适合的爱人：O/AB/B型天蝎、双鱼、巨蟹、O/AB/B型处女、O/AB/B型羯。

男生适合的爱人：AB/B型天蝎、双鱼、AB/B型巨蟹、AB/B型处女、AB/B型羯。

最不的爱人：A型水瓶、A型狮子

云淡风轻的B型天蝎

B型天蝎一旦喜欢上一个人，追求的热度是很高的，而且百折不挠，因其乐观豁达的天性，不会因为暂时的失败而气馁，所以，被B型天蝎看上的人一般很难逃脱他们的温情之 。B型天蝎女富于女性的阴柔之美却个性独立，不喜欢依赖男性，往往是让追其的男生不知道何从下手的一群。B型天蝎男个性温和，很讨女孩子喜欢。

好友：A/AB/O型的天蝎、双鱼、A/AB/O型巨蟹、A/AB/O型处女、A/AB/O型羯。

最容易一见钟情的人：O/A/AB型金牛

女生适合的爱人：AB/O型天蝎、双鱼、AB/O型巨蟹、AB/O型处女、AB/O型摩羯。

男生适合的爱人：O/A/AB型天蝎、双鱼、巨蟹、O/A/AB型处女、O/A/AB型羯。

最不的爱人：B型水瓶、B型狮子

AB型血天蝎座

AB型天蝎女往往非常具有女性魅力，容貌娇美，矛盾又善变，外表浪漫内心冷静，不会轻易的投入到一段感情，是让喜欢的男性非常捉摸不定的一型。AB型天蝎男对爱情是有着完美倾向的，非常理想化，注重心灵的沟通，对外貌则不一定有很高的标准。

好友：A/AB/B型的天蝎、双鱼、A/AB/B型巨蟹、A/AB/B型处女、A/AB/B型羯。

最容易一见钟情的人：O/A/B型金牛。

女生适合的爱人：AB/B型天蝎、双鱼、AB/B型巨蟹、AB/B型处女、AB/B型羯。

男生适合的爱人：AB/A型天蝎、双鱼、AB/A型巨蟹、AB/A型处女、AB/A型羯。

最不的爱人：O型水瓶、O型狮子

O型血的天蝎座

O型血天蝎情感的流露是最强烈的，一旦喜欢上一个人，就会积极的表白，毫无保留的对对方好；即使对方并不一定接受他们的好意，他们仍会乐此不疲。对于不喜欢的人或事会毫不顾忌的流露在脸上。O型的天蝎女往往是非常性感的，活泼明朗的气质加上天蝎的性感，使她们像个磁场，拥有极多的桃花。O型天蝎男的魅力也是惊人的，因起热情明朗的特质，能够把天蝎与生俱来的性感更大限度的散发出来。

好友：A/O/B型的天蝎、A/O/B型的双鱼、A/O/B型巨蟹、A/O/B型处女、A/O/B型羯。

最容易一见钟情的人：A或AB型金牛。

女生适合的爱人：B型天蝎、O/B型双鱼、O/B型巨蟹、O/B型处女、O/B型羯。

男生适合的爱人：B型天蝎、A/B型双鱼、A/B型巨蟹、A/B型处女、A/B型羯。

最不的爱人：AB型水瓶、AB型狮子

【射手座】

A型血的射手座：

无论何时，A型射手的内心总是乐观和坚定的。你喜欢有智慧的人，一旦碰到喜欢的人，你会用自己最真诚的心去与他(她)相爱，并用内心的乐观和坚强去感染他(她)，专一又忠诚。

好友： A/B/AB/O型的射手、白羊、狮子、A/B/AB/O型天秤、水瓶。

最容易一见钟情的人：O/B/AB型双子

女生适合的爱人：O/AB/B型射手、白羊、狮子、O/AB/B型天秤、O/AB/B型水瓶。

男生适合的爱人：AB/B型射手、白羊、AB/B型狮子、AB/B型天秤、AB/B型水瓶。

最不的爱人：A型双鱼、A型处女

B型血的射手座：

有天赋交际能力的象个开心果一样的B型射手非常容易讨人喜欢，也容易招来很多的桃花。可是喜欢的B型射手总不愿意被束缚在一段感情之中，往往在一段段的感情中穿梭而乐此不疲。

好友：A/AB/O型的射手、A/AB/O型的白羊、A/AB/O型狮子、A/AB/O型天秤、A/AB/O型水瓶。

最容易一见钟情的人：O/A/AB型双子

女生适合的爱人：AB/O型射手、白羊、AB/O型狮子、AB/O型天秤、AB/O型水瓶。

男生适合的爱人：O/A/AB型射手、白羊、O/A/AB型狮子、O/A/AB型天秤、水瓶。

最不的爱人：B型双鱼、B型处女

AB型血的射手座

无论是多大年龄的AB型射手，都总保留了纯真的孩子气的一面，也是你们吸引异性的魅力所在。如果说O型射手座人是思想浪漫、行为理智；那么AB型射手座人则是思想理智、行为浪漫。在恋爱的过程中，你的行为会表现的很，但头脑中始终会着一份冷静和理智。

好友：A/AB/B射手、A/AB/B白羊、A/AB/B型狮子、A/AB/B型天秤、A/AB/B水瓶。

最容易一见钟情的人：O/A/B型双子。

女生适合的爱人：AB/B型射手、白羊、AB/B型狮子、AB/B型天秤、AB/B型水瓶。

男生适合的爱人：AB/A型射手、AB/A型白羊、AB/A型狮子、AB/A型天秤、AB/A水瓶。

最不的爱人：O型双鱼、O型处女

O型血的射手座

爱上一个人的O型射手朋友是直接和坦率的，不会遮遮掩掩自己的感情。也因为他们这种可爱的自信，在爱情上的成功概率总是很高！即便遭到拒绝，乐观的他们也会表现的很洒脱，决不会纠缠不休。恋爱的时候，O型射手是不喜欢整天粘在一起的，爱一份自由的空间，但是对爱人的心是全心全意的。

好友：A/O/B型的射手、A/O/B型的白羊、A/O/B型狮子、A/O/B型天秤、A/O/B型水瓶。

最容易一见钟情的人：A或AB型双子。

女生适合的爱人：B型射手、O/B型白羊、O/B型狮子、O/B型天秤、O/B型水瓶。

男生适合的爱人：B型射手、A/B型白羊、A/B型狮子、A/B型天秤、A/B型水瓶。

最不的爱人：AB型双鱼、AB型处女

【摩羯座】

A型血的羯座：

A羯人往往不会有很多桃花或逸事，他们在爱情方面是保守、腼腆的、不轻易投入的，但一旦投入，是专一又忠贞的爱人，也许他(她)自己不喜享受，但会倾其所有给你更好的生活。

好友：羯、金牛、处女、天蝎、双鱼。（A/B/AB/O型 ）

最容易一见钟情的人：O/B/AB型巨蟹

女生适合的爱人：（O/AB/B）型羯、金牛、处女、天蝎、双鱼。

男生适合的爱人：（AB/B）型羯、金牛、处女、天蝎、双鱼。

最不的爱人：A型白羊、A型天秤

B型血的羯座:

B型血羯人在感情方面是比较晚熟和简单的，也会比较被动，他们不会很挑剔，也容易因为被爱而感动，如果可以遇到一个真诚相待的爱人，B羯会很心满意足的安于平淡的家常生活，而不是喜新厌旧。

好友：A/AB/O型的羯、金牛、处女、天蝎、双鱼。

最容易一见钟情的人：O/A/AB型巨蟹

女生适合的爱人：AB/O型羯、金牛、处女、天蝎、双鱼。

男生适合的爱人：O/A/AB型羯、金牛、处女、天蝎、双鱼。

最不的爱人：B型白羊、B型天秤

AB型血的羯座：

AB型羯人对待爱情的态度是羯人里唯一一个可能有着浪漫幻想的族群，在没有恋爱之前，他们的脑海里已经预演和构想过很多遍恋爱的场景，虽然最后往往还是会晚恋。找到相爱的人后，AB型羯会是很忠贞和纯洁的爱人，愿意热情的为对方付出，不会计较在爱中的得失。

好友：（A/AB/B）型的羯、金牛、处女、天蝎、双鱼。

最容易一见钟情的人：O/A/B型巨蟹。

女生适合的爱人：（AB/B）型羯、金牛、处女、天蝎、双鱼。

男生适合的爱人：（AB/A）型羯、金牛、处女、天蝎、双鱼。

最不的爱人：O型白羊、O型天秤

O型血的羯座：

O型羯人的桃花会比其他的羯人多一些，但往往只是表面上的热闹，很多O型羯人看似有着众多异性朋友，但真正要他们迈出恋爱的那一步，还是会考虑再三、冷静又理性的。对于O型羯人来说，爱情也是可以很实际的，而且，无论爱情有多美好多吸引人，都不能与工作的重要性相提并论。一个事业成功的O型血羯人，谈起恋爱来才会是和迷人的，而一个事业处于低谷的O型血羯人，根本不会有兴趣谈什么恋爱或者会是个非常糟糕的爱人。

好友：A/O/B型的羯、金牛、处女、天蝎、双鱼。

最容易一见钟情的人：A或AB型巨蟹。

女生适合的爱人：B型羯、O/B型金牛、O/B型处女、O/B型天蝎、O/B型双鱼。

男生适合的爱人：B型羯、A/B型金牛、A/B型处女、A/B型天蝎、A/B型双鱼。

最不的爱人：AB型白羊、AB型天秤

【水瓶座】

A型血的水瓶座：

是追寻永恒爱情的专一者，将男女关看得既神又是纯洁，对于爱情，是天生的冷静派，由于慧眼独具，能潜爱情之中的利己及独占欲，所以你绝不轻言爱情。渴望尊重个人行为的爱情,一旦找到发自内心相爱的对象，会付以人间最深厚的感情及体贴去关怀所爱的人，成为一个包容对方的理想伴侣。希望自由自在地彼此相爱双方一起成长，但并非彼此束缚。

好友： A/B/AB/O型的水瓶、双子、天秤、射手、白羊。

最容易一见钟情的人：O/B/AB型狮子

女生适合的爱人：O/AB/B型水瓶、双子、天秤、射手、白羊。

男生适合的爱人：AB/B型水瓶、双子、天秤、射手、白羊。

最不的爱人：A型金牛、A型天蝎

B型血的水瓶座：最热闹活泼的水瓶座

活泼的B型血水瓶座人对于爱情，却有着保守的一面，他们喜欢的，是聪明但个性稳定牢靠的异性。B型血型的水瓶座拥有淡如水的爱情，不会有疯狂的热恋期，也不会出现决裂式的大争吵，对感情却恰巧相反，态度十分淡然。由于并不想占有一个特定的对象，所以，与其说由直接追求的方式找到伴侣，倒不如说是由细水长流的友谊，逐渐演变成爱情。

好友：A/AB/O型的水瓶、双子、天秤、射手、白羊。

最容易一见钟情的人：O/A/AB型狮子

女生适合的爱人：AB/O型水瓶、双子、天秤、射手、白羊。

男生适合的爱人：O/A/AB型水瓶、双子、天秤、射手、白羊。

最不的爱人：B型金牛、B型天蝎

AB型血的水瓶座：最冷静理性的水瓶座

一般AB型水瓶座人发展一段感情的速度绝不会是“闪电式”的，而是基于互相了解、深入接触以后，他们才会放心的去爱。如果在他们身上发生“闪电式”的恋爱，那么多半只是游戏的态度了。

好友：A/AB/B型的水瓶、双子、天秤、射手、白羊。

最容易一见钟情的人：O/A/B型狮子。

女生适合的爱人：AB/B型水瓶、双子、天秤、射手、白羊。

男生适合的爱人：AB/A型水瓶、双子、天秤、射手、白羊。

最不的爱人：O型金牛、O型天蝎

O型血的水瓶座：最圆滑实际的水瓶座

O型血水瓶座人的外表看似与B型水瓶人一样活泼热闹，但内心却冷静理智，也更自我，一切从实际的角度出发做考量。对于爱情，他们不会因为喜欢对方而冲昏了头脑，而是从各个方面认真的考虑清楚以后，才决定如何发展。

好友：A/O/B型的水瓶、双子、天秤、射手、白羊。

最容易一见钟情的人：A或AB型狮子。

女生适合的爱人：B型水瓶、O/B型双子、O/B型天秤、O/B型射手、O/B型白羊。

男生适合的爱人：B型水瓶、A/B型双子、A/B型天秤、A/B型射手、A/B型白羊。

最不的爱人：AB型金牛、AB型天蝎

【双鱼座】

A型血的双鱼座–外柔内刚的双鱼座

A型血的双鱼座人男女在爱情方面差异有点大， A型双鱼女一旦遇到喜欢的人，是大胆和热情的，而A型双鱼男则比较被动和害羞。A型血的双鱼座人对待爱情的态度相对其他双鱼座人来的现实许多，也冷静许多，发展一段恋情是以婚姻为前提的。他们可能暗地里喜欢一个人很久，却又因为觉得某方面不合适而理性的拒绝去发展这段感情。即使他们寂寞，即使一个人冷清，也要等待那个足够完美或者合适走入婚姻的人出现。

好友： A/B/AB/O型的双鱼、巨蟹、天蝎、羯、金牛。

最容易一见钟情的人：O/B/AB型处女

女生适合的爱人：O/AB/B型双鱼、巨蟹、天蝎、羯、金牛。

男生适合的爱人：AB/B型双鱼、巨蟹、天蝎、羯、金牛。

最不的爱人：A型双子、A型射手

B型血的双鱼座–随遇而安的双鱼座

B型血的双鱼座男生是温柔多情的，总是轻易就可以电到很多女生，却又总决定不了自己明确的感情走向。但B型血的双鱼座女生并不喜欢把双鱼的浪漫多情体现在外表上，有点害羞的她们把浪漫都隐***在心底，静静的等待那个会发现她内心的人出现。

好友：A/AB/O型的双鱼、巨蟹、天蝎、羯、金牛。

最容易一见钟情的人：O/A/AB型处女

女生适合的爱人：AB/O型双鱼、巨蟹、天蝎、羯、金牛。

男生适合的爱人：O/A/AB型双鱼、巨蟹、天蝎、羯、金牛。

最不的爱人：B型双子、B型射手

AB型血的双鱼座–浪漫多变的双鱼座

AB型血的双鱼座是个至情者，爱情至上，只愿奉献自己的高贵情操，只希望一心一意地爱人及被爱，不愿任何杂质或欲望掺入感情。爱情是AB型血的双鱼座生命中的转折点，为了爱，自己往往会发生盲目牺牲的错误，爱慕对方而不敢说出口，不接受别人却无法拒绝。对AB型血的双鱼座来说，玩弄感情或对爱情不忠，是不可饶恕的错误。一旦坠入爱河，你会整个人投入其中，用温文尔雅的方式表达自己浓烈的感情。

好友：A/AB/B型的双鱼、巨蟹、天蝎、羯、金牛。

最容易一见钟情的人：O/A/B型处女。

女生适合的爱人：AB/B型双鱼、巨蟹、天蝎、羯、金牛。

男生适合的爱人：AB/A型双鱼、巨蟹、天蝎、羯、金牛。

最不的爱人：O型双子、O型射手

O型血的双鱼座–温和安定的双鱼座

他们是易于感动的，一旦陷入爱情的O型双鱼座人是真诚的。对于爱情，他们是典型的双鱼，希望拥有深深的纯纯的爱，没有任何的物质或世俗因素掺杂在里面。有时候对他们来说，爱情可以只是新鲜的空气而已，而不用面包。

好友：A/O/B型的双鱼、巨蟹、天蝎、羯、金牛。

最容易一见钟情的人：A或AB型处女。

女生适合的爱人：B型双鱼、O/B型巨蟹、O/B型天蝎、O/B型羯、O/B型金牛。

男生适合的爱人：B型双鱼、A/B型巨蟹、A/B型天蝎、A/B型羯、A/B型金牛。

最不的爱人：AB型双子、AB型射手

下载万年历带农历，经典万年历老黄历

万年历带农历

各位好，在前面有一期作品中，我们曾经在Excel中实现了万年历的，当时也有很多 友看过我的那期 或，附带有评价和收***，在此向你们表示感谢。

另外，有个名叫“斑斓虎zcy”的粉丝评论说我做的万年历如果含有农历就完美了，对这位粉丝的提议我欣然接受，另外，虽然我没采用“斑斓虎zcy”粉丝提供的公历转农历的关键技术模版，但对“斑斓虎zcy”粉丝的热心表示深深的谢意！

本期，我们先来用之一种实现吧。

一、Excel前端带农历万年历界面设计

界面的设计，这里和上次那一期万年历的界面一样，这里不做过多描述，这里就只以截图直接呈现给各位吧。如下图所示

图1 带农历的万年历界面

二、用一实现带农历万年历的功能代码

模块1中代码如下：

‘强势自定义“公历”—-“农历”互转函数

‘ ：互联

‘修正：今日号 “跟我学Office高级办公应用” 2023 /10/12

‘—农历数据定义—

‘先以 Hexadecimal_To_Binary 函数还原成长度为 18 的字串，其定义如下：

‘前12个字节代表1-12月：1为大月，0为小月；压缩成十六进制(1-3位)

‘第13位为闰月的情况，1为大月30天，0为小月29天；(4位)

‘第14位为闰月的月份，如果不是闰月为0，否则给出月份(5位)

‘最后4位为当年农历新年的公历日期，如0131代表1月31日；当作数值转十六进制(6-7位)

‘定义如下农历(阴历)日期常量(1899～2100，共202年，但是事实上我们只需要用到1900～2100这201年即可）

Private Const ylData = “AB500D2,4BD0883,” _

“4AE00DB,A5700D0,54D0581,D2600D8,D9500CC,655147D,56A00D5,9AD00CA,55D027A,4AE00D2,” _

“A5B0682,A4D00DA,D2500CE,D25157E,B5500D6,56A00CC,ADA027B,95B00D3,49717C9,49B00DC,” _

“D4A00D9,EA500CE,6A9157E,5AD00D6,2B600CC,86E137C,92E00D3,C8D1783,C9500DB,D4A00D0,” _

“D8A167F,B5500D7,56A00CD,A5B147D,25D00D5,92D00CA,D2B027A,A9500D2,B550781,6CA00D9,” _

“B5500CE,535157F,4DA00D6,A5B00CB,457037C,52B00D4,A9A0883,E9500DA,6AA00D0,AEA0680,” _

“AB500D7,4B600CD,AAE047D,A5700D5,52600CA,F260379,D9500D1,5B50782,56A00D9,96D00CE,” _

“49700D7,64B00CC,74A037B,EA500D2,6B50883,5AC00DB,AB600CF,96D0580,92E00D8,C9600CD,” _

“D95047C,D4A00D4,DA500C9,755027A,56A00D1,ABB0781,25D00DA,92D00CF,CAB057E,A9500D6,” _

“B4A00CB,BAA047B,B5500D2,55D0983,4BA00DB,A5B00D0,5171680,52B00D8,A9300CD,795047D,” _

“6AA00D4,AD500C9,5B5027A,4B600D2,96E0681,A4E00D9,D2600CE,EA6057E,D5300D5,5AA00CB,” _

“76A037B,96D00D3,4AB0B83,4AD00DB,A4D00D0,D0B1680,D2500D7,D5200CC,DD4057C,B5A00D4,” _

“56D00C9,55B027A,49B00D2,A570782,A4B00D9,AA500CE,B25157E,6D200D6,ADA00CA,4B6137B,” _

“93700D3,49F08C9,49700DB,64B00D0,68A1680,EA500D7,6AA00CC,A6C147C,AAE00D4,92E00CA,” _

“A9B0883,A9500DB,B4A00CF,B6A067F,AD500D7,55A00CD,ABA047C,A5A00D4,52B00CA,B27037A,” _

“69300D1,7330781,6AA00D9,AD500CE,4B5157E,4B600D6,A5700CB,54E047C,D1600D2,E960882,” _

“D5200DA,DAA00CF,6AA167F,56D00D7,4AE00CD,A9D047D,A2D00D4,D1500C9,F250279,D5200D1”

‘定义农历 (阴历)每月的汉字大写日期“天”

Private Const ylMd0 = “初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五” _

“十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十 “

‘定义农历 (阴历)一年中的汉字大写日期“月”

Private Const ylMn0 = “正二三四五六七十冬腊”

‘定义农历 (阴历)年中的“天干”(如：甲乙丙丁……等)

Private Const ylTianGan0 = “甲乙丙丁戊已庚辛壬癸”

‘定义农历 (阴历)年中的“地支”(如：子丑寅卯辰……等)

Private Const ylDiZhi0 = “子丑寅卯辰巳午未申酉戌亥”

‘定义农历 (阴历)年中的“属相”(如：鼠牛虎兔龙……等)

Private Const ylShu0 = “鼠牛虎兔龙蛇马羊猴鸡狗猪”

Public shp_year_select As Shape, y ‘定义公有全局变量年份选择组合框shp_year_select和用于存储选择的年份变量y，以便所有的过程都可以调用和回传数据

Sub Run_Fill_Calender() ‘运行填充日历

[b4].Select

n = shp_year_select.ControlFormat.Value

y = shp_year_select.ControlFormat.List(n)

[O1] = y ” 年历” “[” Mid(GetYLDate(y “-6-1”), 4, 6) “]”

Fill_Calender_Datas ‘调用“填充日历数据”过程

[a65535] = y ‘将选择过的年份存储在单元格”A65535″中

End Sub

Sub Fill_Calender_Datas() ‘填充日历数据

Dim rg(1 To 12) As Range ‘定义12个元素的的范围区域对象数组

‘为区域对象数组的每个区域对象元素对象指派这12个区域对象具体的实体

Set rg(1) = [b5:h10]: Set rg(2) = [j5:p10]: Set rg(3) = [r5:x10]: Set rg(4) = [z5:af10]

Set rg(5) = [b15:h20]: Set rg(6) = [j15:p20]: Set rg(7) = [r15:x20]: Set rg(8) = [z15:af20]

Set rg(9) = [b25:h30]: Set rg(10) = [j25:p30]: Set rg(11) = [r25:x30]: Set rg(12) = [z25:af30]

For i = 1 To 12

Select Case i

Case 1, 3, 5, 7, 8, 10, 12: days_31 y, i, rg(i)

Case 4, 6, 9, 11: days_30 y, i, rg(i)

Case 2: days_29_Or_28 y, i, rg(i)

End Select

Next

End Sub

Sub Erse_Calender_Datas() ‘清空日历数据

Dim rg As Range

Set rg = [5:10,15:20,25:30]

[b4].Select

rg.ClearContents

[O1] = “—- 年历[—–年]”

yr = Year(Date)

‘以下是当今日期的年份在表单组合框中显示

For i = 1 To shp_year_select.ControlFormat.ListCount

If yr = Val(shp_year_select.ControlFormat.List(i)) Then

n = i

Exit For

End If

Next

shp_year_select.ControlFormat.ListIndex = n

End Sub

Sub days_31(y, m, r As Range) ‘月大–31天

Dim da As Date, d

r.ClearContents

week_str = “日一二三四五六”

d = 1

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

First_Day_Pos_In_Week_Area = InStr(week_str, ws) ‘每月初始的1号在日历星期区域的位置

For d = 1 To 31

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

Other_Day_Pos_In_Week_Area = InStr(week_str, ws)

‘实际的每月的号数应该加上每月初始的1号在日历星期区域的位置减去1“”d + (First_Day_Pos_In_Week_Area – 1)，为了在第7个位置仍然将该号 _

数放在该行，所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”，然后再除7取整，同时乘以7后加上该号数在日历中星期区域的实际列数 _

位置，即可得到该号数在日历区域的设计位置

p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area

yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数，取后四个汉字月日日期字

yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份

yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子

If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”，则即刻用该月的月份替代该阴历月份的首个日子

r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置

If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配，则将当前填充的日期单元格选择成活动状态

Next

End Sub

Sub days_30(y, m, r As Range) ‘月小–30天

Dim da As Date, d

r.ClearContents

week_str = “日一二三四五六”

d = 1

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

First_Day_Pos_In_Week_Area = InStr(week_str, ws) ‘每月初始的1号在日历星期区域的位置

For d = 1 To 30

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

Other_Day_Pos_In_Week_Area = InStr(week_str, ws)

‘实际的每月的号数应该加上每月初始的1号在日历星期区域的位置减去1“”d + (First_Day_Pos_In_Week_Area – 1)，为了在第7个位置仍然将该号 _

数放在该行，所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”，然后再除7取整，同时乘以7后加上该号数在日历中星期区域的实际列数 _

位置，即可得到该号数在日历区域的设计位置

p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area

yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数，取后四个汉字月日日期字

yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份

yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子

If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”，则即刻用该月的月份替代该阴历月份的首个日子

r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置

If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配，则将当前填充的日期单元格选择成活动状态

Next

End Sub

Sub days_29_Or_28(y, m, r As Range) ‘闰年2月份29天，平年2月份28天(例如2023 年就是闰年)

Dim da As Date, d

r.ClearContents

week_str = “日一二三四五六”

d = 1

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

First_Day_Pos_In_Week_Area = InStr(week_str, ws) ‘每月初始的1号在日历星期区域的位置

If Is_LeepYear(y) Then ‘闰年2月份天数

For d = 1 To 29

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

Other_Day_Pos_In_Week_Area = InStr(week_str, ws)

‘实际的每月的号数应该加上每月初始的1号在日历星期区域的位置减去1“”d + (First_Day_Pos_In_Week_Area – 1)，为了在第7个位置仍然将该 _

号数放在该行，所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”，然后再除7取整，同时乘以7后加上该号数在日历中星期区域的实 _

际列数位置，即可得到该号数在日历区域的设计位置

p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area

yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数，取后四个汉字月日日期字

yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份

yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子

If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”，则即刻用该月的月份替代该阴历月份的首个日子

r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置

If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配，则将当前填充的日期单元格选择成活动状态

Next

Else ‘平年2月份天数

For d = 1 To 28

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

Other_Day_Pos_In_Week_Area = InStr(week_str, ws)

‘实际的每月的号数应该加上每月初始的1号在日历星期区域的位置减去1“”d + (First_Day_Pos_In_Week_Area – 1)，为了在第7个位置仍然将该 _

号数放在该行，所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”，然后再除7取整，同时乘以7后加上该号数在日历中星期区域的实 _

际列数位置，即可得到该号数在日历区域的设计位置

p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area

yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数，取后四个汉字月日日期字

yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份

yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子

If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”，则即刻用该月的月份替代该阴历月份的首个日子

r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置

If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配，则将当前填充的日期单元格选择成活动状态

Next

End If

End Sub

Function Is_LeepYear(y) As Boolean ‘给定的年份是否为闰年LeepYear的判断

Is_LeepYear = True

Else

Is_LeepYear = False

End If

End Function

‘自定义“公历转农历”日期函数

Function GetYLDate(ByVal strDate As String) As String

On Error GoTo ExitFunction_Label

If Not IsDate(strDate) Then Exit Function ‘如果参数strDate非日期的无效字串，则退出本函数工作

‘定义setDate–设置的未来日期，tYear–未来日期的本年份，tMonth–本月份，tDay–本日子

Dim setDate As Date, tYear As Integer, tMonth As Integer, tDay As Integer

setDate = CDate(strDate) ‘为该GetYLDate()函数参数的字串转换后的日期赋予设定的日期

tYear = Year(setDate): tMonth = Month(setDate): tDay = Day(setDate) ‘年、月、日分别取值

‘如果不是有效有日期，退出

If tYear 2100 Or tYear 1900 Then Exit Function

‘定义daList()–是元素为18位日期二进制字串数组，conDate–农历新年日期，thisMonths–本年的二进制 _

月份信息(可能 闰月)

Dim daList() As String * 18, conDate As Date, thisMonths As String

‘定义AddYear–是相对1900年递增的年，AddMonth–月份增量，AddDay–天数增量，getDay–农历新年和设 _

之日期相差天数

Dim AddYear As Integer, AddMonth As Integer, AddDay As Integer, getDay As Integer

‘定义YLyear–农历(阴历)年的字串，YLShuXing–农历(阴历)年的属相

Dim YLyear As String, YLShuXing As String

‘定义dd0–农历(阴历)年的阴历日子，mm0–农历(阴历)年的阴历月，ganzhi()–每个元素为2个字的天干地 _

支数组

Dim dd0 As String, mm0 As String, ganzhi(0 To 59) As String * 2

‘定义RunYue–农历(阴历)年是否闰月的布尔型标志，RunYue1–农历(阴历)年闰月月份

Dim RunYue As Boolean, RunYue1 As Integer, mDays As Integer, i As Integer

‘加载2年内的农历数据

ReDim daList(tYear – 1 To tYear)

daList(tYear – 1) = Hexadecimal_To_Binary(Mid(ylData, (tYear – 1900) * 8 + 1, 7))

daList(tYear) = Hexadecimal_To_Binary(Mid(ylData, (tYear – 1900 + 1) * 8 + 1, 7))

AddYear = tYear

initYL:

AddMonth = CInt(Mid(daList(AddYear), 15, 2))

AddDay = CInt(Mid(daList(AddYear), 17, 2))

conDate = DateSerial(AddYear, AddMonth, AddDay) ‘农历新年日期

getDay = DateDiff(“d”, conDate, setDate) + 1 ‘相差天数

If getDay 1 Then AddYear = AddYear – 1: GoTo initYL

thisMonths = Left(daList(AddYear), 14) ‘前14位为本年的二进制月份信息(可能有闰月)存于thisMonths中

RunYue1 = Val(“H” Right(thisMonths, 1)) ‘闰月月份

If RunYue1 0 Then ‘如果有闰月，则立即修正本年的二进制月份信息thisMonths，形成真正有效的二进制序 _

列信息

thisMonths = Left(thisMonths, RunYue1) Mid(thisMonths, 13, 1) Mid(thisMonths, RunYue1 + 1)

End If

thisMonths = Left(thisMonths, 13) ‘最后一次修正本年的二进制月份信息thisMonths，直接取13个月的情况

For i = 1 To 13 ‘遍历1～13个月，找到并计算含闰月的有效天数，同时退出循环

mDays = 29 + CInt(Mid(thisMonths, i, 1))

If getDay mDays Then

getDay = getDay – mDays

Else

If RunYue1 0 Then ‘如果有闰月，则进一步根据i的值情况做如下处理

If i = RunYue1 + 1 Then RunYue = True ‘若i确系为闰月，则将闰月标志置为真

If i RunYue1 Then i = i – 1 ‘若i大于闰月月份，则将将i回退修正

End If

AddMonth = i ‘最终记录下i作为真正的增量月份存入AddMonth

AddDay = getDay ‘同时，将得到的天数差作为增量天数

Exit For

End If

Next

dd0 = Mid(ylMd0, (AddDay – 1) * 2 + 1, 2) ‘用查找表的形式当前日期对应的农历(阴历)日子

mm0 = Mid(ylMn0, AddMonth, 1) + “月” ‘用查找表的形式当前日期对应的农历(阴历)月份

For i = 0 To 59 ‘0～59表示60年一个甲子，表示以60年一个的形式，通过查找表精准每年的天干地支

ganzhi(i) = Mid(ylTianGan0, (i Mod 10) + 1, 1) + Mid(ylDiZhi0, (i Mod 12) + 1, 1)

Next

YLyear = ganzhi((AddYear – 4) Mod 60) ‘通过查找表形式得出阴历年的天干地支表示形式

YLShuXing = Mid(ylShu0, ((AddYear – 4) Mod 12) + 1, 1) ‘通过查找表形式得出阴历年的属相表示形式

If RunYue Then mm0 = “闰” mm0 ‘如果某阴历月份有闰月，特别加上“闰X月”的形式

GetYLDate = “农历：” YLyear “(” YLShuXing “)年” mm0 dd0 ‘拼接当前日期的完整农历信息

ExitFunction_Label:

End Function

‘将压缩的阴历字还原

Private Function Hexadecimal_To_Binary(ByVal strHex As String) As String ‘十六进制转二进制

Dim i As Integer, i1 As Integer, tmpV As String

Const hStr = “0123456789ABCDEF”

Const bStr = “0000000100100011010001010110022210001001101010222100110222102221”

tmpV = UCase(Left(strHex, 3))

‘以下是十六进制转二进制的具体操作

For i = 1 To Len(tmpV)

i1 = InStr(hStr, Mid(tmpV, i, 1))

Hexadecimal_To_Binary = Hexadecimal_To_Binary Mid(bStr, (i1 – 1) * 4 + 1, 4)

Next

Hexadecimal_To_Binary = Hexadecimal_To_Binary Mid(strHex, 4, 2)

‘十六进制转十进制

Hexadecimal_To_Binary = Hexadecimal_To_Binary “0” CStr(Val(“H” Right(strHex, 2)))

End Function

ThisWorkbook中代码如下：

Private Sub Workbook_Open() ‘工作簿一打开即刻初始化表单组合框数据并且在组合框中显示之前选择过的年份

Set shp_year_select = Sheets(1).Shapes(“年份选择”)

shp_year_select.ControlFormat.RemoveAllItems

‘万年历的年份范围初步设定为“1900～2100”

For i = 1900 To 2100

shp_year_select.ControlFormat.AddItem i

Next

‘以下是重新还原表单组合框控件之前选定过的年份显示

yr = [a65535]

For i = 1 To shp_year_select.ControlFormat.ListCount

If yr = Val(shp_year_select.ControlFormat.List(i)) Then

n = i ‘遍历整个表单组合框所有元素，查找与yr是否相匹配的元素，若找到即刻记下该编号并存于n中

Exit For

End If

Next

shp_year_select.ControlFormat.ListIndex = n ‘让表单组合框显示找到的之前选择过的年份

End Sub

三、用一实现带农历万年历运行效果测试

(一)选择年份，呈待生成带农历万年历状态。如下图所示

图2 选择年份准备生成带农历万年历

(二) 选择的年份，生成实实在在的带农历的万年历。如下图所示

图3 生成带农历万年历效果

(三)压下清除日历数据按钮，准备进行带农历的万年历数据清除。如下图所示

图4 准备清除带农历万年历数据

(四)压下状态下的清除日历数据按钮情况下 该按钮，完成带农历万年历数据的清除，并将年份组合框内的显示提示年份置为最新当前时间的年份。如下图所示

图5 清除带农历万年历数据结果

四、技术亮点小结

(一)充分利用寻找农历闰月和压缩的农历字还原完成公历转农历

(二)在Excel的万年历数据填充单元格时，用字串处理函数处理农历生成的数据

(三)存储记忆上次打开万年历的数据

最后，还是感谢大家的持续 (号：跟我学Office高级办公)、推广、点评哦！谢谢大家继续 下期第二中实现带农历的万年历设计！

以上内容是小编关于免费占卜算命网和免费占卜算命免费下载的分析和解答，如果你对文章有什么意见或者建议请在下面留言，我们将整理和分享给大家阅读。