Private Sub Change()
Dim BatOnDate
Dim BatOnTime
Dim BatOffDate
Dim BatOffTime
BatOnDate = TextBox_BatOnDate
BatOnTime = TextBox_BatOnTime
BatOffDate = TextBox_BatOffDate
BatOffTime = TextBox_BatOffTime
PowerHRS = DateDiff("n", CDate(BatOnDate) + CDate(BatOnTime), CDate(BatOffDate) + CDate(BatOffTime))
TextBox_PowerHrs = PowerHRS
TextBox_PowerHrs = Format(CDate(TextBox_PowerHrs /  60 ) +  1 , "General Number")
Private Sub SpinButton1_SpinUp()
Dim dat As Date
dat = TextBox_BatOnDate
dat = DateAdd("d",  1 , dat)
TextBox_BatOnDate = dat
TextBox_BatOnDate = Format(dat, "General Date")
End Sub
Private Sub SpinButton1_SpinDown()
Dim dat As Date
dat = TextBox_BatOnDate
dat = DateAdd("d", - 1 , dat)
TextBox_BatOnDate = dat
TextBox_BatOnDate = Format(dat, "General Date")
End Sub
Private Sub SpinButton2_SpinUp()
Dim dat As Date
dat = TextBox_BatOnTime
dat = DateAdd("h",  1 , dat)
TextBox_BatOnTime = dat
TextBox_BatOnTime = Format(dat, "Short Time")
End Sub
Private Sub SpinButton2_SpinDown()
Dim dat As Date
dat = TextBox_BatOnTime
dat = DateAdd("h", - 1 , dat)
TextBox_BatOnTime = dat
TextBox_BatOnTime = Format(dat, "Short Time")
End Sub
Private Sub SpinButton3_SpinUp()
Dim dat As Date
dat = TextBox_BatOffDate
dat = DateAdd("d",  1 , dat)
TextBox_BatOffDate = dat
TextBox_BatOffDate = Format(dat, "General Date")
End Sub
Private Sub SpinButton3_SpinDown()
Dim dat As Date
dat = TextBox_BatOffDate
dat = DateAdd("d", - 1 , dat)
TextBox_BatOffDate = dat
TextBox_BatOffDate = Format(dat, "General Date")
End Sub
Private Sub SpinButton4_SpinUp()
Dim dat As Date
dat = TextBox_BatOffTime
dat = DateAdd("h",  1 , dat)
TextBox_BatOffTime = dat
TextBox_BatOffTime = Format(dat, "Short Time")
End Sub
Private Sub SpinButton4_SpinDown()
Dim dat As Date
dat = TextBox_BatOffTime
dat = DateAdd("h", - 1 , dat)
TextBox_BatOffTime = dat
TextBox_BatOffTime = Format(dat, "Short Time")
End Sub