如何選擇每月和每年的日期？

在我的項目使用兩個DTPicker，我想選擇每月和每年的喜歡的MM/YYYY而yyyy

現在使用日報發佈時間的喜歡23/02/2009（DD/MM/YYYY ），我想使用像每月（MM/YYYY）和年（YYYY）

我的代碼

Public Function DaysInMonth(dte As Date) As Integer 
    Dim d As Date 
    d = DateAdd("m", 1, dte) 
    d = DateAdd("d", -1, d) 
    DaysInMonth = Day(d) 
End Function 

Private Sub Form_Load() 

Dim dteFrom As Date 
Dim dteTo As Date 
dteFrom = Format(CDate(Year(Date) & "-" & Month(Date) & "-" & "01"), "yyyy-mm-dd") 
dteTo = Format(CDate(Year(Date) & "-" & Month(Date) & "-" & DaysInMonth(dteFrom)), "yyyy-mm-dd") 

dtpFrom.Value = dteFrom 
dtpTo.Value = dteTo 

End Sub

上面的代碼工作，每天的日期。我想使用每月和每年的日期也現在我選擇一個日期顯示日期的完整值，如03-02-2009，我想顯示每月和每年的數據的

預期產量。

每月日期

03/2009 to 04/2009 – It should take a value of 01/03/2009 to 30/04/2009 
05/2009 to 05/2009 – It should take a value of 01/05/2009 to 31/05/2009

年日期

2008 to 2008 – It should take a value of 01/01/2008 to 31/12/2008 
2008 to 2009 – It should take a value of 01/01/2008 to 31/12/2009

如何選擇每月和每年的？

需要VB 6碼幫助

來源

2009-08-19 Gopal

您可以在DTPicker格式設置爲3（dtpCustom）和CustomFormat到MM/YYYY。這將在文本部分中顯示月/年格式，但您仍然可以在完整日曆下拉菜單中查看日曆格式。

如果您想禁用日曆，可以將UpDown設置爲True。然後，你會上/下按鈕，而不是下拉。

您需要確保隱藏值（日期部分）是正確的。

編輯： OK，從您的評論我明白，你是幸福的日期選擇器，但你要顯示的結果在一個特殊的格式？

實施例：
選擇日期是20/8/2009，並存儲在變量一個日期。

顯示爲2009年：

MsgBox Format(a, "yyyy")

顯示爲08/2009：

MsgBox Format(a, "mm/yyyy")

顯示爲2009年8月：

MsgBox Format(a, "mmmm, yyyy")

顯示爲月，2009年：

MsgBox Format(a, "mmm, yyyy")

這是你想要的嗎？

來源

2009-08-19 13:38:24 awe

@awe。我得到Date值，如= dtpicker1，msgbox（a）它顯示01/02/2009。它應該顯示02/2009。並且當我選擇像01/2009到01/2009這樣的日期時。記錄顯示一天。它應該顯示1月（31天）記錄。如何修改我的代碼。請.... – Gopal 2009-08-19 13:56:13

我改變了我的答案添加一個例子，這是你想要的？ – awe 2009-08-21 10:30:44

如何選擇每月和每年的日期？

回答

相關問題