怎么把日期窗体的值显示在窗体文本框？

fengziiiiii

选择日期后，日期显示在窗体文本框
打开日历.zip (31.75 KB, 下载次数: 26)

2020-1-27 02:31 上传

点击文件名下载附件

这个功能可以实现吗？
谢谢！

蓝桥玄霜

加一句代码即可。
Excel有现成的日历控件的，何必用这个。

1. Private Sub cmdDay_Click(strDay As String, nNowMonth As Integer)
   
2. youXuan = True
   
3. Dim dtFirstDate
   
4. dtFirstDate = cmbYear.Text & Str_Fen & cmbMonth.Text & Str_Fen & "1"
   
5. dtSelDate = DateAdd("m", nNowMonth, dtFirstDate)
   
6. dtSelDate = CDate(Year(dtSelDate) & Str_Fen & Month(dtSelDate) & Str_Fen & strDay)
   
7. UserForm1.TextBox1.Text = dtSelDate
   
8. If Me.Visible = True Then
   
9. Me.Hide
   
10. End If
    
11. End Sub
    
12. Private Sub btnJinTian_Click()
    
13. youXuan = True
    
14. dtSelDate = CDate(strJin)
    
15. UserForm1.TextBox1.Text = dtSelDate
    
16. If Me.Visible = True Then
    
17. Me.Hide
    
18. End If
    
19. End Sub
    
20. Private Sub btnJuoTian_Click()
    
21. youXuan = True
    
22. dtSelDate = CDate(strZuo)
    
23. UserForm1.TextBox1.Text = dtSelDate
    
24. If Me.Visible = True Then
    
25. Me.Hide
    
26. End If
    
27. End Sub
    

复制代码

fengziiiiii

蓝桥玄霜 发表于 2020-1-27 09:33
加一句代码即可。
Excel有现成的日历控件的，何必用这个。

谢谢老师。因为表格不是私有的，别人的电脑可能没有且不会加载注册日历控件，所以才出此下策。
再请问一下，这段代码放哪里？

凌空一羽

Private Sub cmdDay_Click(strDay As String, nNowMonth As Integer)
youXuan = True
Dim dtFirstDate
dtFirstDate = cmbYear.Text & Str_Fen & cmbMonth.Text & Str_Fen & "1"
dtSelDate = DateAdd("m", nNowMonth, dtFirstDate)
dtSelDate = CDate(Year(dtSelDate) & Str_Fen & Month(dtSelDate) & Str_Fen & strDay)
If Me.Visible = True Then
Me.Hide
UserForm1.TextBox1 = dtSelDate  '显示日期
End If
End Sub

fengziiiiii

凌空一羽 发表于 2020-1-27 13:53
Private Sub cmdDay_Click(strDay As String, nNowMonth As Integer)
youXuan = True
Dim dtFirstDate

感谢你！！