如何获得当前月份 (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

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

(93)
在给定范围内查找函数的根(root of the function)
上一篇
在哪里可以找到reactnative支持的所有样式属性列表
下一篇

相关推荐

  • vb如何编写程序代码Private Sub Form_Load() ' 设置窗口标题 Me.Caption = He

    示例示例VB程序代码的编写是通过使用Visual Basic编程语言来实现的。下面是一个简单的VB程序代码示例:'示例代码…

    2023-03-14 15:57:06
    0 75 40
  • code键 A Guide to Success

    示例示例code键是一个特殊的键,它可以用来输入代码。它通常位于键盘的右上角,并且有一个特殊的图标,如“#”或“@”。下面是一个简单的代码示例,使用code键来输入代码:…

    2023-02-13 08:43:06
    0 49 69
  • type c接口是啥改变你的充电体验

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

    2023-01-12 02:06:09
    0 90 62
  • good catch什么意思:好抓住!让你的梦想变成现实

    示例示例Good catch是一种表扬语,用来表扬某人发现了一个有价值的信息或问题。它可以用来表扬别人的观察力、思考能力和分析能力。例如:…

    2023-02-17 03:14:17
    0 28 70
  • carwings是什么意思智能汽车连接系统的未来

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

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

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

    2023-01-27 12:23:25
    0 59 38
  • cv人生履历:从零开始,一步步走向成功——[姓名]的职业生涯

    cv人生履历是一种概括性的文件,用于描述一个人的教育背景、工作经历、技能、专业知识和其他重要信息的文件。它可以帮助雇主评估求职者的资格,并决定是否面试或录用他们。…

    2023-02-01 13:25:09
    0 68 70
  • cs go 国际服挑战国际赛场,体验全新竞技乐趣

    CS GO国际服是一种多人在线游戏,由Valve Corporation开发,可以在Steam平台上进行游戏。它是一款基于Counter-Strike系列游戏的竞技游戏,玩家可以在两个不同的队伍中进行游戏,一个是攻击者(Terrorists),另一个是防守者(Counter-Terrorists)。玩家可以通过购买武器,装备,技能,以及其他道具来提高游戏能力。…

    2023-03-08 00:34:44
    0 80 99

发表评论

登录 后才能评论

评论列表(88条)