0
我想要做的两件事情与日期&时间计算:计算起始日期和时间
第一:
我有一个LastSave
(日期时间格式)。 我有两个控件(NumericUpDown/Format Decimal),一个用于小时,另一个用于分钟。
我想在今天的特定时间开始另一次保存:今天的日期+小时+分钟。
我所做的不是工作,因为我无法转换为DateTime我的设置DateDernièreSauvegarde,它有一个字符串格式。
Private Sub TimerSauvegarde_Tick(sender As System.Object, _
e As System.EventArgs) Handles TimerSauvegarde.Tick
Dim LastSave As DateTime = Convert.ToDateTime(My.Settings.DateDernièreSauvegarde)
Dim NextSave As DateTime
Dim Hour, Minute As Decimal
Hour = My.Settings.Heures
Minute = My.Settings.Minutes
Select Case ComboBoxA_Toutes.Text
Case "A"
NextSave = DateAdd(DateInterval.Hour, Hour, CDate(LastSave))
NextSave = DateAdd(DateInterval.Minute, Minute, CDate(NextSave))
MsgBox("Next Save at : " & NextSave)
Case "Toutes les"
MsgBox("Next Save at : " & NextSave)
End Select
End Sub
的第二件事:
我要开始另一个保存在的NumericUpDown字段中指定每一个(小时,分钟)。