主题：如何取让变量值DateTimePicker中输入的时间？

Dim d1 as Date

d1= e.Form.Controls("出生时间"). IsDate

Dim d2 as Date         

= e.Form.Controls("参加工作时间"). IsDate

Dim A As  String

A = e.Form.Controls("单位名称").Value

Dim B As  String

B = e.Form.Controls("姓名").Value

Dim C As  String

C = e.Form.Controls("身份证号").Value

Dim D As  String

D = e.Form.Controls("性别").Value

Dim FF As  String

FF = e.Form.Controls("职务").Value

if A = "" then   

 MessageBox.Show("单位名称不能为空,请录入单位名称以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if B = "" then   

 MessageBox.Show("人员姓名不能为空,请录入人员姓名以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if C = "" then   

 MessageBox.Show("人员身份证号不能为空,请录入人员身份证号以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

If  e.Form.Controls("出生时间").Value Is Nothing  then

 MessageBox.Show("人员出生时间不能为空,请录入人员出生时间以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if D = "" then   

 MessageBox.Show("人员性别不能为空,请录入人员性别以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

If  e.Form.Controls("参加工作时间").Value Is Nothing  then

 MessageBox.Show("人员参加工作时间不能为空,请录入人员参加工作时间以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if FF = "" then   

 MessageBox.Show("人员现任职务不能为空,请录入人员现任职务以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

If D <> ReadSex(C)  then

MessageBox.Show("录入性别和身份证号不符,请核对!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

If d2<=d1  then

MessageBox.Show("参加工作时间不能大于出生时间,请核对!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

ELSE

For Each dt As DataTable In DataTables

    dt.Save()

Next

Syscmd.Row.Lock()

End If

END IF

END IF

End if

End if

End if

End if

End if

End if