如何获得当前月份 (october month number)

我不能得到当前月份。

我不能得到当前月份。

这似乎很简单,以获得当前的xx年和一天,如测试与以下内容:

MsgBox Year(Date)
MsgBox Day(Date)
MsgBox Year(Now)
MsgBox Day(Now)

如何将当前月份显示为数字(1 、 2 等)或全名?

我可以在单元格中使用TODAY(),并在 VBA 中使用CurrentMonth = MonthName(Month(Sheet1.Range("A1")))进行转换,但我想直接在 VBA for Excel 中执行此操作。

34

试试看,

debug.print Format(Date, "mmm")       'Mar
debug.print Format(Date, "mmmm")      'March
debug.print Format(Date, "m")    '3
debug.print Format(Date, "mm")   '03
7
 Month(Now)

返回与当前月份关联的索引号。

下面的 Jeeped 代码是最紧凑的,但是为了让您了解索引的工作原理,下面的代码将根据返回的索引返回月份名称:

Dim months(11) As String
months(0) = "Jan"
months(1) = "Feb"
months(2) = "Mar"
months(3) = "Apr"
months(4) = "May"
months(5) = "Jun"
months(6) = "Jul"
months(7) = "Aug"
months(8) = "Sep"
months(9) = "Oct"
months(10) = "Nov"
months(11) = "Dec"
Dim nowMonth As Integer
nowMonth = Month(Now)
For i = 0 To 11
  If nowMonth = (i + 1) Then
     MsgBox (months(i))
  End If
Next
6

找到一个更简单的解决方案来获取当前月份名称

只需使用MonthName(Month(Now))并将其分配给一个字符串。

Month(Now)为您提供月份编号,MonthName()使用该编号显示当前月份

3

一个真正有用和简单的方法是将格式功能与日期结合在一起。

示例(假设今天是 2019 年 10 月 23 日):

要将当前月份作为原始问题中的数字:

MsgBox Format(Date, "mm")

^ 将返回:10

要将当前月份作为简短文本:

MsgBox Format(Date, "mmm")

^ 将返回:10 月

要获取当前月份的全文:

MsgBox Format(Date, "mmmm")

^ 将返回:xx月

你也可以把这些与岁月结合起来。

其他示例:

MsgBox Format(Date, "dd-mmm-yyyy")

^ 将于 2019 年 10 月 23 日返回

MsgBox Format(Date, "dddd-mmmm-dd-yyyy")

^ 将返回:周三-xx月-23-2019

这是创建一个自定义格式,因此您可以重新排列 dd,mm,yyyy 区域,如您认为合适,例如:

MsgBox Format(Date, "yyyy/mm/dd")

^ 将返回:2019 / 23 / 10

本站系公益性非盈利分享网址,本文来自用户投稿,不代表码文网立场,如若转载,请注明出处

(171)
SwiftUI2.0无法使用NSViewRepresentable从NSWindow上的styleMask中删除.titled
上一篇
禁用“在新的Chrome配置文件中继续”弹出窗口
下一篇

相关推荐

  • type c接口是啥改变你的充电体验

    示例示例Type C接口是一种新型的USB连接器,它可以支持更高的数据传输速度,比传统的USB 0接口更快。与传统的USB接口不同,Type C接口可以在两端都使用,无需额外的翻转,使连接更加方便快捷。下面是一个使用Type C接口的代码示例:…

    2023-01-12 02:06:09
    0 62 52
  • carwings是什么意思智能汽车连接系统的未来

    Carwings是日产汽车公司推出的一款远程智能汽车服务,它可以帮助用户远程监控汽车的状态和行驶信息,并且可以远程控制汽车的功能。…

    2023-01-19 13:55:38
    0 32 65
  • cvt变速箱油分几种:CVT变速箱油的种类及用法

    cvt变速箱油一般分为三种,分别是:传统cvt变速箱油:代码:CVT-1…

    2023-01-27 12:23:25
    0 17 67
  • contextcapture集群:如何使用ContextCapture技术构建高效的3D集群

    ContextCapture集群是一种分布式的技术,它可以让多台服务器共享数据,从而提高应用程序的性能和可靠性。它可以使用多台服务器来收集、存储和处理数据,而不需要单独的服务器来执行这些任务。…

    2023-01-05 08:03:52
    0 70 87
  • code128条码字体下载:使用 Code128 条码字体创建条码标识

    code128条码字体下载是指下载code128条码字体的过程。Code128条码字体是一种用于生成Code128条形码的字体。它可以将文本转换为条形码,并将条形码打印在各种类型的媒体上。要下载code128条码字体,可以从网上搜索“code128条码字体下载”,然后选择一个可靠的网站下载。一旦下载完成,就可以使用该字体创建code128条形码。…

    2023-01-19 14:44:33
    0 88 28
  • txvlog com糖心改变你的生活,让你的心情更加甜蜜!

    txvlog com糖心是一款以视频分享为主的社交APP,可以让用户上传自己的视频,并与其他用户进行互动。它的主要功能有:用户注册:用户可以通过手机号码、邮箱地址或者社交媒体账号注册,并设置自己的个人信息;…

    2023-01-10 05:08:15
    0 82 29
  • chigo空调遥控器操作老式:如何使用Chigo空调遥控器操作老式空调

    Chigo空调遥控器操作老式,主要有以下几步:首先准备好Chigo空调遥控器,打开电源,将遥控器与空调连接;…

    2023-01-23 01:53:07
    0 34 53
  • cvte在线测评:如何利用CVTE在线测评提升职业能力?

    cvte在线测评是一款在线编程测评系统,它可以帮助用户快速、准确地评估学生的编程能力。它支持多种编程语言,并且提供了完善的测试环境,可以有效地检测出学生编程中的错误,同时还可以提供可视化的报告,帮助用户更好地理解学生的编程能力。…

    2023-01-27 15:11:58
    0 31 17

发表评论

登录 后才能评论

评论列表(12条)