M myyzg Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-01 #1 如何通过MonthCalendar控件获得当前日期,当前周数,当前星期值?
C crystal Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-01 #2 ????? 不懂,何必用这个控件呢?now,date,time不是挺好吗?
D dedman Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-01 #3 monthcalendar1.date decodedate(monthcalendar1.date,year,month,day); 其中,year,month,day:word;
M myyzg Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-01 #5 如何获得日期这我知道,我主要问的是:如何获得控件上显示的当前日期对应的日期和周数?
Y yaoyao Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-01 #8 那只好自己来算了 var t1,t0,t : TDateTime; x : Integer; s : string; begin t0 := EncodeDate(2000,1,1); t1 := now ; t := t1 - t0; x := Trunc(t/7)+1; s := '现在是第'+IntToStr(x)+'周'; end;
那只好自己来算了 var t1,t0,t : TDateTime; x : Integer; s : string; begin t0 := EncodeDate(2000,1,1); t1 := now ; t := t1 - t0; x := Trunc(t/7)+1; s := '现在是第'+IntToStr(x)+'周'; end;
M myyzg Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-01 #9 自已算可以,但我的意思是能否利用monthcalendar1控件,如果将monthcalendar控件 的weeknumbers设为true,该控件上将显示当天是全年的第几周,但如何获取该值呢,不得而 知. 再次申明:我的意思是利用monthcalendar1控件,获得日期,星期,周.
自已算可以,但我的意思是能否利用monthcalendar1控件,如果将monthcalendar控件 的weeknumbers设为true,该控件上将显示当天是全年的第几周,但如何获取该值呢,不得而 知. 再次申明:我的意思是利用monthcalendar1控件,获得日期,星期,周.
M myyzg Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-02 #11 综合两位的意见,我实现了该功能,一点小意思,请笑纳.
