星座万年历小程序,小型万年历

本文目录一览：

• 1、求电子万年历的小程序，可以自己添加一些备注的那种。
• 2、测星座的软件有哪些，能测自己是什么星座的软件叫什么名字
• 3、用vb编写万年历小程序

求电子万年历的小程序，可以自己添加一些备注的那种。

这个只需要查阳历和农历的功能吗 你试试这个吧微信小程序 大算万年历Pro

测星座的软件有哪些，能测自己是什么星座的软件叫什么名字

提起测星座的软件有哪些，大家都知道，有人问能测自己是什么星座的软件叫什么名字，另外，还有人想问哪一种测试星座的软件比较好，你知道这是怎么回事？其实有哪些星座相关的app推荐？下面就一起来看看能测自己是什么星座的软件叫什么名字，希望能够帮助到大家！

测星座的软件有哪些

1、测星座的软件有哪些:能测自己是什么星座的软件叫什么名字

亲，星座是按阳历（公历、新历）日期划分的，首先你得知道你的阳历出生日期，然后对照下面的资料。公历和农历的查询，可以查看通过在线电子万年历。测测星座的app。

白羊座3月21日——-4月19较准的星盘app。

金牛座4月20日——-5月20日

双子座5月21日——-6月21日

巨蟹座6月22日——-7月22日

狮子座7月23日——-8月22日去问星座app可以测什么。

有哪些星座相关的app推荐？

处女座8月23日——-9月22日

天秤座9月23日——10月23日拍照识别星座的app。

天蝎座10月24日—–11月22日

射手座11月23日—–12月21日

摩羯座12月22日——1月19日可以看星座位置的软件。

水瓶座1月20日——-2月18日和测测星座一样的app。

双鱼座2月19日——-3月20日

2、测星座的软件有哪些:哪一种测试星座的软件比较好

星座网或者星座星座软件。

3、测星座的软件有哪些:有哪些星座相关的app推荐？

星座APP的话，推荐测测和准了这2个星座，知识很专业，很多专业的占星师都是用的这2个APP。其中里面包括星座、八字、、、塔罗牌等，还可以在社区提问、，有很多文章，你可以试试看，很不错的软件。免费测星座的软件。

4、测星座的软件有哪些:有关于星座测算的APP，求推荐？

APP的话可以去“易相测算”出来测试星座还可以测财运、桃花、婚姻之类的

5、测星座的软件有哪些:测测星座app可以测什么？

测测星座app关于星座的软件有哪些。

测测星座app可以查询关于星座的一些话题跟测测星座相似的软件。

6、测星座的软件有哪些:星座测试软件哪个好

7、测星座的软件有哪些:有没有什么软件能测、出自己是什么星座的？

天蝎座测星座最准的软件。

特点：神秘敏锐什么软件看星座最准。

掌管宫位：第八宫

性：

特征：渴望

主管星：冥王星、火星怎么用测测星座软件。

颜色：紫色、黑色

珠宝：碧玉、黑水晶测星盘软件哪个好。

幸运号码：4测测星座app准不准。

金属：铁

天蝎座精力旺盛、占有欲极强，对于生活很有目标，不达到目的誓不罢休，复仇心理重，记仇会让自己不顾一切报复曾经伤害过你的人。天蝎男自我色彩很强烈，天蝎女的自我保护意识很强，不容易接近。可以查星座的app。

8、测星座的软件有哪些:哪个软件可以测星座？

微信小程序就可以哦

9、测星座的软件有哪些:请问有一个可以看星座和天上星星的软件叫什么名字?

可以看星座和天上星星的软件叫谷歌星空。

谷歌星空是Google推出的一款星空观测android软件，它如同一个微型的天文望远镜，可以引导用户仰望星空，探寻宇宙的神秘之处。

星座指的是：拉丁名是CONSTELLATION，是指天上一群在天球上投影的位置相近的恒星的组合。英文是“Constellation”，意思是“星座”，“星群”；而占星学中所指的星座的意思是“记号”，“标记”，“象征”。不同的文明和历史时期对星座的划分可能不同。

谷歌星空GoogleSkyMap：星座app排行榜。

