最有价值的日期推算！（看看） - 编程论坛

#2

永夜的极光2007-10-25 22:12

http://www.525jia.com/xinxi/sec/rili00.htm
这种效果吗？

#3

boyfuture2007-10-25 23:06

以下是引用永夜的极光在2007-10-25 22:12:39的发言：
http://www.525jia.com/xinxi/sec/rili00.htm
这种效果吗？

不是这样的，只是前面一个列表框（含3个月，6个月，12个月），选择3个月的时候，后边的文本框出现当前日期（2007-10-25)加3个月的日期，即2008-1-25，选择6个月的时候文本框显示为2008-4-25大概就是这么一个过程，没有上面你提供链接的那么复杂，希望能给个处理方案，谢谢！

#4

tianyu1232007-10-26 19:25

[CODE]<script language=vbscript>
function check(id)
dim newdate
newdate=dateadd("m",cint(id),date())
form1.t1.value=newdate
end function
</script>
<form name=form1>
<select name=s1 onchange="check(form1.s1.value)">
<option value="">请选择</option>
<option value="3">3个月</option>
<option value="6">6个月</option>
<option value="12">12个月</option>
</select>
<input type=text name=t1 value="">
</form>[/CODE]

#5

boyfuture2007-10-26 21:59

以下是引用tianyu123在2007-10-26 19:25:48的发言：
[CODE]<script language=vbscript>
function check(id)
dim newdate

哦得神啊，真是个天才，谢谢了，连闰月都能跳过，就这么点代码。。。奇才！！！

#6

cainiao1582007-10-27 09:03

不错，学习了！！

#7

hmhz2007-10-27 13:26

他调用本机时间，而本机时间是个万年历就可以计算出闰年闰月了

#8

hmhz2007-10-27 15:16

这样子可以手动填写的
[CODE]<script language="vbscript">
function changeb(id)
document.getElementById("t2").innerHTML=dateadd("m",cint(id),date())
end function
</script>
<input type=text name="t1" size="3" onkeyup="changeb(t1.value)" /> <span id="t2"></span>[/CODE]

#9

hmhz2007-10-27 15:51

再加上个输入数字判断
[CODE]<script language="vbscript">
function changeb(id)
if not IsNumeric(id) then
document.getElementById("t2").innerHTML="请输入数字！"
else
document.getElementById("t2").innerHTML=dateadd("m",cint(id),date())
end if
end function
</script>
<input type="text" name="t1" size="3" onkeyup="changeb(t1.value)" /> <span id="t2"></span>[/CODE]

[此贴子已经被作者于2007-10-27 15:52:55编辑过]

#10

niuniu2009kk2007-10-27 23:17

强悍，学习了，希望以后好好学习

#11

redice2007-10-30 22:10

VB中的日期处理函数功能真是强大 !!
VB日期函数的总结:https://blog.bc-cn.net/user18/111351/archives/2007/7825.shtml

[此贴子已经被作者于2007-10-30 22:10:48编辑过]