来自文章留言:
代码
Sub 现在()
MsgBox Format(Date, "yyyy年m月") & Chr(10) & Format(Date, "AAA") & Chr(10) & Format(Now, "h") & "点钟", 64, "现在是"
End Sub
解析
Format(Date, "yyyy年m月"):
把当前日期格式化成某年某月的格式。
Chr(10):换行。
MsgBox XXXXX,64,"现在是" :
这是Msgbox的语句,与format无关。
注:上面XXXXX代表“ Format(Date, "yyyy年m月") & Chr(10) & Format(Date, "AAA") & Chr(10) & Format(Now, "h") & "点钟" ”这个字符串。
其中msgbox的参数:
MsgBox(prompt, [ buttons ], [ title ], [ helpfile, context ])MsgBox 函数语法具有以下命名参数:
部分 | 说明 |
---|---|
prompt | 必需项。 字符串表达式在对话框中显示为消息。 prompt 的最大长度约为 1024 个字符,具体取决于所使用的字符的宽度。 如果 prompt 包含两行以上,则可以在每行之间使用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符组合 (Chr(13) & Chr(10)) 将其分隔。 |
buttons | 可选。 数值表达式,用于指定要显示按钮的数量和类型、要使用的图标样式、默认按钮的标识和消息框的形式的值之和。 如果省略,则 buttons 的默认值为 0。 |
title | 可选。 对话框标题栏中显示的字符串表达式。 如果省略 title,则标题栏中将显示应用程序名称。 |
helpfile | 可选。 用于标识帮助文件的字符串表达式,前者用于为对话框提供上下文相关的帮助。 如果提供 helpfile,则也必须提供 context。 |
context | 可选。 帮助上下文数值的数值表达式,该数值由帮助作者为相应的帮助主题分配。 如果提供 context,则也必须提供 helpfile。 |
buttons 参数设置如下:
常量 | 值 | 说明 |
---|---|---|
vbOKOnly | 0 | 仅显示“确定”按钮。 |
vbOKCancel | 1 | 显示“确定”和“取消”按钮。 |
vbAbortRetryIgnore | 2 | 显示“中止”、“重试”和“忽略”按钮。 |
vbYesNoCancel | 3 | 显示“是”、“否”和“取消”按钮。 |
vbYesNo | 4 | 显示“是”和“否”按钮。 |
vbRetryCancel | 5 | 显示“重试”和“取消”按钮。 |
vbCritical | 16 | 显示“关键消息”图标。 |
vbQuestion | 32 | 显示“警告查询”图标。 |
vbExclamation | 48 | 显示“警告消息”图标。 |
vbInformation | 64 | 显示“信息消息”图标。 |
vbDefaultButton1 | 0 | 第一个按钮是默认按钮。 |
联系客服