请问几个vfp有关问题

请教几个vfp问题？
1、thisform.olecontrol1是一个date and time picker日期控件，thisform.text6是一个字符型的出生日期，如何将thisform.olecontrol1的默认值设为text6的值？点击thisform.olecontrol1就显示text6的日期？

2、由于各种原因，thisform.text6设置成了字符型的出生日期，如何校验thisform.text6的值是否正确，怎么写代码？将代码写在哪里？

先谢谢了！

[解决办法]
1. thisform.olecontrol1._value = ctod(thisform.text6.value)
or
thisform.olecontrol1._value = ctot(thisform.text6.value)

2. 分别取出，日，月，年，验证
[解决办法]
lcDate = '19880526'
If Empty(Date(Val(Left(ldate,4)),Val(Substr(ldate,5,2)),Val(Right(ldate,2))))
Messagebox('Illegal date')
Endif
[解决办法]
1、用楼上方法。

2、

VB code

if empty(ctod(thisform.text6.value))    Messagebox('无效的日期')endif