打渔日历小程序怎么弄

您好，要制作一个打渔日历小程序，首先需要准备一些必要的工具，比如一台电脑，一个编程语言，一个编程环境，一个编程编辑器，一个编程调试器等。

其次，需要确定打渔日历小程序的功能，比如提供渔民的渔获信息，提供渔民的渔获日历，提供渔民的渔获记录等。

然后，根据功能需求，编写程序代码，实现打渔日历小程序的功能，并进行调试，确保程序的正确性和可靠性。

最后，将程序打包，发布到合适的平台，供渔民使用。

总之，要制作一个打渔日历小程序，需要准备必要的工具，确定功能需求，编写程序代码，进行调试，打包发布等步骤。

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

#Region " 返回农历 "

'返回农历

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

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

Private cCalendar As New SystemGlobalizationChineseLunisolarCalendar

Public Function PubFunGet_CNDate(ByVal sDateTime As Date) As String

cCalendar = New SystemGlobalizationChineseLunisolarCalendar

Dim lyear As Integer = cCalendarGetYear(sDateTime)

Dim lmonth As Integer = cCalendarGetMonth(sDateTime)

Dim lday As Integer = cCalendarGetDayOfMonth(sDateTime)

Dim lweek As Integer = cCalendarGetDayOfWeek(sDateTime)

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

Dim leapMonth As Integer = cCalendarGetLeapMonth(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 StringConcat(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(cCalendarGetTerrestrialBranch(cCalendarGetSexagenaryYear(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 StringConcat(days1((day - 1) \ 10), days((day - 1) Mod 10))

Else

Return StringConcat(days((day - 1) \ 10), days1(1))

End If

End If

'无效的日!

End Function

#End Region

在桌面上双指捏合，进入桌面编辑状态。

2、点击窗口小工具，然后可以向左滑动查看所有小工具。

3、部分小工具（如天气）会有多种样式，点击该图标可以展开所有的样式。向右滑动展开的样式，可以收拢。

4、点击需要的小工具图标，即可将其添加到当前屏幕。如果当前屏幕没有空间，您可以长按并拖动该图标，将其添加到其它屏幕。

以上就是关于打渔日历小程序怎么弄全部的内容，包括:打渔日历小程序怎么弄、用vb编写万年历小程序、华为nova7桌面小程序日历表怎么没有年份等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！