vb format函数

vb format函数 VB 2010-05-05 16:28:14 阅读39 评论0 字号:大中小 格式输出Format函数 Format函数用于制定字符串或数字的输出格式。 语法:x = Format (expression, fmt ) expression是所输出的内容。fmt是指输出的格式，这是一个字符串型的变量，这一项若 省略的话，那么Format函数将和Str函数的功能差不多。如: 语句 输出 Format (2, “0.00”) 2.00 Format (.7, “0%”) 70% Format (1140, “$#,##0”) $1,140 fmt字符的意义 字意义 字符 意义 符 . 显示一数字，若此位置没有数字则补0 小数点 0 , 显示一数字，若此位置没有数字则不显 千位的分隔符 # 示 - + 数字乘以100并在右边加上”%”号 这些字出现在fmt里将原样打出 % $ ( ) Format函数对时间进行输出时的意义 fmt fmt 输出 输出 m/d/yy 8/16/96 h:mm:ss a/p 10:41:29 p d-mmmm-yy 16-August-96 h:mm 22:41 d-mmmm 16-August h:mm:ss 22:41:29 mmmm-yy august-96 m/d/yy h:mm 8/16/96 22:41 hh:mm AM/PM 10:41 PM 用VB程序如何先判断短日期格式是否为yyyy-mm-dd， 如不是如何用程序设置短日期格式为yyyy-mm-dd并立即生效 , 对我有用[0] , 丢个板砖[0] , 引用 , 举报 , 管理 , TOP 回复次数:15 #1楼 得分:5回复于:2004-07-08 19:17:08 你不用判断，不管是不是yyyy-mm-dd這個格式， 你在form load 中加上。format(date, 'yyyy-MM-dd ') date是你需要轉換的數據 , , mike820513 , (不經歷風雨*怎麼 見彩虹) , 对我有用[0] , 等 级: , 丢个板砖[0] , , 引用 , 举报 , 管理 , TOP 精华推荐:希望大家警惕一个严重的问题 #2楼 得分:5回复于:2004-07-08 19:23:58 , , RUKYO Format(mDate, "YYYY/MM/DD ") , (蠢蠢的男子汉 - 恋星夜柔光，) , 等 级: , , 对我有用[0] , 丢个板砖[0] , 引用 , 举报 , 管理 , TOP 精华推荐:关于PNG格式的图片处理问题 #3楼 得分:5回复于:2004-07-08 19:26:19 format(date, "yyyy-MM-dd ") , , mike820513 , 对我有用[0] , (不經歷風雨*怎麼 , 丢个板砖[0] 見彩虹) , 引用 , 等 级: , 举报 , , 管理 , TOP 精华推荐:“悬赏分”是不是有点刺眼,大家讨论。 #4楼 得分:5回复于:2004-07-08 20:01:21 用format直接格化成yyyy-MM-dd就等了~~format(date, "yyyy-MM-dd ") , , wismon , 对我有用[0] , (问题多多) , 丢个板砖[0] , 等 级: , 引用 , 举报 , , 管理 , TOP 精华推荐:无聊写了个小解释器 #5楼 得分:5回复于:2004-07-08 20:05:17 俄～ , , kmzs , (.:RNPA:.山水岿 , 对我有用[0] 濛) , 丢个板砖[0] , 等 级: , 引用 , , 举报 , 管理 , TOP 精华推荐:大讨论:关于VB Winsock。 #6楼 得分:5回复于:2004-07-09 00:21:46 private sub formload() format(date, 'yyyy-MM-dd ') end sub , , sdmyhy , (非典型流氓) , 等 级: , 对我有用[0] , , 丢个板砖[0] , 引用 , 举报 , 管理 , TOP #7楼 得分:5回复于:2004-07-09 08:33:11 , , chuting 注意MM要大写 , (学习的动力) , 等 级: , , 对我有用[0] , 丢个板砖[0] , 引用 , 举报 , 管理 , TOP #8楼 得分:5回复于:2004-07-09 09:13:28 Format(mDate, "YYYY/MM/DD ") , , chenkangli , 对我有用[0] , (编程浪子) , 丢个板砖[0] , 等 级: , 引用 , , 举报 , 管理 , TOP #9楼 得分:5回复于:2004-07-09 09:38:23 直接有日期型控件，可以固定这个格式。VB自带～～ , , pancult , (菜鸟也疯狂) , 对我有用[0] , 等 级: , 丢个板砖[0] , , 引用 , 举报 , 管理 , TOP #10楼 得分:5回复于:2004-07-09 09:49:17 format(s_date, "yyyy-mm-dd ") , , zwbhyy , 对我有用[0] , (流浪者) , 丢个板砖[0] , 等 级: , 引用 , , 举报 , 管理 , TOP #11楼 得分:0回复于:2004-07-09 09:53:21 如果你是在窗体加载的时候设置的时间，那么最好加上一个timer控件，设置interval，每隔一定时间就看显示时间和系统的 时间是否一样，否则的话就改变显示时间。 否则你的时间老是窗体加载那时的时间不会改变。 , , houyun , (笑拈彼岸花) , 等 级: , 对我有用[0] , , 丢个板砖[0] , 引用 , 举报 , 管理 , TOP #12楼 得分:0回复于:2004-07-09 12:10:35 Format(mDate, "YYYY/MM/DD ") , , 对我有用[0] , flyingZFX , (卍 南无阿弥陀佛, 丢个板砖[0] 卍) , 引用 , 等 级: , 举报 , 管理 , , TOP #13楼 得分:0回复于:2004-07-09 13:26:46 format(date, "yyyy-mm-dd ") , , wxrwan , (坚持不懈，终会 , 对我有用[0] 成功) , 丢个板砖[0] , 等 级: , 引用 , , 举报 , 管理 , TOP #14楼 得分:0回复于:2004-07-09 18:44:20 我问的是直接改变控制面板中短日期格式，不是日期转换 不过我已经知道了 , Private Declare Function GetSystemDefaultLCID Lib "kernel32 " () As Long , jautomn Private Declare Function SetLocaleInfo Lib "kernel32 " Alias "SetLocaleInfoA " (ByVal Locale As Lon, (Oce@n Chu) g, ByVal LCType As Long, ByVal lpLCData As String) As Boolean , 等 级: Private Const LOCALE_SLONGDATE = &H20 , Private Const LOCALE_SSHORTDATE = &H1F Private Const LOCALE_STIME = &H1E Private Sub Command1_Click() Dim lngLocale As Long lngLocale = GetSystemDefaultLCID() If lngLocale = 2052 Then SetLocaleInfo lngLocale, LOCALE_SLONGDATE, "yyyy '年 'M '月 'd '日 ' " End Sub 另外再问问各位，如何把区域设置中的--数字--“显示前导零”，设置为0.7的格式。 , 对我有用[0] , 丢个板砖[0] , 引用 , 举报 , 管理 , TOP #15楼 得分:0回复于:2004-07-09 19:30:16 如何把区域设置中的--数字--“显示前导零”，设置为0.7的格式。 ---------------------------------------------- 暈，直接可以設置，有選啊 , , mike820513 , (不經歷風雨*怎麼 見彩虹) , 等 级: , VB Format函数使用方法 减小字体 增大字体 作者:佚名 来源:本站整理 发布时间:2010-04-01 22:47:58 返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。 语法 Format(expression[ format[ firstdayofweek[ firstweekofyear]]]) Format 函数的语法具有下面几个部分: 部分 说明 必要参数。任何有效的表达式。 expression 可选参数。有效的命名表达式或用户自定义格式表达式。 format 可选参数。常数，表示一星期的第一天。 firstdayofweek 可选参数。常数，表示一年的第一周。 firstweekofyear 设置值 firstdayofweek 参数有下面设置: 常数 值 说明 使用 NLS API 设置。 vbUseSystem 0 星期日(缺省) VbSunday 1 星期一 vbMonday 2 星期二 vbTuesday 3 星期三 vbWednesday 4 星期四 vbThursday 5 星期五 vbFriday 6 星期六 vbSaturday 7 firstweekofyear 参数有下面设置: 常数 值 说明 使用 NLS API 设置。 vbUseSystem 0 从包含一月一日的那一周开始(缺省)。 vbFirstJan1 1 从本年第一周开始，而此周至少有四天在本年中。 vbFirstFourDays 2 从本年第一周开始，而此周完全在本年中。 VbFirstFullWeek 3 说明 格式化 作法 数字 使用预先定义的命名数值格式或创建用户自定义数值格式。 日期和时间 使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。 日期和时间序数 使用日期和时间格式或数值格式。 字符串 创建自定义的字符串格式。