如何选择每月和每年的日期？

Question

使用VB 6

在项目中使用两个DTPicker，我想选择每月和每年，例如MM / yyyy和yyyy

现在我正在使用“每日日期”，例如2009年2月23日（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代码帮助

Answer 1

您可以将DTPicker上的Format设置为3（dtpCustom），并将CustomFormat设置为MM / yyyy 。 这将在文本部分显示月/年格式，但是下拉列表中仍会显示完整的日历。

如果要禁用日历，可以将UpDown设置为True。 然后，您将获得向上/向下按钮，而不是下拉菜单。

您需要确保隐藏值（天部分）正确。

编辑：好的，从您的评论中我了解您对日期选择器感到满意，但是您想以特殊格式显示结果吗？

例：
所选日期为20/8/2009，并存储在日期变量a中 。

显示为2009 ：

MsgBox Format(a, "yyyy")

显示为08/2009 ：

MsgBox Format(a, "mm/yyyy")

显示为2009年8月 ：

MsgBox Format(a, "mmmm, yyyy")

显示为2009年8月 ：

MsgBox Format(a, "mmm, yyyy")

这是你想要的吗？