Board logo

標題: [發問] 有關 Calendar1 的使用 [已解決] [打印本頁]
作者: jimmyhk    時間: 2011-9-21 00:19     標題: 有關 Calendar1 的使用 [已解決]

本帖最後由 jimmyhk 於 2011-9-23 13:37 編輯

請問有沒有辦法控制彈出日曆,
於點選日期後輸出的值是 yyyymmdd,
現在它只能出 yyyymd <- 如是個位數月份及個位數日期.
  1. Private Sub Calendar1_Click()
  2.     Calendar1.Visible = False


  5.     Label24.Caption = Calendar1.Year & Calendar1.Month & Calendar1.Day
  6.     Sheets("Input").Range("A23").Value = Label24.Caption
  7. End Sub

  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
複製代碼
作者: GBKEE    時間: 2011-9-21 21:15

回復 1# jimmyhk
2003版 不支援 Calendar 了
試試看:
  1. Label24.Caption = Format(Calendar1.Value, "YYYY/MM/DD")
複製代碼
作者: Hsieh    時間: 2011-9-21 21:51

回復 2# GBKEE


    Calendar物件並非不支援，只因您未安裝MS ACCESS緣故
安裝日曆控件
作者: jimmyhk    時間: 2011-9-21 23:00

回復 2# GBKEE

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


謝謝
作者: jimmyhk    時間: 2011-9-21 23:02

回復 2# GBKEE


另有一點小知識.
只要在 2003 上匯入 MSCAL.OCX 這個檔案就可以在 2003 上執行小日曆的了~
作者: GBKEE    時間: 2011-9-22 07:12

回復 3# Hsieh
感謝告知,MS ACCESS 我沒安裝.
回復 5# jimmyhk
學習了
作者: jimmyhk    時間: 2011-9-22 11:58

回復 6# GBKEE

這個是很簡單的方法,
只是正在想這樣使用會否與侵權有衝突.
作者: GBKEE    時間: 2011-9-22 15:02

回復 7# jimmyhk
只是正在想這樣使用會否與侵權有衝突
請問會有什麼 侵權,衝突
作者: jimmyhk    時間: 2011-9-22 17:06

回復 8# GBKEE

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

本帖最後由 GBKEE 於 2011-9-22 20:30 編輯

回復 9# jimmyhk
到3樓 Hsieh 超版  所指的   安裝日曆控件 下載 即可
或改用 2003的 DTPicker
  如圖 :  勾選   Microsoft Date and Time Picker Control 6.0


[attach]7905[/attach]
作者: jimmyhk    時間: 2011-9-22 20:19

本帖最後由 jimmyhk 於 2011-9-22 21:14 編輯

回復 10# GBKEE


#GBKEE
明白, 我試試看~



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)