VB6 中的 Dtpicker

Question

我可以使用以下代码格式化我的 dtpicker。

Private Sub Form_Load()
 DTPicker1.Format = dtpCustom
 DTPicker1.CustomFormat = "yyyy/MM/dd"
 DTPicker1.Value = Format(Date, "yyyy/MM/dd")
 End Sub

使用以下代码获取 dtpicker 值后

 Private Sub Command1_Click()
    Label34.Caption = DTPicker1.Value
    End Sub

但结果的格式与 dtpicker 显示的值不同。

Dtpicker value : 2015/05/26

Label34 Value  : 05/26/2015

如何解决这个问题...？

Answer 1

为标签赋值时使用格式函数（与 DatePicker 相同）：

Private Sub Command1_Click()
    Label34.Caption = Format(DTPicker1.Value, "yyyy/MM/dd")
End Sub

或者更好，从 DatePicker 获取格式：

Private Sub Command1_Click()
    Label34.Caption = Format(DTPicker1.Value, DTPicker1.CustomFormat)
End Sub

我不记得了，但也许 DatePicker 有一个属性给你它的值作为文本（具有正确的格式）。

Dtpicker in VB6