求一函数!!!!!(100分)

快乐的蚂蚁 · 2003-07-16

比如我输入0305系统自动变为200305....DELPHI有没有自带这种函数!!

realLearning · 2003-07-16

这种函数当然没有，自己做一下 Edit1.Text := Format('20%s',[Edit1.Text]);

扳手 · 2003-07-16

没有这种函数，只能自己写了。 同意楼上。

darnis · 2003-07-16

realLearning, 好聪明了，，，佩服。。。

dgates · 2003-07-16

'200305...':='20'+'200305'

快乐的蚂蚁 · 2003-07-16

因为输年份的时候通常会省略了20,一般我们也清楚我录了.0302代表2003年2月,9902就代表99年2月份,如果输入的是200203那就代表2002年3月了.我想打的函数的就是要能自动给日期前面加上19或20,或者是保持不变... 不知道Delphi有没有自带这种函数.....

hppysea · 2003-07-16

调用系统函数获得当前日期DateTime－－>字符串，再提取字符串中表示年份的前两个字符 把它加到你输入的text之前， 函数我不知道了，我好久没用delphi了

yue_shan · 2003-07-16

var   iYear,iMonth,iDay: word;   s: string; begin   DecodeDate(now,iyear,imonth,iday);   if length(strtoint(iyear))>2 then     s := copy(strtoint(iyear),1,length(strtoint(iyear))-12 )   Edit1.Text := s + edit1.text end; 虽笨点，但能实现功能，想那么多技巧干什么？

darnis · 2003-07-16

那你这个需求就带来百年问题了，，， 要是 2099年到了喃？ 你还是理解成 1999年?，，不会撒，，

飘摇客 · 2003-07-16

使用时间组件来输入不是更好。

快乐的蚂蚁 · 2003-07-16

>>飘摇客 手动输入比时间控件快捷,主要是不用鼠标点!

常常 · 2003-07-16

用FORMATDATATIME行了

魔鬼大师 · 2003-07-16

还是输2003吧 用日期控件， 客户肯定能接受的

快乐的蚂蚁 · 2003-07-28

多人接受答案了。

求一函数!!!!!(100分)

快乐的蚂蚁

Unregistered / Unconfirmed

realLearning

Unregistered / Unconfirmed

扳手

Unregistered / Unconfirmed

darnis

Unregistered / Unconfirmed

dgates

Unregistered / Unconfirmed

快乐的蚂蚁

Unregistered / Unconfirmed

hppysea

Unregistered / Unconfirmed

yue_shan

Unregistered / Unconfirmed

darnis

Unregistered / Unconfirmed

飘摇客

Unregistered / Unconfirmed

快乐的蚂蚁

Unregistered / Unconfirmed

常常

Unregistered / Unconfirmed

魔鬼大师

Unregistered / Unconfirmed

快乐的蚂蚁

Unregistered / Unconfirmed

Similar threads