根据星座属相和出生月份起网名，生宵属相，星座是怎么计算的？知道一个日期

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

Subtest2

DimiptValueAsString

DimiptYAsInteger

DimiptMDAsInteger

DimmodValAsInteger

DimshuxiangAsString

星座的名字是怎样起的？

iptValue=InputBox(&8221;)

iptY=Left(iptValue，4)

iptMD=Right(iptValue，4)

modVal=iptY-+1

If(modVal12)Then

ElseIfmodVal=0Then

EndIf

SelectCasemodVal

Case1

shuxiang=&8221;

Case2

shuxiang=&8221;

Case3

shuxiang=&8221;

Case4

shuxiang=&8221;

Case5

shuxiang=&8221;

Case6

shuxiang=&8221;

Case7

shuxiang=&8221;

Case8

shuxiang=&8221;

Case9

shuxiang=&8221;

shuxiang=&8221;

shuxiang=&8221;

shuxiang=&8221;

EndSelect

Sheets(1).Range(&8221;)=shuxiang

EndSub

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

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

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

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

星座的起源

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