vb datediff函数 请哪位高手看看啊 急!!!!!!

请哪位高手看看啊 急!!!!!!

firstday = Year(Date) & "-" & Me.commonth.Text & "-1"
days = DateDiff("d", Year(Date) & "-" & Me.commonth.Text & "-1", _
Year(Date) & "-" & Me.commonth.Text + 1 & "-1")
lastday = Year(Date) & "-" & Me.commonth.Text & "-" & days

在运行调试时 到days 应用函数datediff这为什么总是类型不匹配
那通过什么语句来定义 Me.commonth.Text啊 我怎麽把这条语句加上啊

第1个回答  2010-04-09
Me.commonth.Text = 11

firstday = Year(Date) & "-" & Me.commonth.Text & "-1"
days = DateDiff("d", Year(Date) & "-" & Me.commonth.Text & "-1", _
Year(Date) & "-" & Me.commonth.Text + 1 & "-1")
lastday = Year(Date) & "-" & Me.commonth.Text & "-" & days

这里的Me.commonth.Text只能输入数字,而且不能大于12,也不能小于1
第2个回答  2010-04-09
'commonth只能输入数字,而且可以大于12,也可以小于1
Private Sub Command1_Click()
If Not IsNumeric(commonth) Then exitsub
firstday = DateSerial(Year(Date), commonth, 1)
days = DateDiff("d", firstday, DateSerial(Year(Date), commonth + 1, 1))
lastday = DateSerial(Year(Date), commonth, days)
End Sub

vb datediff函数 请哪位高手看看啊 急!!!
firstday = Year(Date) & "-" & Me.commonth.Text & "-1"days = DateDiff("d", Year(Date) & "-" & Me.commonth.Text & "-1", _Year(Date) & "-" & Me.commonth.Text + 1 & "-1")lastday = Year(Date) & "-" & Me.commonth.Text & "-" & days 这里的Me.comm...

请问VB中的DateDiff函数
TimeDiffLong = DateDiff("s", TimeStart, Time)你在这一步上边添个msgbox timestart & vbcrlf & time 看一下timestart和time都=多少

vb中datediff怎么用
DateDiff函数返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。语法 DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])DateDiff 函数语法中有下列命名参数: 描述 interval必要。字符串表达式,表示用来计算date1 和 date2 的时间差的时间间隔 Date1,Date2必要...

VB DateDiff 用法,请大神给个实例!
DateDiff (I , D1 , D2[,FW[,FY]])计算两个日期之间的期间?I :设定两个日期之间的期间计算之单位。譬如 >I="m" 表示计算的单位为月。 >I 的设定值如:yyyy > Year 年 q Quarter 季 m...

VB计算两个日期时间的间隔
DATEDIFF 函数计算指定的两个日期中第二个日期与第一个日期的时间差的日期部分。换句话说,它得出两个日期之间的间隔。结果是等于date2 - date1 的日期部分的带符号整数值。示例代码:Dim time1 As Date Dim time2 As Date Dim td as date time1 = "2013-6-27 6:52:22"time2 = "2013-6-...

vb datediff
改成t = DateDiff("s", Text1(1).Text, Time$)

VB 时间差判断!
计算函数:datediff("h",#25\/10\/2009 10:17:00#,#2\/11\/2009 21:12:00) 相差的小时 datediff("n",#25\/10\/2009 10:17:00#,#2\/11\/2009 21:12:00) 相差的分钟 datediff("s",#25\/10\/2009 10:17:00#,#2\/11\/2009 21:12:00) 相差的秒 ...

问一个关于vb的问题,我想计算两个text中日期的差额,代码怎么写啊,
vb里面的DateDiff函数可以直接计算两个日期的差值...Dim a As String a = DateDiff("d", Text1.Text, Text2.Text)text3.Text = a 下面是MSDN中的解释 DateDiff 函数 返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。语法 DateDiff(interval, date1, date2[, firstdayofweek[, ...

求DateDiff函数的基本用法,我们上VB课要用,顺便说一句哦,请不要去...
比如下面的代码在运行后窗体的标题显示本世纪过去了多少天 Private Sub Form_Load()Me.Caption = DateDiff("d", #1\/1\/2000#, Date)End Sub 其中date是表示今天 1\/1\/2000#是个日期,是2000年1月1日 "d"表示计算的单位是天

VB中datediff函数返回值是什么类型
DateDiff 函数 返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。楼主你的代码写错了, datediff里面的参数里面的b 和 label1.caption不需要双引号啊!

相似回答
大家正在搜