VBA函数精选之十四（Format 函数）

蓝桥玄霜

第1.14例 Format 函数
一、题目：
　　要求编写一段代码，运用Format 函数对指定字符串返回指定格式的输出。
二、代码：
Sub 示例_1_14()
        Dim sj, rq
        sj = “19:08:43”
        rq = “2008-8-8”
        MsgBox sj & “ 的格式设为"hh:mm:ss AMPM"： ” & Format(sj, "hh:mm:ss AMPM")    ' 返回 "07:08:43下午"。
        MsgBox rq &  “ 的格式设为"dddd, mmm d yyyy"： ” & Format(rq, "dddd, mmm d yyyy")   
End Sub
三、代码详解
1、Sub 示例_1_14()：宏程序的开始语句。宏名为示例_1_14。
2、Dim sj,rq    ：变量sj,rq声明为可变型数据类型。
3、sj = “19:08:43”  ：把字符串”19:08:43”赋给变量sj。
4、rq = “2008-8-8”  ：把字符串”2008-8-8”赋给变量rq。
5、MsgBox sj & “ 的格式设为"hh:mm:ss AMPM"： ” & Format(sj, "hh:mm:ss AMPM")  ：
利用MsgBox函数显示Format函数的值。返回 "07:08:43下午"。
6、MsgBox rq &  “ 的格式设为"dddd, mmm d yyyy"： ” & Format(rq, "dddd, mmm d yyyy")   ：
　　利用MsgBox函数显示Format函数的值。

Format函数
根据有效的命名表达式来对指定的表达式进行格式化。

Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
Format 函数具有下面几个参数：
expression        必要参数。任何有效的表达式。
format        可选参数。有效的命名表达式或用户自定义格式表达式。
firstdayofweek        可选参数。常数，表示一星期的第一天。
firstweekofyear        可选参数。常数，表示一年的第一周。

VBA函数精选之十三（Fix 函数）：http://club.excelhome.net/viewth ... &extra=page%3D1

gzgis

谢谢蓝桥玄霜，2-14集我收藏了，但VBA函数精选之一我找不到，能告诉我链接地址吗？

zlf2008

不错呀，认真学习一下！

XK-10

MsgBox sj & “ 的格式设为"hh:mm:ss AMPM"： ” & Format(sj, "hh:mm:ss AMPM")---------- 这部分代码总是在头一个hh处提示缺少语句结束！拷过去的引号得重新输一道才不提示无效字符。这是为什么呢？

刘志文

认真学习一下

liechun1983

再次复习一下

jackbauerctu

加双引号就行了

嘻哩嘛哈

请教Format函数，在换了一台电脑运行时中断，提示“找不到工程域库”，记得哪个贴里说，用函数全称可解决，请教Format函数的全称是怎样的？

beckham175

頂！！！好帖～

byhyxb

讲解的详细、易于理解