PRIVATE T1 AS Date
PUBLIC SUB Form_Open()
T1 = Time(8, 9, 12)
ME.ValueBox1.Value = T1
END
PUBLIC SUB ButtonOre_Click()
T1 += 1 / 24
ME.ValueBox1.Value = T1
END
PUBLIC SUB ButtonMin_Click()
T1 += 1 / 24 / 60
ME.ValueBox1.Value = T1
END
PUBLIC SUB ButtonSec_Click()
T1 += 1 / 24 / 3600
ME.ValueBox1.Value = T1
END