成为VIP
【分享成果，随喜正能量】心有多静，福就有多深”。面相好的人也是一种福报，心存善念，慈悲为怀，修心的第一步开始。。
《VBA代码解决方案》(10028096)这套教程是我最早推出的教程，目前已经是第三版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。
这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过度教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第54讲：VBA如何判断某单元格是否为数值
第五十六讲 格式化数值、日期和时间
大家好，我们今日继续讲解VBA代码解决方案的第56讲内容：格式化数值、日期和时间
1 Format函数的讲解
提到格式化，很多朋友马上会想到财务的报表，是那些非常错落有致的数字js日期格式化yyyymmdd，其实，这些规范化的数字表示都是有一定的原则执行的，这个原则就是按规矩执行。在VBA中就是Format函数地利用了。
Format函数根据格式表达式中的指令来格式化的数值、日期和时间，语法如下：
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
其中参数
1）expression是必须的，任何有效的表达式。
2）format是可选的，有效的命名表达式或用户自定义格式表达式。
3）firstdayofweek可选参数。常数，表示一星期的第一天。firstweekofyear可选参数。常数，表示一年的第一周。
4）firstdayofweek 参数有下面设置：vbUseSystem0 使用 NLS API 设置；VbSunday 1 星期日（缺省）；vbMonday2 星期一；vbTuesday3 星期二；vbWednesday4星期三；vbThursday5星期四；vbFriday 6 星期五；vbSaturday 7 星期六
5）firstweekofyear 参数有下面设置：vbUseSystem 0 使用 NLS API 设置；vbFirstJan11 从包含一月一日的那一周开始（缺省）。；vbFirstFourDays2 从本年第一周开始，而此周至少有四天在本年中。VbFirstFullWeek 3 从本年第一周开始，而此周完全在本年中。
2 Format函数的应用实例
Format函数是VBA中的常用函数js日期格式化yyyymmdd，可以实现数值、日期和时间格式的转变，下面为一段示例代码如下：
Sub mynz_56()
MsgBox Format(123456.789, “0.00”) & Chr(13) _
& Format(123456.789, “0.00%”) & Chr(13) _
& Format(123456.789, “##,##0.00”) & Chr(13) _
& Format(-123456.789, “$#,##0.00;($#,##0.00)”) & Chr(13) _
& Format(-123456.789, “￥#,##0.00;(￥#,##0.00)”) & Chr(13) _
& Format(Date, “yyyy-mm-dd”) & Chr(13) _
& Format(Date, “yyyymmdd”) & Chr(13) _
& Format(Date, “Long Date”) & Chr(13) _
& Format(Now, “hh:mm:ss”) & Chr(13) _
& Format(Now, “hh:mm:ss AMPM”)
End Sub
代码窗口：
代码解析：mynz_56过程使用消息框显示格式化后的数值、日期和时间。
1）第2行代码将数值格式化为两位小数格式显示。
2）第3行代码将数值格式化为两位小数的百分比格式显示。
3）第4行代码将数值格式化为千位分隔符显示。
4）第5行代码将数值格式化为以美元符号显示的两位小数，以千位分隔符分隔，如果是负值则以小括号显示。
5）第6行代码将数值格式化为以人民币符号显示的两位小数，以千位分隔符分隔，如果是负值则以小括号显示。
6）第7行代码将系统日期格式化为“yyyy-mm-dd”格式显示。
7）第8行代码将系统日期格式化为“yyyymmdd”格式显示。
8）第9行代码将系统日期格式化为长日期格式显示。
9）第10行代码将系统时间格式化为24小时、分钟和秒的格式显示。
10）第11行代码将系统时间格式化为分12小时、分钟和秒的格式显示。
运行结果：
今日内容回向：
1 Format函数 的意义是什么？
2 如何实现数字的格式化？
本讲内容参考程序文件：VBA代码解决方案（55-60）.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】人生靠养，养温和的情绪，养平和的心态，便养好了人生。 。
限时特惠：本站每日持续更新海量展厅资源，一年会员只需29.9元，全站资源免费下载
站长微信：zhanting688
