星期模块.bas

来自「此程序更祥细介绍和运用VB的绘图功能设计的指针时钟。」· BAS 代码 · 共 25 行

Attribute VB_Name = "xingji"
Option Explicit

Function GetWeek(setDate As Date) As String  '星期
Dim ww As Integer

ww = Weekday(setDate, vbSunday)
Select Case ww
Case 1
GetWeek = "星期日"
Case 2
GetWeek = "星期一"
Case 3
GetWeek = "星期二"
Case 4
GetWeek = "星期三"
Case 5
GetWeek = "星期四"
Case 6
GetWeek = "星期五"
Case 7
GetWeek = "星期六"
End Select
End Function