关于输入日期的有关问题

关于输入日期的问题
如何在文本框里预置格式       yyyy-m-d
只需要输入yyyy     m     d   就可以了     “-”是固定的不需要输入。
该如何实现。


[解决办法]
用maskedit控件
[解决办法]
sub text1_change
if len(text1)=4 then
text1=text1 + " "
mid (text1,5)= "- "
end if