求救:关于日期输入合法的问题,各位大哥帮帮忙,在线等

Question

用户从文本框中只要求输入年和月然后判断是否以'2006-09','2006/09'和'2006.09'的格式输入如果不是提示用户输入不合法求代码,急小弟先谢了

Answer 1

用DateTimePicker1控件,将Format设为yyyy-MM
这多好~~~

Answer 2

var
  strDate : String;
begin
  StrDate := StringReplace(edit1.text,'.','/',[rfreplaceall]);
  StrDate := StringReplace(StrDate,'-','/',[rfreplaceall]);
  Try
    Edit1.text := DateToStr(strtoDate(strDate));
  Except
    showmessage('无效日期!');
  end;
end;
试试肯定还有更好的办法。

Answer 3

各位大哥,项目要求不需要用户输入日只需输入年,月怎么设置maskedit控件?

Answer 4

不知道LZ是想做一个测试别人是否输入正确的题目，还是想做一个保存规定格式的年月的程序...如果是第一种...用“为要饭呐喊”的说法..第二种的话...用formatdatetime('yyyy-mm',date)转成你想得到的格式就行了 就行了啊..其中格式你想在yyyymm之间用什么都好...反正y是代表年的，m是月..