我想在vb里对比两个变量的日期大小,应该怎么写?

比如变量date1和变量date2是一个日期,我想对比他们差距多少天,需要怎么写才能得到结果?比如date1=2010-03-31 ,date2=2010-04-02 他们差距是3天,我要怎么的出这个3值赋值到date3中?

举报该问题

第1个回答 2010-04-15

可以使用DateDiff函数。

语法：DateDiff（单位，日期1，日期2）
说明：返回日期1与日期2的相差多久（天数）

以天为单位的话就设单位为"d".本回答被提问者采纳

相似回答

怎样在vb中比较两个日期大小答：日期比较其实直接比较2个字符串就行了 dim a as string dim b as string a="日期1"b="日期2"if a>b then msgbox("过期")else msgbox("没过期")end if

VB如何实现两个日期的对比?答：Private Sub DTPicker2_Change()Text1.Text = DateDiff("d", DTPicker1, DTPicker2)End Sub

vb 怎么样的语句判断时间大小。答：dim iH as integer dim iM as integer dim iS as integer dim sA as string dim sB as string sa=数据库日期 sb=vb输入日子 ih=datediff(“h”,sa,sb) '得到小时 im=abs(datediff(“n”,sa,sb) mod 60) '得到分钟数 if ih>0 then msgbox "+" & ih & “小时” & im "...

怎样在VB上求隔天的两个日期时间对比答：使用VB提供的时间函数 DateDiff 函数，可以返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。语法 DateDiff(interval, date1, date2)其中：interval是一个字符串表达式，下面列举一些它的常用值以及含义：yyyy -- 年 q -- 季 m -- 月 d -- 天 h -- 小时 n -- 分钟 s -- 秒...

VB怎么识别日期11/20/2014格式,并比较大小?答：1、首先，你这个错误是因为你打字打错了，test3.Text要改为text3.Text 2、要进行日期比较，就要把数据转换为日期型，即 If CDate(Left(xlsheet.Cells(i, 1), 10)) >= CDate(Text3.Text) Then （大于和等于可以合起来判断）

大家正在搜

vb中的变量名有什么要求 vb的变量名有哪些 vb变量名的命名规则 vb中合法的变量名单变量对比对比变量变量对比差异单变量分析和多变量分析 vb变量类型

VB中怎样比较两个日期的大小

怎样在vb中比较两个日期大小

VB 谁能帮我写一个判断时间日期大小的函数

日期常数怎么写 VB中

VB比较常用的变量

SQL语句怎样比较两个日期的大小？

VB中怎样为一个日期型的数据赋值

vb 如何两个变量相等呢？