Dim time As TimeSpan '定义类型为TimeSpan类型的变量,表示获取的时间差,格式为 时:分:秒 Dim logintime As System.DateTime '定义类型为DateTime的时间变量,将实体中上机时间获取并转换成DateTime类型 logintime = DateTime.Parse(linelogentity.LoginTime) '将两个时间做差,获取时间段time time = logintime.Subtract(DateTime.Now) 'DateTime.Now表示DateTime类型的当前时间,即下机时间 txtSpendTime.Text = time.Duration.TotalMinutes.ToString() '将时间差转换为分钟形式,赋值给文本框 txtSpendTime.Text = CInt(txtSpendTime.Text) '将文本框中的数据取整 linelogentity.SpendTime = txtSpendTime.Text '将最终结果传给实体层3、用DateTimePicker控件查询日期
'从Datetimepicker控件中获取的日期的格式设置为数据库中的格式“yyyy-MM-dd” DateTimePicker1.Format = DateTimePickerFormat.Custom DateTimePicker1.CustomFormat = "yyyy-MM-dd" DateTimePicker2.Format = DateTimePickerFormat.Custom DateTimePicker2.CustomFormat = "yyyy-MM-dd" '将DateTimePicker中的数据传给实体层 rechargelogentity.Time = DateTimePicker1.Text rechargelogentity.EndTime = DateTimePicker2.Text小结: