060 - 自定义一个获取星期几的函数 Sub GetWeek

MYCSG.CN

060 - 自定义一个获取星期几的函数 Sub GetWeek - 文章首页→返回版区

■标题:060 - 自定义一个获取星期几的函数 Sub GetWeek

■作者:IPSC [2025/3/26 18:42:25]

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

'Activity.LoadLayout("Layout1")

Activity.Title="获取今天星期几"

Msgbox(GetWeek,"获取今天星期几")

End Sub

Sub GetWeek '获取星期几的副程序

Dim Ary() As String '定义Ary阵列变量

Dim W As Int '定义数值变量

'注意:阵列最前面多加一个空格是因为Array函数返回是从0起算

Ary= Array As String ("","星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")

w=DateTime.GetDayOfWeek(DateTime.Now) '获取当前日期是这星期的第几天 1-7 1=星期日

Return Ary(W) '返回星期几

End Sub

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】(暂无)

(查看完整版网页)

短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
46 毫秒 .