[發問] 有關 Calendar1 的使用 [已解決]

jimmyhk

請問有沒有辦法控制彈出日曆,
於點選日期後輸出的值是 yyyymmdd,
現在它只能出 yyyymd <- 如是個位數月份及個位數日期.

1. Private Sub Calendar1_Click()
   
2.     Calendar1.Visible = False
   
3. 
   
4. 
   
5.     Label24.Caption = Calendar1.Year & Calendar1.Month & Calendar1.Day
   
6.     Sheets("Input").Range("A23").Value = Label24.Caption
   
7. End Sub
   
8. 
   
9. Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
10.     Calendar1.Visible = True
    
11. End Sub

複製代碼

暫時用了以下方法解決

1. Private Sub Calendar1_Click()
   
2.     Calendar1.Visible = False
   
3. If Calendar1.Month < 10 Then
   
4.     m = "0" & Calendar1.Month
   
5.     Else
   
6.     m = Calendar1.Month
   
7.     End If
   
8. If Calendar1.Day < 10 Then
   
9.     d = "0" & Calendar1.Day
   
10.     Else
    
11.     d = Calendar1.Day
    
12.     End If
    
13.     Label24.Caption = Calendar1.Year & m & d
    
14.     Sheets("Input").Range("A23").Value = Label24.Caption
    
15. End Sub

複製代碼

jimmyhk

回復 2# GBKEE

原來只是加句就可以做到.
程式碼比我原做的更簡單~
又學到東西了.


謝謝

jimmyhk

回復 2# GBKEE


另有一點小知識.
只要在 2003 上匯入 MSCAL.OCX 這個檔案就可以在 2003 上執行小日曆的了~

jimmyhk

回復 6# GBKEE

這個是很簡單的方法,
只是正在想這樣使用會否與侵權有衝突.

jimmyhk

回復 8# GBKEE

因為原定某些 OFFICE 版本沒有  MSCAL.OCX,
(要有包括 Access/安裝 Access 的版本才有)
現在先到一部有 Access license 的電腦抄 MSCAL.OCX 到一部沒有 Access License 的電腦內,
好像會有問題.  (以公司用戶來看)

jimmyhk

回復 10# GBKEE


#GBKEE
明白, 我試試看~