# Re: 想写一段租用期限判别的程式,能否请各位高手帮个小忙？？？

Posted by 小琳 on September 19, 1999 at 22:32:32:

In Reply to: 想写一段租用期限判别的程式,能否请各位高手帮个小忙？？？ posted by 小女子 on September 19, 1999 at 12:49:01:

: 小女子需用到６个combobox,分别代表承租起始年、月、日和承租结束年、月、日<我已先在6个combobox的属性中分别加入(民国)88~92年,1~12月,1~31日了>,
: 这6个combobox需判断以下条件:
: 1.起始年、月、日不能早于系统日期
: 2.结束年不能早于起始年
: 3.大月有31天,而小月只有30天,2月只有28或29天

:::关于第一个问题，小女子用三个整数变数及日期变数来
做，您也可以不用三个整数变数，以Combo1.Text来做也
可以，部份程式如下：
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Date
a = "99"
b = "10"
c = "20"
d = a & "/" & b & "/" & c
If d < Date Then
MsgBox "abc"
Else
MsgBox "zzz"
End If

第二个问题的话，先宣告二个日期型态的变数，再利用
第一个问题的：d = a & "/" & b & "/" & c
方式即可

第三个问题的话就比较麻烦，您可以设定一个可以包含
十二个位置的阵列，然后当使用选择月份之后，便可以
在Combo1的Click()里将每月的日用回圈的方式来增加到
日的Combo里，并且利用Combo1.Clear将Combo1物件里
面的日来清除掉，不过小女子并没有考虑到闰年的问题
!!!

Follow Ups: