19145.html
来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 23 行
HTML
23 行
<html> <head> <title>Re: 想写一段租用期限判别的程式,能否请各位高手帮个小忙？？？</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 想写一段租用期限判别的程式,能否请各位高手帮个小忙？？？</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:luo570@ms31.hinet.net">小琳</a> on September 19, 1999 at 22:32:32:<p>In Reply to: <a href="19128.html">想写一段租用期限判别的程式,能否请各位高手帮个小忙？？？</a> posted by 小女子 on September 19, 1999 at 12:49:01:<p>: 小女子需用到６个combobox,分别代表承租起始年、月、日和承租结束年、月、日<我已先在6个combobox的属性中分别加入(民国)88~92年,1~12月,1~31日了>,<br>: 这6个combobox需判断以下条件:<br>: 1.起始年、月、日不能早于系统日期<br>: 2.结束年不能早于起始年<br>: 3.大月有31天,而小月只有30天,2月只有28或29天<p><br>:::关于第一个问题，小女子用三个整数变数及日期变数来<br>做，您也可以不用三个整数变数，以Combo1.Text来做也<br>可以，部份程式如下：<br> Dim a As Integer<br> Dim b As Integer<br> Dim c As Integer<br> Dim d As Date<br> a = "99"<br> b = "10"<br> c = "20"<br> d = a & "/" & b & "/" & c<br> If d < Date Then<br> MsgBox "abc"<br> Else<br> MsgBox "zzz"<br> End If<p>第二个问题的话，先宣告二个日期型态的变数，再利用<br>第一个问题的：d = a & "/" & b & "/" & c<br>方式即可<p>第三个问题的话就比较麻烦，您可以设定一个可以包含<br>十二个位置的阵列，然后当使用选择月份之后，便可以<br>在Combo1的Click()里将每月的日用回圈的方式来增加到<br>日的Combo里，并且利用Combo1.Clear将Combo1物件里<br>面的日来清除掉，不过小女子并没有考虑到闰年的问题<br>!!!<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 19145--></ul><!--end: 19145--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?