Question

所以我有Rng.Offset(0, xOffsetColumn).NumberFormat = "MMMM"后跟Date输出当前日期并将其格式化为当前月份名称，但Ucase（）不会将名称大写，是因为.NumberFormat不是字符串？或者因为格式If Not rngColJ Is Nothing Then For Each Rng In rngColJ If Not VBA.IsEmpty(Rng.Value) Then Rng.Offset(0, xOffsetColumn).Value = UCase(Format(d, "MMMM")) Else Rng.Offset(0, xOffsetColumn).ClearContents End If Next End If后缀？

以下是代码的一部分：

public class ModelA
{
    public List<Package> Packages { get; set; }
    ...
}

public class ModelB
{
    public List<Package> Packages { get; set; }
    ...
}

Answer 1

您需要先创建一个字符串并Ucase()。

考虑：

Sub dural()
    Dim d As Date
    d = Now
    MsgBox UCase(Format(d, "MMM"))
End Sub

Answer 2

Sub Which_Month()
Dim A As String

    A = UCase(Format(Date, "mmmm"))
    Debug.Print A
    Msgbox A

End Sub

输出日期月份为大写

2 个答案: