用VB语法:TextBox输入20120212日期在EXCEL显示2月份的月初和月末格式为2012/2/1~2012/2/28 怎么写呢
很急如果输入20120301日期,在EXCEL显示3月份的,格式为2012/3/1~2012/3/31...
很急
如果输入20120301日期,在EXCEL显示3月份的,格式为2012/3/1~2012/3/31 展开
如果输入20120301日期,在EXCEL显示3月份的,格式为2012/3/1~2012/3/31 展开
2个回答
展开全部
分AA()
昏暗的顶部,最后作为字符串
T = Application.InputBox(“请输入一个日期:”,“日期输入窗口中,格式(日期,”DDDDD“),类型:= 2)
顶部= DateSerial函数((T),月(T),1)
最后= DateSerial函数((T),月(T)+ 1,0)
文本=年(顶部)&“/”&月(上图)&“/”&日(顶部)和“?”及年份(最后一个)&“/”&月(上)&“/”&日(最后)的MSGBOX文本
END SUB
昏暗的顶部,最后作为字符串
T = Application.InputBox(“请输入一个日期:”,“日期输入窗口中,格式(日期,”DDDDD“),类型:= 2)
顶部= DateSerial函数((T),月(T),1)
最后= DateSerial函数((T),月(T)+ 1,0)
文本=年(顶部)&“/”&月(上图)&“/”&日(顶部)和“?”及年份(最后一个)&“/”&月(上)&“/”&日(最后)的MSGBOX文本
END SUB
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询