返回列表 上一主題 發帖

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

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

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

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


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

  6. Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  7.     Calendar1.Visible = True
  8. 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
複製代碼

回復 1# jimmyhk
2003版 不支援 Calendar 了
試試看:
  1. Label24.Caption = Format(Calendar1.Value, "YYYY/MM/DD")
複製代碼

TOP

回復 2# GBKEE


    Calendar物件並非不支援,只因您未安裝MS ACCESS緣故
安裝日曆控件
學海無涯_不恥下問

TOP

回復 2# GBKEE

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


謝謝

TOP

回復 2# GBKEE


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

TOP

回復 3# Hsieh
感謝告知,MS ACCESS 我沒安裝.
回復 5# jimmyhk
學習了

TOP

回復 6# GBKEE

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

TOP

回復 7# jimmyhk
只是正在想這樣使用會否與侵權有衝突
請問會有什麼 侵權,衝突

TOP

回復 8# GBKEE

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

TOP

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

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


EX1.GIF
2011-9-22 20:30

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言,就如鑽石般珍貴;但對愚人來說,卻像是一把泥土,一點價值也沒有。
返回列表 上一主題