- 博客(0)
- 资源 (2)
- 收藏
- 关注
RSS订阅VB 編寫周別自動生成程序
輸入年月日自動獲得對應的周別
Private Sub Command1_Click()
Dim date0 As Date
Dim date1 As Date
If Len(Text2.Text) <> 10 Or InStr(1, Text2.Text, "/") = 0 Or IsDate(Text2.Text) = False Then
MsgBox "¤é´Á®æ¦¡¿ù»~,¥¿½TÀ³¬°¡Gyyyy/mm/dd"
Exit Sub
End If
date0 = Year(Text2.Text) & "/01/01"
date1 = Text2.Text
ww = DateDiff("ww", date0, date1) + 1
Text2.Text = "²Ä" & ww & "©P"
End Sub
2013-10-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人