輸入月日年，要求用weekday輸出該日期的星期，求高人指點，謝了。
uj5u.com熱心網友回復：
試試這段代碼:Dim datInput As Date
datInput = InputBox("請輸入日期(月-日-年):")
Dim intResult As Integer
intResult = Weekday(datInput, vbMonday)
MsgBox intResult
uj5u.com熱心網友回復：
彈出with 或物件變數未設定那如果月日年用text輸入該怎么寫？
uj5u.com熱心網友回復：
代碼:Option Explicit
Private Sub Command1_Click()
If Not IsDate(Text1.Text) Then
MsgBox "輸入錯誤!"
Else
Dim intResult As Integer
intResult = Weekday(Text1, vbMonday)
MsgBox intResult
End If
End Sub
演示:
下載地址:
鏈接：https://pan.baidu.com/s/1vvPgjbDKRelwnBVO8TR2MA
提取碼：3u1i
uj5u.com熱心網友回復：
非常感謝，可以運行了，謝謝大佬！
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/36936.html
標籤：VB基礎類
上一篇：vb 資料型別不匹配
下一篇：VBA小白求助大神，謝謝各位了