Private Sub DTPicker1_Change() DTPicker2.Value = DTPicker1.Value + TimeSerial(0, 50, 0) End SubPrivate Sub Form_Load() With DTPicker1 .Format = dtpCustom .CustomFormat = "(hh:mm)" End With With DTPicker2 .Format = dtpCustom .CustomFormat = "(hh:mm)" End With End Sub
讲清楚点,你是要小时,分钟吗?
如果是 “HH:MM”,这样是表示小时,月份的
DTPicker2.Value = DTPicker1.Value + TimeSerial(0, 50, 0)
End SubPrivate Sub Form_Load()
With DTPicker1
.Format = dtpCustom
.CustomFormat = "(hh:mm)"
End With
With DTPicker2
.Format = dtpCustom
.CustomFormat = "(hh:mm)"
End With
End Sub