提起根据星座属相和出生月份起网名，大家都知道，有人问生宵属相，星座是怎么计算的？知道一个日期2014月8月20日，用vba怎么算出生肖和星座？，另外，还有人想问用你的姓氏加上你星座的的第一个字、再加上你的属相。你叫什么名字？，你知道这是怎么回事？其实星座的名字是怎样起的？，下面就一起来看看生宵属相，星座是怎么计算的？知道一个日期月8月20日，用vba怎么算出生肖和星座？，希望能够帮助到大家！

根据星座属相和出生月份起网名

1、生宵属相，星座是怎么计算的？知道一个日期月8月20日，用vba怎么算出生肖和星座？

刚给你写了个属相查询的的代码，中文不好用，就用英文和汉语拼音写了下

Subtest2()

DimiptValueAsString

DimiptYAsInteger

DimiptMDAsInteger

DimmodValAsInteger

DimyearTimesAsInteger

DimshuxiangAsString

星座的名字是怎样起的？

iptValue=InputBox(“PleaseinputDate(Like)”)

iptY=Left(iptValue,4)

iptMD=Right(iptValue,4)

modVal=iptY-+1

yearTimes=Abs(modVal)/12

If(modVal>12)Then

modVal=Abs(modVal)-(12*yearTimes)

ElseIfmodVal<=0Then

modVal=12-(Abs(modVal)-(12*yearTimes))

EndIf

SelectCasemodVal

Case1

shuxiang=”Ma”

Case2

shuxiang=”Yang”

Case3

shuxiang=”Hou”

Case4

shuxiang=”Ji”

Case5

shuxiang=”Gou”

Case6

shuxiang=”Zhu”

Case7

shuxiang=”Shu”

Case8

shuxiang=”Niu”

Case9

shuxiang=”Hu”

shuxiang=”Tu”

shuxiang=”Long”

shuxiang=”She”

EndSelect

Sheets(1).Range(“A1”)=shuxiang

EndSub

这里是把年作为基准年开始查询属相的。

作为参考，星座就能写出来。

2、用你的姓氏加上你星座的的**个字、再加上你的属相。你叫什么名字？

姓丁，巨蟹座，属龙。哈哈这么大的名字，丁

3、根据星座属相和出生月份起网名:星座的名字是怎样起的？

星座的起源

远古时候的人们为了从畜牧、农耕，必须详细了解季节的变化。他们注意到季节不同，天上的星星排列也不同，为方便一记忆及把这些知识流传，于是运用幻想力把天上杂乱无章的星星串连起来，这就是星座的起源了。

的星座

星座源于古希腊，提及星座的最早文猷，见载于一首公元前年希腊诗人Aratus所著之诗歌Phaenomena中。诗中可见，还在Aratus之前，星座一词已为人类所知晓。

Aratus所提及之星座，完全没有近南天极上空之星体。这大概是因为这些星体，皆位于星座命名人当年所处地域的地平线之下。从这些未经测缯的天域范围，我们可以推断，当年为星座命名的人们大概都居住在北纬36°左右，即希腊以南，埃及以北的地方，亦即古巴比伦及Sumer所在。

由于地球自转时的岁差现象，地球南北极与南北天极会随着时间作周期性偏离。据推算，这片未经测缯的天域，正好处于公元前年的南天极之上，而这时亦正好是古巴比伦人和Sumerians所身处的年代。

据此,我们大有理由相信希腊人的星座实源于古巴比伦和Sumer。有关星座的知识，后来辗转传至埃及，令当时居住在该处的一些希腊学者得以知晓。年，希腊科学家托勒玫(Ptolemy)编写了一本名为「天文学大成」(Amagest)的天文书藉，书中撮要介绍了当时希腊人的天文知识，包括列出48个星座和其内颗星体的名称，及对它们的光度的估计。

以上就是与生宵属相，星座是怎么计算的？知道一个日期月8月20日，用vba怎么算出生肖和星座？相关内容，是关于生宵属相，星座是怎么计算的？知道一个日期2014月8月20日，用vba怎么算出生肖和星座？的分享。看完根据星座属相和出生月份起网名后，希望这对大家有所帮助！