是Google推出的一款星空观测android软件，它如同一个微型的天文望远镜，可以引导用户仰望星空，探寻宇宙的神秘之处。目前，谷歌星空GoogleSkyMap看各种天体，包括星体，星座，星系，行星和月球，允许用户自由设定显示哪些天体。陶白白星座分析软件。

GoogleSkyMap完全依赖android手机内建的全球卫星系统GPS及加速器，地利用用户所在位置，包括面对的方向，手机倾向何方等等，来显示当前所在位置的星空图，而且星空图可以随着用户移动而移动。

以上内容参考：-谷歌星空

以上内容参考：-星座

以上就是与能测自己是什么星座的软件叫什么名字相关内容，是关于能测自己是什么星座的软件叫什么名字的分享。看完测星座的软件有哪些后，希望这对大家有所帮助！

用vb编写万年历小程序

用VB做万年历，非常关键点就是农历写法，参考代码如下：

#Region " 返回农历 "

'返回农历

'cCalendar.MaxSupportedDateTime 返回支持的最大日期，即2101-1-28

'cCalendar.MinSupportedDateTime 返回支持的最小日期，即190－2-19

Private cCalendar As New System.Globalization.ChineseLunisolarCalendar

Public Function PubFunGet_CNDate(ByVal sDateTime As Date) As String

cCalendar = New System.Globalization.ChineseLunisolarCalendar

Dim lyear As Integer = cCalendar.GetYear(sDateTime)

Dim lmonth As Integer = cCalendar.GetMonth(sDateTime)

Dim lday As Integer = cCalendar.GetDayOfMonth(sDateTime)

Dim lweek As Integer = cCalendar.GetDayOfWeek(sDateTime)

'获取闰月， 0 则表示没有闰月

Dim leapMonth As Integer = cCalendar.GetLeapMonth(lyear)

Dim isleap As Boolean = False

If (leapMonth 0) Then

If (leapMonth = lmonth) Then

'闰月

isleap = True

lmonth = lmonth - 1

ElseIf (lmonth leapMonth) Then

lmonth = lmonth - 1

End If

End If

Return String.Concat(GetLunisolarYear(lyear), IIf(isleap = True, "闰年", "年"), GetLunisolarMonth(lmonth), "月", GetLunisolarDay(lday))

End Function

'十天干

Private tiangan As String() = {"甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸"}

'十二地支

Private dizhi As String() = {"子", "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥"}

'十二生肖

Private shengxiao As String() = {"鼠", "牛", "虎", "免", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪"}

'农历月

Private months As String() = {"正", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二(腊)"}

'农历日

Private days1 As String() = {"初", "十", "廿", "三"}

Private days As String() = {"一", "二", "三", "四", "五", "六", "七", "八", "九", "十"}

'返回农历年（天干 地支 生肖）

Private Function GetLunisolarYear(ByVal year As Integer) As String

GetLunisolarYear = ""

If (year 3) Then

Dim tgIndex As Integer = (year - 4) Mod 10

Dim dzIndex As Integer = (year - 4) Mod 12

Return tiangan(tgIndex) dizhi(dzIndex) "[" shengxiao(dzIndex) "]"

End If

'无效的年份!

End Function

'返回生肖

Private Function GetShengXiao(ByVal sDateTime As Date) As String

Return shengxiao(cCalendar.GetTerrestrialBranch(cCalendar.GetSexagenaryYear(sDateTime)) - 1)

End Function

'返回农历月

Private Function GetLunisolarMonth(ByVal month As Integer) As String

GetLunisolarMonth = ""

If (month 13 AndAlso month 0) Then

Return months(month - 1)

End If

'无效的月份!

End Function

'返回农历日

Private Function GetLunisolarDay(ByVal day As Integer) As String

GetLunisolarDay = ""

If (day 0 AndAlso day 32) Then

If (day 20 AndAlso day 30) Then

Return String.Concat(days1((day - 1) \ 10), days((day - 1) Mod 10))

Else

Return String.Concat(days((day - 1) \ 10), days1(1))

End If

End If

'无效的日!

End Function

#End Region

关于星座万年历小程序和小型万年历的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。