最重要的决定 试听:VB判断日期的前后

来源:百度文库 编辑:高校问答 时间:2024/05/11 04:15:43
一样新产品有生产日期和购买日期,在产品登记时要让购习时间早于生产日期!怎么样来确定!答案好可加分
请哪位高手能把全部代码粘上来好吗
LEON大哥:我还是不明白您的代码怎么用!小弟是刚才VB的!还请详细说明一下怎么用
leon大哥,我们QQ上聊好吗!QQ:39065061

' 在 vb 中的日期值是用 # 括起来的,例如 #2006-07-07#
' 现在就假设产品生产日期是今天(7月31日),购买日期是 5月31日(你不是说购买日期早于生产日期吗!)

Dim s As Integer
s = DateDiff("d", #2007-07-31#, #2007-05-31#)
If s > 0 Then
MsgBox "生产日期比购买日期早 " & s & " 天!"
ElseIf s < 0 Then
MsgBox "购买日期 比 生产日期早 " & Abs(s) & " 天!"
End If ' Abs 是求绝对值,因为 s 是负数
' 我们要得到的是它的正数
'DateDiff("d", ...) 里面的 "d" 意思是求得那两个日期相差的天数。

问一个问题:你有没有办法在程序中获取那个产品的购买日期和生产日期?如果有就直接用上面这段代码。