如何用VBA取出表示日期的数？

老鱼翁1918

如何用VBA取出表示日期的数？

我有一个这样表示日期的数。比如“2023-01-06”，在a2单元格，我要用VBA程序取出表示日期的数，本例就是取出“6”，在VBA中用 Right函数或mid函数是不行的，用什么方法把它取出来。还有我要附值给一个变量T，T是这个日期当月的最后一天，怎么附傎。下面这段程序日期大于10行，但小于10就不行了。请大神指教！

Sub DA()
  Dim Y As Integer

  Y = Right(Cells(2, 1), 2)
end sub

shiruiqiang

-------------------------

wang-way

1. '方法有很多的
   

复制代码

可以使用day 函数   day(cells(1,1)) 就可以得到年月日中  日的部分

wang-way

自带的函数不能直接得到某月最后一天，可以使用当前日期+1个月，比如2月11日+1个月 就等于3月11日，然后减去11日就可以得到本月最后一天。2月28日   


    x = DateAdd("m", 1, Now)'得到3月11日
    t = x - Day(now)'3月11日减去11天 得到2月28日

老鱼翁1918

shiruiqiang 发表于 2023-2-11 21:24
format（“yyyymmdd”）

谢谢回复，但测试了，用这个不行。

shiruiqiang

老鱼翁1918 发表于 2023-2-11 21:52
谢谢回复，但测试了，用这个不行。

-----------------------------------

wang-way

shiruiqiang 发表于 2023-2-11 22:03

你套个val函数  他直接用right

shiruiqiang

wang-way 发表于 2023-2-11 22:05
你套个val函数  他直接用right

----------------------

洋务德雷

1. Sub de()
   
2.       Debug.Print VBA.DatePart("d", #1/6/2023#)
   
3. End Sub

复制代码

tanglf188

    MsgBox "本月最后一天:" & Day(DateSerial(Year(Date), Month(Date) + 1, 0)) & "日"
    MsgBox Day([A2])