[已解决]谢谢cbg2008老师， 为何会类型不匹配？

lhj323323

老师：
上传的附件中出错的示例，请帮忙看看，谢谢了

关于时间间隔的问题

时间间隔.rar (8.46 KB, 下载次数: 7)

2012-9-8 21:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cbg2008

2012-9-8 21:10

一个是string型，一个是日期型的，当然不匹配，可以改成

1. Private Sub CommandButton1_Click()
   
2.     Range("C1").Value = Sheet2.Range("B65536").End(xlUp).Value
   
3.     Range("C2").Value = Format(Date, "yyyy-mm-dd")
   
4.     Range("C3").Value = Date - Sheet2.Range("B65536").End(xlUp).Value
   
5. End Sub

复制代码

跳转到最佳答案楼层

lisachen

1. Private Sub CommandButton1_Click()
   
2.     Range("C1").Value = Sheet2.Range("B65536").End(xlUp).Value
   
3.     Range("C2").Value = Format(Date, "yyyy-mm-dd")
   
4.     Range("C3").Value = Date - Sheet2.Range("B65536").End(xlUp).Value
   
5. End Sub
   

复制代码

cbg2008

一个是string型，一个是日期型的，当然不匹配，可以改成

1. Private Sub CommandButton1_Click()
   
2.     Range("C1").Value = Sheet2.Range("B65536").End(xlUp).Value
   
3.     Range("C2").Value = Format(Date, "yyyy-mm-dd")
   
4.     Range("C3").Value = Date - Sheet2.Range("B65536").End(xlUp).Value
   
5. End Sub

复制代码

无聊的疯子

使用两个变量来分别取值，然后在本地窗口里看这两个值



可以很直观的看出，S1是文本类型的，S2是日期类型的

文本减日期肯定是类型不匹配的，