有没有判断某个日期当月最后一天的函数? 如何判断某个日期当月的最后一天比如"2005-12-1"的最后一天是"2005-12-31"有没有判断某个日期当月最后一天的函数?或者其它方法也行 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://community.csdn.net/Expert/topic/4475/4475767.xml?temp=.7411768 先月份加一,日设置为一,然后用DateAdd函数将日期减一天即可。Public Function GetLastDate(aDate As String) As String Dim strTmp As String strTmp = DateAdd("m", 1, aDate) strTmp = Year(strTmp) & "/" & Month(strTmp) & "/1" GetLastDate = DateAdd("d", -1, strTmp)End Function==========================免费的学习、交流、源码、工具下载网站,欢迎大家访问!http://www.j2soft.cn/ --在SQL里写个函数或SP,传入日期,取其返回的整形值,也可以:DECLARE @YMD datetime SET @YMD='2005-3-18'SELECT @YMD AS [日期],DAY(DATEADD(day,-1,DATEADD(month,1,CONVERT(datetime,CONVERT(char(4),YEAR(@YMD))+'-'+CONVERT(varchar(2),MONTH(@YMD))+'-1')))) AS [最后一天]/*日期 最后一天2005-03-18 00:00:00.000 31*/ dim DateTmp As DateDateTmp = DateSerial(Year(Date),Month(Date) + 1, 1) - 1上面的DateTmp就是当月最后一天的日期。另:Print Day( DateSerial(Year(Date),Month(Date) + 1, 1) - 1 )打印当月最后一天的Day值 这个简单,用dateadd 加1上去,如果月份变了,就代表是最后一天了 天数那么少,直接case比判断要来得快吧,当然2月要计算一下 跪求~~~~~~~文件引入问题 请问 如何依次点击网页中的链接~~以下代码 窗体form、类模块cls、模块bas三者之间的数据交换问题 如何在VB里用代码控制附加SQL的数据库以及分离数据库? VB生成的.exe如何在没有安装VB的计算机上运行 那位大哥可以使我VB使用Cookies?? 数据库采用什么样的模式才好 急!急!关于vb中的图形问题? 文件里的空行影响读取数据,如何跳过? 请教ado连接数据库代码举例(不用ado控件),多谢! 格式数据 文本文件的读取 vb简单问题
Dim strTmp As String
strTmp = DateAdd("m", 1, aDate)
strTmp = Year(strTmp) & "/" & Month(strTmp) & "/1"
GetLastDate = DateAdd("d", -1, strTmp)
End Function==========================
免费的学习、交流、源码、工具下载网站,欢迎大家访问!
http://www.j2soft.cn/
DECLARE @YMD datetime
SET @YMD='2005-3-18'
SELECT @YMD AS [日期],DAY(DATEADD(day,-1,DATEADD(month,1,CONVERT(datetime,CONVERT(char(4),YEAR(@YMD))+'-'+CONVERT(varchar(2),MONTH(@YMD))+'-1')))) AS [最后一天]
/*
日期 最后一天
2005-03-18 00:00:00.000 31
*/
Print Day( DateSerial(Year(Date),Month(Date) + 1, 1) - 1 )
打印当月最后一天的Day值