[music]/music/04%20Tears%20in%20Heaven.wma [/music]& & 生的美丽，活的漂亮！ & & 一切尽在漂亮女人！！& & 你知道打卡帖，生日小组么？ & & 快来加入我们的漂亮家族吧！每天都有一个精心准备的生日贴给当天的寿星，希望大家多多支持顶贴哟~~~注：请大家跟贴注明自己的阳历生日，阴历生日太过复杂，暂不登记。1月1日& &≮蓉蓉≯、sunskylym、猫咪的魔幻世界1、乖乖小妖精1月2日1月3日& &karengong1月4日& &8821314、celia_66、joyce 1月5日& &xax771126、Joyce-Lee 1月6日& &catcat1月7日& &幸运的豆豆、qdjessie1月8日& &小魔鱼YY、chuichui1101月9日& &童馨儿1月10日1月11日&&粉红宝贝、水晶蔷薇、要做天使德魔鬼1月12日&&香猪猪、tangtangd1月13日&&百灵雪1月14日&&mocha1月15日1月16日&&蔻蔻2008、寻觅我的背心、cherry0116、00嘻嘻001月17日&&可儿宝贝版、pinkhoney、searching……、梦中的梦、宏盛～喜气洋洋、diulea1月18日&&爱飞儿、臻臻2121、小牛代小鱼发言、对爱失去信心的女人 1月19日&&张小猫、丽丽格格、kellyma008、爱是寂寞的谎1月20日&&zhloveinzaghi、滑头猫猫 1月21日&&您的ID已被封郁闷死 1月22日&&榴莲酥、没有女人味1月23日&&qq2047、胖露露、lin01231月24日&&东方华子、我爱羽衣、姗姗love伟伟、瓶子中的丫头1月25日&&幽然百合1月26日&&endless19845、我爱DODO 1月27日&&千山、蛋糕魔法店、童话里的公主1月28日&&轻微jenny 、哭泣的紫罗兰、姽婳、快乐小腰、莱卡1月29日&&贝雯、sweet-potato 1月30日&&和臭臭一起看星星、*天使莞尔*1月31日&&侠女22680、小小小米粒、musicflykiki2月1日2月2日& &green222、幻城印象2月3日& &幽兰儿、智亲智爱2月4日2月5日& &521稻草人、桃源世外2月6日& &HappyAngel_jing、安妮璐璐、清香图兰朵2月7日& &刀刀鱼、杨杨私家坊、冰凌雪2月8日& &可爱小乖、样样老婆、贝贝猫、冰雪小丸子、油焖大虾、冰雪小樱桃2月9日& &nini_1984、寻_bobo、绿茶的滋味 2月10日&&爱吃木瓜32月11日&&粉色唇印2月12日&&smile_eyes、粉蓝心事2月13日&&*懒虫虫*、OliveOyl2月14日&&reginecarol、逍遥天天、宠宠爱宝马、我是小小考拉、亦凡格桑美朵2月15日&&零食baby、lublu12132月16日&&有限怀念无限悲伤、我爱蒙妞2月17日 2月18日&&香熏女人、我爱我的凤凰phoenix 2月19日&&myj_1326、★潆潆一水★、我爱DODO、放你去飞 2月20日&&小手举起来、依豆、water-baby、☆糊糊☆ 2月21日&&香℃雪儿、双鱼飞飞、懒懒的鱼儿2月22日&&apple鱼、无名拉拉2月23日&&nino、雁子姐姐2月24日&&vivianmm、zwqmx2月25日&&麻辣小桔子2月26日&&小斑快跑、就是不听老公的话2月27日&&down尽天下美图、林娇安、tinky2月28日&&漫步de尐妖、xiaoqiqi2283月1日& &lonelyangel、紫桐居屋、睡猫猫、彩虹里的水滴、patricia雪、双鱼座的兔子、松岛由美3月2日& &静静的角落、vivian、小嫱、kinki_fan、漫步de尐妖、葡萄不乖3月3日& &lyj800107@3月4日& &爱猫猫、sissi03043月5日& &xiaofeixia、linda_705、猫o深白色3月6日& &灰色小猫69996 3月7日& &酸甜草莓、kitty_lm 3月8日& &云蝶衣、sissi0304、白狐狸菲菲、crystalplane、顶尖o蒂芙妮o3月9日& &雪儿2005、宝贝小公主 3月10日&&千慧、xiuxiu_310、浪漫曼舞、鱼鱼幽幽、dangdang0003月11日&&BALHAZ、爱笑的小豆儿3、g弦上的咏叹调、花花樱桃、仨毛3月12日&&晒太阳的鱼、金玉良缘、非也非也3月13日&&家装盲、桃花盛开521、WENAN6201、michelle^^&&3月14日&&秋潇雨兰、我刚结婚、美的、化装美丽3月15日&&放你去飞、遗忘、wy881663月16日&&栗子蛋糕、雪地里的雪糕、梦飞儿、可爱的露西娅、软软的槲寄生3月17日&&norway、我典当了爱情3月18日&&*依亭傍木*、新月依云裳3月19日&&曼殊斐尔、佩然3月20日&&那年的情书、安小惠3月21日&&地主婆娘、凤飞3月22日&&我要糖糖、淡水鱼爱上海、漂亮的天天3月23日&&lubibb、土豆土豆我是地瓜、baiheswj、范怡雯3月24日3月25日&&真不错、花飞花舞花满天、漂漂宝贝3月26日&&雅静、鱼鱼时尚馆13月27日&&shuizhiwuxiang、jixia3月28日&&可爱小老鼠、小优公主3月29日&&精灵再现3月30日& &3月31日&&honggugu、我爱蝴蝶、活着的滋味、jojo52199、妙曼流年4月1日& &米奇娃娃、鹏静401、雨天的浪漫*、下一站王菲、宠物小宝贝4月2日& &花颀宝宝、桃☆之妖妖、甜甜的小豆包、海湘儿、你给我的幸福4月3日& &可爱桃淘宝贝吧、风吹过的时候4月4日& &笑语嫣然008、一只耳环的安危、我最咔哇咿、miyuk4月5日4月6日4月7日& &幻想２００８ 4月8日& &快乐的小海螺、飘香绿茶、茈菸、甜甜小檬檬4月9日& &年华似水123 4月10日&&smallpuppy4月11日&&*媚惑女人*4月12日&&^花茶^、茜茜猫2、alison0412 4月13日&&丫头来了4月14日4月15日&&蝴蝶结结、baiheswj、水晶绿茶、mythtiger、会隐形的猪4月16日&&漂亮可爱的猪、乖乖-豆4月17日4月18日&&真不错、亚妃4月19日&&yigeren、二手玫瑰4月20日&&笨点点4月21日&&狗狗快跑、越越小桃、夜深花正寒、尐臭嫚4月22日&&胡桃夹子的夏天4月23日4月24日&&哞哞婷、37度小妖、yigeren4月25日&&装可爱4月26日4月27日&&冬日的孤独、guigui小媳妇、綿錵餹嘵苮釹4月28日&&我有糖罐罐4月29日&&我是陌生人、修竹独倚4月30日&&甜甜的店5月1日& &yimeier56、储秀轩摄影5月2日& &蜗牛的壳、由由爱爱、snow7245月3日& &唄唄、酸杨梅5月4日5月5日& &苞米花杨杨、p桃乐丝p、lingyanbo5月6日& &他哥哥的、昆昆爱踢球5月7日& &壹品良衣、水-妖5月8日& &经典女人5月9日& &一支烟一杯酒一个人、buglife5月10日&&丽丽27009、小蔚、memory5月11日&&极品小馒头5月12日&&清茶若酒5月13日&&杨优优、ωǒ不孤单5月14日&&素心、老公爱抽烟5月15日&&我爱薰衣草*、cocochanel、天生冰雪质5月16日&&王紫莎、衣衣不舍Angel 5月17日&&小猫妙妙、宝贝～5月18日&&可爱淘淘_贝贝5月19日&&冷月格格5月20日&&douzi1874、卡卡迷、我是谁的宝贝？、万国发工艺品、人鱼小姐、wanglei2009 5月21日&&喜欢漂亮的丑小鸭5月22日&&啾啾ai、咗饵。5月23日&&evangel52、星舞、亮丫头5月24日&&sophiastone1981、清风渐兰、*phoebe*5月25日&&晓晓的、colacat1983、米卡宴拉、LT521JUNJUN5月26日&&孤独的愉悦、炒饭de意大利、资小朵5月27日&&*一起开始的旅程*、*榴莲飘飘*、dawn_527、zmxqd5月28日&&新鲜榴莲5月29日&&dorothy5月30日&&蓉の儿5月31日&&青岛kitty531、苏格兰莹火虫 6月1日& &泡+泡0oo 6月2日6月3日& &简单の幸福、lizzy00206月4日& &爱睿爱小哈、平静水6月5日6月6日& &习惯了幸福6月7日& &小璐嫚、爱的感言6月8日& &狐狸静、gemini_gao 6月9日& &某人的宝贝6月10日&&偶爱巧克力、cshdee6月11日&&欣欣程程、酸奶公主、家有小朱、新雅婷美容、淡淡的紫色、跳海的小美人鱼6月12日&&蓝色心事、迪迪的杂货铺、水中漫步、飘零的冬雪、zhaodacamel、甜蜜Nicky 6月13日&&渺如湮6月14日&&手手♀冰凉6月15日&&yoyo615、lavender_wsyy、泡沫の夏6月16日&&海看花、黑夜漾、阿c、ga、crystal_yingying、涩咪咪6月17日&&carol56_55、美丽公主6月18日&&涅磐凤凰6月19日&&rejoice、晶晶屋2008 6月20日&&海是蓝的！、嘛哩嘛哩哄、*黑色巧克力*6月21日&&酷酷奇奇、琳儿、HappyOrchid、茶树油 6月22日&&怀念夏天、淑女堂6月23日&&虹的彼岸、可爱糖糖6月24日6月25日&&小笨鸟6月26日&&时尚yy 6月27日&&zhaohongyuzhy6月28日&&娜娜姐姐的店2006、会跳舞的辣椒、胡言乱语 6月29日&&xiaoli!!! 6月30日7月1日& &chenjiayijoy、爱新鲜、小魔女的魔法棒7月2日& &快乐女人0702 7月3日& &洋鱼非洋、doudou512_77月4日& &风中的百合花、自由空间txy0075、YUKI333 7月5日& &小肉抛棄的菜7月6日& &millerlola521、宝宝果7月7日& &温暖的泪7月8日& &松树的眼泪、§夜魅2046§7月9日7月10日7月11日7月12日&&什锦菜、灵气十足7月13日7月14日&&菱珊、天堂礼遇、在快乐中飞翔、紫水晶女人7月15日7月16日&&蓬蓬袖7月17日&&lucy1981、悠悠雅风、小白救我、幸福小鱼、青岛宝贝儿19827月18日&&cookie2bb、快乐的女人随便看看、我是你的蜜糖7月19日&&夏歌7月20日&&众里寻job千百度、如意兜兜、伤了！痛了！哭了！、新娘顾问：佳庆、樱桃吃丸子7月21日&&偏偏飞舞7月22日&&hui2008****、当丫头遇到大头（大头）、王小猫 7月23日&&碧罗红纱、lucy111、晶晶亮透心凉、衣身衣饰、空谷竹音7月24日&&紫晶水心、提拉米苏的爱、调皮雪儿7月25日&&水部、summerxuqi、y_double、秀气7月26日&&jinfashion、许愿石、我是年画、波丽衣酷7月27日&&晓璐物语爱仔仔7月28日&&xiaoting0728、bestangel21 7月29日&&fishyuj、小昭777、地瓜地瓜我是土豆、拙拙妈妈、ninithere、小妖mm、平静水7月30日&&北极热带鱼、龙叶草、堕落天使李诺7月31日&&风中的蔷薇、skygirlwss8月1日& &二妞妞儿、心雪纷飞8月2日& &冬眠、aza!aza!fighting!、已婚已昏、晕晕可爱多、荷叶上的蛇8月3日& &大树大树、眩水晶8月4日& &青岛璐嘉儿8月5日& &water4278月6日& &猪猪马儿、applegrace8月7日& &我的微笑叫透明、我和我的寂寞8月8日& &良良凉粉****、尾巴鱼、＠氧气泡泡＠、奢华影姿、普洱茶专营、Sundayのmoon 8月9日& &最爱妞妞、最爱猪猪8月10日&&薰衣草の花語8月11日&&美女天生不讲理、无名居士、小好好8月12日&&我是小池子8月13日&&吉娃娃、楼拉TT 8月14日8月15日&&淳哲的妈妈8月16日&&畔畔love牛牛、y_double、hmsy982、fanqie8168月17日&&毛毛蛐蛐、柠檬拼图、*水晶*8月18日&&生如夏花dolly123、悠然若水、**彤彤** 8月19日&&小昭777、地瓜地瓜我是土豆、xu兔乖乖8月20日8月20日&&grace0098月21日&&新SHENG活8月22日&&fxlina8月23日&&滢珠、阳子宝贝儿8月24日&&乐瑶8月25日&&楚楚cc8月26日&&小球球8月27日&&loving_dy8月28日&&妖妹、zhy8月29日&&伊心杂货铺、snake0829、个人秘密8月30日&&lansebaobei8月31日&&liuweiandkai、水珠雨7001、优优扬9月1日& &夕阳下的舞步9月2日& &妞妞宝贝猪、秋之秋风9月3日& &syingying、我乖我怪9月4日9月5日& &柏拉图的爱、nina、·紫凝·9月6日& &意大利修女9月7日& &keer8023、雪雪妮儿 9月8日& &lan_2006、呵呵猫眼看世界、lan_2006 9月9日& &好好孩子、vivian_ma0909、小九九、aiyu幸福风--- 9月10日&&拿老头换糖吃9月11日&&无名邮俊⒚娉? 、毛毛虫虫、mosquito019月12日&&lusheyu、萱炫、萍盖儿、lonelyangel9月13日&&jz_love6、smaow、syingying、lulu09099月14日&&艺海拾贝、蔻丹之蓝、朱なな、萧莜岚葶、蓝眼娃娃9月15日&&*玫瑰飘香*9月16日&&michelle媛媛9月17日&&我爱花香不爱花花、阳阳2001 9月18日9月19日&&开心秋千9月20日&&风筝线线9月21日&&水兰色妖精、么么焱9月22日9月23日&&小馒头小豆包9月24日&&心情爽、so婆舞曼9月25日&&迎风飘、蓝色の猫猫、yaoyaotao9月26日&&ishara、想不出个好名字来、紫怡的风、小花袄9月27日9月28日&&花茶下午茶、芸芸的化妆间、kingcat、美吖、我家甜甜的妈咪9月29日&&情独媳妇、小宝呗、anan_qd、wei82929 9月30日&&anan_qd、wei82929、浪漫＿漫屋、轻歌曼舞10月1日& &漏网之鱼、奶油气鼓*789*、我爱象象、︷︷︷璐嫚﹖、喜欢百合的小俊、戴琛、浪花朵朵、happyhelen10月2日& &新韵彩、爱猫的兔子10月3日& &兔兔啃西瓜10月4日& &冰淇淋、langmanxiari、A犟丫头、斯妃10月5日& &巫婆宝宝、7月7日晴、m_a_g_g_i_e、寳貝不哭10月6日10月7日& &luckyheaven10月8日& &粉红的我10月9日& &毛球物语、夏林、瞬间淑女10月10日&&莫口、jimmy经典、★中国娃娃☆、JeckGuo、风动的记忆10月11日&&cherry、唐朝的格格、kitty_ghy 10月12日&&大白虾、美季、西瓜虫虫、梦的翅膀10月13日&&摇曳飞烟10月14日&&交换空间、anan_qd、wei82929、^红蔷薇^、锦瑟123、小小布丁、不懂事的小小孩10月15日&&想念晴空、mary-ranee10月16日10月17日&&大头贴、ttljl9988、阳阳2001、merrystar10月18日&&蝴蝶鱼10月19日&&香水麻衣、violetfish、恋爱中的鱼10月20日&&幸福满满屋、爱丽斯、lucylv、张的潘多拉的盒子10月21日&&清珊10月22日&&冰样年华、京华语言培训、姚菲啦10月23日&&茜茜爱夏天、xiaochun-1023、果果丫呀、baoren、猫猫不吃鱼10月24日&&liliaiglx、咋又喵了10月25日&&漂流的冰、馨匀_1981、佘太君驾到、我是你的傻瓜、阿紫696 10月26日&&小奶糖、晓蓝琳子、苗苗，小猫叫10月27日&&妙其、俊俊龙、露细细10月28日&&tinny1028、郑宝岛、巴厘岛的雪10月29日&&梦中的天使2005 10月30日&&你看蓝蓝的天、唱响春天、紫烟jingjing、忧郁泡沫、精致女人！10月31日&&咖啡杯里的百合、kissvinic、紫雪旋舞11月1日& &花开谁家、知心合一11月2日& &爱猫的兔子、可爱宠儿、妖艳小野猫、石一乐文宝宝11月3日& &moqimo11月4日& &loveyoko、pumpkin1104、doushinvhai888、快乐滴胖南瓜、杨柳静轩、ai81meng、幸福一小点儿、yinweiaisuoyiai、qqlovesl1026 11月5日& &青岛紫馨源、瞬间淑女、蜜雪晨曦11月6日& &女中豪杰、阳_young、summerlulu 11月7日& &SINGIN、刹那的光辉、天煞妖女、qdjinjin11月8日& &一块二、三日、lee紫苏11月9日& &银色小勺子、伊人如昔、悠兰、xiaomumu11月10日&&凝洁、lanbanana、暗香袖、清水筱筱、念念1、冬季飘雪、清水筱筱、漂漂1981、松松＆丫头11月11日&&威尼的蜜罐儿、pljj1111、晓不懂11月12日&&贝壳∮碎、卷卷圆圆卷卷、aishuidemao、MoMo*、生产队长开宝马、樱桃小芳芳、甜甜的草莓味11月13日&&粉色雨儿、apple13、冰雪热烈、小淘气mm、luojinyan、kissvinic、小坤kelly 11月14日&&豌豆花_小店、朋贝贝、衣身衣饰的老公、*欣宝宝*、天使没翅膀、朋贝贝11月15日&&俩木、胖胖341、静静爱漂亮、小精灵乖乖11月16日&&俏儿宝贝、过去的时间、蓝陌纤尘、卡路里、麥麥、子青82111月17日&&丫头与猪头、^^悠燃^^、无比温暖、小猪猪麦兜、joyce游走的鱼11月18日&&whib、小妖七七11月19日&&夏小米、vivi1119ok、LOVE金毛11月20日&&peggy2121hu、浪花三四朵11月21日&&开心豆豆、艳鬼11月22日&&游曳の小小鱼、小姿生活11月23日&&败金女、青皮哒橘子11月24日&&互相尊重11月25日&&我忘了，是吗？、ronger7576、拙拙妈妈（卓卓）、第四类情感、zhangjing8911、爱喝可乐的猫、yutianqian、漂流的冰11月26日&&kjshasha、79lululee11月27日&&wlkkk、京东黑发11月28日&&做棵蒲公英、高雅的罂粟、小猪的快乐生活、李萍儿、震天响、忆辰11月29日&&lacy、00zglmxmjx、雅琪妈、无法显示、梦想在飞、翡翠缘11月30日&&就这么定了、甜甜小檬檬12月1日& &小过客12月2日& &ニ潇湘妃子ギ、美丽大眼睛12月3日& &wnn1203、微微微蓝、风精灵娃娃、dragongirl12月4日& &takeshi_2001 12月5日& &lihongxizi、当丫头遇到大头（丫头）、佳佳寶貝12月6日& &静儿1981、vivian1206、n_82_912 12月7日& &海豚ooooo、wjlxlgj、babiesnow、跳舞的骆驼、温柔的小雪 12月8日& &咔咔宝贝公仔、姓猫名小咪5678、南南木12月9日& &女兵、heiseaimei、颓废的娃娃86、桃之1夭 12月10日&&門淇、绚彩灵动、我最爱棒棒糖12月11日&&星星荣荣、炙麻黄、miaomiaohaoqi、xiangyuan1976、猪宝宝52112月12日&&北方妮妮、妞妞球、gf2046、顺珊9921&&12月13日&&微澜的蔚蓝、优雅的精灵鼠、有时爱情徒有虚名、紫色风铃的浪漫、dikuangali12月14日&&琳琳^_^ 12月15日&&雯子-wendy 12月16日&&当时月亮、快乐宝儿12月17日&&小莉和虫虫12月18日12月19日&&思凡521 12月20日&&xiaoxiongtu12月21日&&优优狸猫、雪沁12月22日12月23日&&BB的BB、lovezbb12月24日&&饼干桶、♂飛天豆芽兔♀、卡蜜冰冰、牛嫚儿12月25日&&xiaoyuzhou512月26日&&石头的宝贝、水蓝儿宝贝、长腿妹妹12月27日&&阿里轩轩、lengbei212月28日12月29日&&心血来潮的香香猪、QD旺旺仙贝、11166、不吻花儿香12月30日&&我就是喜欢苹果、风影儿12月31日
分享给好友：
沙发：lubibb
以前的帖子丢了，很难过，所以重新发贴收集，想把每天的生日贴也拾起来继续。
3楼：虹的彼岸
偶来,6月23滴~~~~~~~~~~~~~
4楼：青皮哒橘子
阳历&&11&&23阴历&&10&&22偶过阳历哒~~~~~~因为阳历比阴历早将近一个月 这样就可以提前一个月收礼物&&嘎嘎
5楼：青皮哒橘子
涅？？昨天是 杨优优的生日？？？补一个&&生日快乐~~~~
6楼：漂亮可爱的猪
偶是4.16滴
7楼：心血来潮的香香猪
12月29日,看看有没有比我还晚的
8楼：liliaiglx
偶来10.24地
9楼：丽丽格格
哈哈我还没报呢，已经写上了～～～～～～～
10楼：ai81meng
阿拉的11月4日，呵呵，不知道和偶同一天的姐妹多不多
11楼：pinkhoney
偶阳历是1.17哒~~阴历是腊八哪天滴~~~嘿嘿~~
12楼：迪迪的杂货铺
我的生日是6月12日,好像和蓝色心事是1天
13楼：酸奶公主
14楼：由由爱爱
15楼：南南木
16楼：栗子蛋糕
17楼：p桃乐丝p
偶得阳历5.5&&阴历4.12
18楼：拿老头换糖吃
& && && && &
19楼：vivianmm
偶的没错，嘿嘿
20楼：孤独的愉悦
偶是5月26滴～木有和俺一天的吗？
21楼：青青岛社区网友如何在excel表中将阴历生日批量转换成阳历？_百度知道
如何在excel表中将阴历生日批量转换成阳历？
1.比如今天是日，用以下公式就可以得出农历七月二十四：2.虽然在遇到闰月时，显示结果有点差强人意，如下图中，日的农历应是十二月二十六，但因为那年有个闰五月，就无辜多出来一个月了。不过总比编代码要快捷多了吧，而且闰月也不是天天有。3.假如把公式改成：=MID(&甲乙丙丁戊己庚辛壬癸&,MOD(TEXT(A2,&[$-130000]e&)-4,10)+1,1)&MID(&子丑寅卯辰巳午未申酉戌亥&,MOD(TEXT(A2,&[$-130000]e&)-4,12)+1,1)&&年&&TEXT(A2,&[$-130000][DBNum1]m月&)&TEXT(A2,IF(--TEXT(A2,&[$-130000]d&)=10,&初十&,IF(--TEXT(A2,&[$-130000]d&)&10,&[$-130000][DBNum1]d&,&初[$-130000][DBNum1]d&)))，那就更像农历表示法了，不过因为农历每年开始日期都不一样，所以函数很难达到十分精确的结果，只能是将就着用。　　那就更像农历的表示法了。
其他类似问题
为您推荐：
DiZhi(8) = & 10) Then GongliStr = GongliStr & &十八&廿五&获取当前系统时间 curTime = XX_DATE '戊& Else GongliStr = GongliStr & curDay & &猴&年&鼠& '生成农历月;初五&十二& ShuXiang(1) = &)& MonName(3) = & DayName(21) = &生成当前公历年; DayName(10) = &月& NongliStr = NongliStr & &quot, ShuXiang(2) = & & curDay & &日& DayName(13) = &闰& DayName(9) = &壬& DiZhi(6) = &quot、日 isEnd = 0 m = 0 Do If (NongliData(m) &兔& MonName(6) = & '申& Else GongliStr = GongliStr & curMonth & &寅& DayName(29) = &蛇&十四& DayName(3) = &牛&*&农历& DiZhi(3) = &初十&(& & ShuXiang(((curYear - 4) Mod 60) Mod 12) & & MonName(11) = & DayName(28) = & End If ' MonName(8) = &廿一& MonName(1) = & ShuXiang(7) = & (Int(NongliData(m) / MonName(7) = &quot, ShuXiang(8) = &计算农历天干, NongliData(99); TianGan(3) = &廿三&quot、月;丁&月&公历每月前面的天数 MonthAdd(0) = 0 MonthAdd(1) = 31 MonthAdd(2) = 59 MonthAdd(3) = 90 MonthAdd(4) = 120 MonthAdd(5) = 151 MonthAdd(6) = 181 MonthAdd(7) = 212 MonthAdd(8) = 243 MonthAdd(9) = 273 MonthAdd(10) = 304 MonthAdd(11) = 334 ' NongliStr NongliStr = & 0) Then Exit Do End If &#39, TheDate &#39、属相 ==& & TianGan(((curYear - 4) Mod 60) Mod 10) & DiZhi(((curYear - 4) Mod 60) Mod 12) & &十九& DiZhi(11) = & DayName(24) = &quot, ShuXiang(11), NongliDayStr D DiZhi(7) = & TianGan(7) = & ShuXiang(4) = & ShuXiang(3) = &五& '亥&*&quot。 Public Function NongLi(Optional XX_DATE As Date) Dim MonthAdd(11);生成农历天干;子& DayName(5) = & DayName(2) = &月&十五& DiZhi(4) = &九& 65536) + 1)) Then curMonth = curMonth - 1 End If End If '廿九&八& TianGan(5) = &七& DayName(15) = &初七& DayName(20) = & 4) + curDay + MonthAdd(curMonth - 1) - 38 If ((curYear Mod 4) = 0 And curMonth & DayName(8) = &初四& 65536) + 1)) Then curMonth = 1 - curMonth ElseIf (curMonth & TianGan(2) = & DiZhi(1) = &初一&quot, curDay Dim GongliS DayName(6) = & 2) Next bit = bit Mod 2 If (TheDate &= 29 + bit) Then isEnd = 1 Exit Do End If TheDate = TheDate - 29 - bit n = n - 1 Loop If (isEnd = 1) Then Exit Do End If m = m + 1 Loop curYear = 1921 + m curMonth = k - n + 1 curDay = TheDate If (k = 12) Then If (curMonth = (Int(NongliData(m) &#47、地支; ShuXiang(9) = &农历数据 NongliData(0) = 2635 NongliData(1) = 333387 NongliData(2) = 1701 NongliData(3) = 1748 NongliData(4) = 267701 NongliData(5) = 694 NongliData(6) = 2391 NongliData(7) = 133423 NongliData(8) = 1175 NongliData(9) = 396438 NongliData(10) = 3402 NongliData(11) = 3749 NongliData(12) = 331177 NongliData(13) = 1453 NongliData(14) = 694 NongliData(15) = 201326 NongliData(16) = 2350 NongliData(17) = 465197 NongliData(18) = 3221 NongliData(19) = 3402 NongliData(20) = 400202 NongliData(21) = 2901 NongliData(22) = 1386 NongliData(23) = 267611 NongliData(24) = 605 NongliData(25) = 2349 NongliData(26) = 137515 NongliData(27) = 2709 NongliData(28) = 464533 NongliData(29) = 1738 NongliData(30) = 2901 NongliData(31) = 330421 NongliData(32) = 1242 NongliData(33) = 2651 NongliData(34) = 199255 NongliData(35) = 1323 NongliData(36) = 529706 NongliData(37) = 3733 NongliData(38) = 1706 NongliData(39) = 398762 NongliData(40) = 2741 NongliData(41) = 1206 NongliData(42) = 267438 NongliData(43) = 2647 NongliData(44) = 1318 NongliData(45) = 204070 NongliData(46) = 3477 NongliData(47) = 461653 NongliData(48) = 1386 NongliData(49) = 2413 NongliData(50) = 330077 NongliData(51) = 1197 NongliData(52) = 2637 NongliData(53) = 268877 NongliData(54) = 3365 NongliData(55) = 531109 NongliData(56) = 2900 NongliData(57) = 2922 NongliData(58) = 398042 NongliData(59) = 2395 NongliData(60) = 1179 NongliData(61) = 267415 NongliData(62) = 2635 NongliData(63) = 661067 NongliData(64) = 1701 NongliData(65) = 1748 NongliData(66) = 398772 NongliData(67) = 2742 NongliData(68) = 2391 NongliData(69) = 330031 NongliData(70) = 1175 NongliData(71) = 1611 NongliData(72) = 200010 NongliData(73) = 3749 NongliData(74) = 527717 NongliData(75) = 1452 NongliData(76) = 2742 NongliData(77) = 332397 NongliData(78) = 2350 NongliData(79) = 3222 NongliData(80) = 268949 NongliData(81) = 3402 NongliData(82) = 3493 NongliData(83) = 133973 NongliData(84) = 1386 NongliData(85) = 464219 NongliData(86) = 605 NongliData(87) = 2349 NongliData(88) = 334123 NongliData(89) = 2709 NongliData(90) = 2890 NongliData(91) = 267946 NongliData(92) = 2773 NongliData(93) = 592565 NongliData(94) = 1210 NongliData(95) = 2651 NongliData(96) = 395863 NongliData(97) = 1323 NongliData(98) = 2707 NongliData(99) = 265877 '日&卯&十六& DayName(22) = & TianGan(9) = &巳&正& DayName(18) = &获取NongliData(m)的第n个二进制位的值 bit = NongliData(m) For i = 1 To n Step 1 bit = Int(bit / 1) Then NongliDayStr = &quot、月; TianGan(1) = &quot、地支;0&二十& DayName(30) = &quot、日 ==&虎& MonName(5) = &猪&初九& ShuXiang(11) = & DayName(26) = &腊&六& '计算到初始时间日的天数;初八&三十&乙&廿八&农历日期名 DayName(0) = &农历月份名 MonName(0) = &quot, DiZhi(11);庚&辰& DayName(17) = & MonName(12) = & 10) Then GongliStr = GongliStr & & TianGan(4) = &地支名称 DiZhi(0) = &天干名称 TianGan(0) = & DiZhi(10) = &廿二& ShuXiang(6) = & ShuXiang(5) = & End If If (curDay & GongliStr curYear = Year(curTime) curMonth = Month(curTime) curDay = Day(curTime) GongliStr = curYear & & DayName(27) = & DayName(1) = & & curMonth & &初六& DayName(4) = & 4095) Then k = 11 Else k = 12 End If n = k Do If (n & MonName(4) = &0&癸&十&quot、日 ==& ' DayName(25) = & MonName(2) = &quot, curY戌&属相名称 ShuXiang(0) = &十一& MonName(10) = &quot：(正月初一) TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) /丙&年&初三&quot, TianGan(9); DiZhi(2) = & DayName(11) = &三&龙&酉&羊&未&quot, isE二& ShuXiang(10) = & DayName(14) = &廿四& ' DiZhi(5) = &廿七&quot将下面面这段代码保存在模块中; NongliDayStr If (curMonth & DayName(12) = &十一&quot，就可以用公式
=nongli(A1)
调用了;十三&quot, DayName(30); DayName(19) = & TianGan(8) = & MonName(9) = &quot, MonName(12) Dim curT廿六& & MonName(-1 * curMonth) Else NongliDayStr = MonName(curMonth) End If NongliDayStr = NongliDayStr & & DayName(7) = &辛&鸡& DayName(16) = &quot, NongliS DayName(23) = &甲&quot,马& 2) Then TheDate = TheDate + 1 End If '狗&丑&quot,己& DiZhi(9) = &quot, curM十七& If (curMonth &四& TianGan(6) = &午&初二&quot
来自团队：
阴历生日的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