函式詳解
函式聲明
function Format(const Format: string; const Args: array of const): string; overload;
函式功能
事實上Format方法有兩種形式,另外一種是三個參數的,主要區別在於它是執行緒安全的, 但並不多用,所以這裡只對第一個介紹。Format參數是一個格式字元串,用於格式化Args裡面的值的。Args是一個變數數組,即它裡面可以有多個參數,而且每個參數可以不同。 例如:
Format("my name is %6s","wind");
返回的是:my name is wind
函式參數
格式指令具有以下的形式: "%" [index ":"] ["-"] [width] ["." prec] type
它是以"%"開始,而以type結束,type表示一個具體的類型。中間是用來格式化type類型的指令字元,是可選的。各個參數的含義與用途如下:
[type]
type參數可選的類型有d,u,f,e,g,n,m,p,s,x.
1) d 十進制數,表示一個整型值,u 和d一樣是整型值,但它是無符號的,而如果它對應的值是負的,則返回時是一個2的32次方減去這個負數的絕對值。
例如: Format("this is %u",-2);
返回的是:this is 4294967294
2)f 對應浮點數
3)e科學表示法,對應整型數和浮點數
例如: Format("this is %e",-2.22);
返回的是:this is -2.220000E+000
4)g 這個只能對應浮點型,且它會將值中多餘的數去掉
例如: Format("this is %g",02.200);
返回的是:this is 2.2
5)n 只能對應浮點型,將值轉化為號碼的形式,看一個例子就明白了
例如: Format("this is %n",4552.2176);
返回的是:this is 4,552.22
注意:一是,只表示到小數後兩位
二是,即使小數沒有被截斷,它也不會也像整數部分一樣有逗號來分開的
6)m 錢幣類型,但關於貨幣類型有更好的格式化方法,這裡只是簡單的格式化,另外它只對應於浮點值
例如: Format("this is %m",9552.21);
返回的是:this is ¥9,552.21
7)p 對應於指針類型,返回的值是指針的地址,以十六進制的形式來表示
例如: Format("this is %p",p);
返回的是:this is 0012F548
8)s 對應字元串類型
9)x 必須是一個整形值,以十六進制的形式返回
例如: Format("this is %X",15);
返回的是:this is F
下面介紹格式化Type的指令:
[index ":"] :index指示Args中參數顯示的順序 。
例如: Format("this is %d %d",12,13);
其中第一個%d的索引是0,第二個%d是1,所以字元顯示的時候,是這樣:this is 12 13
若定義為: Format("this is %1:d %0:d",12,13);
那么返回的字元串就變成了:this is 13 12
若定義為: Format("%d %d %d %0:d %d", 1, 2, 3, 4) ;
那么將返回的是:1 2 3 1 2
若想返回的是1 2 3 1 4,必須這樣定義: Format("%d %d %d %0:d %3:d", 1, 2, 3, 4) ;
注意:索引不能超出Args中的個數,不然會引起異常。
例如: Format("this is %2:d %0:d",12,13);
由於Args中只有12 13 兩個數,所以Index只能是0或1,這裡為2就錯了 。
[width] :指定將被格式化的值占的寬度。
例如: Format("this is %4d",12);
返回的是:this is 12
如果Width的值小於參數的長度,則沒有效果。
例如: Format("this is %1d",12);
返回的是:this is 1
["-"] :這個指定參數向左對齊,和[width]合在一起最可以看到效果。
例如: Format("this is %-4d,yes",12);
返回的是:this is 12 ,yes
["." prec] :指定精度,對於浮點數效果最佳。
例如: Format('this is %.2f,1.1234);
返回的是: this is 1.12
又如: Format('this is %.7f,1.1234);
返回的是: this is 1.1234000
而對於整型數,如果prec比如整型的位數小,則沒有效果,反之比整形值的位數大,則會在整型值的前面以0補之。
例如: Format('this is %.7d,1234);
返回的是:this is 0001234
對於字元型,剛好和整型值相反,如果prec比字元串型的長度大,則沒有效果,反之比字元串型的長度小,則會截斷尾部的字元。
例如: Format('this is %.2s,1234);
返回的是:this is 12
之前說過的例子: Format("this is %e",-2.22);
返回的是:this is -2.220000E+000
若這樣: Format('this is %.2e',[-2.22]);就可以解決了!
用法
FormatDateTime的用法
當然和Format一樣還有一種,但這裡只介紹常用的第一種
重點來看Format參數中的指令字元
c 以短時間格式顯示時間,即全部是數字的表示
FormatdateTime('c',now);
輸出為:2004-8-7 9:55:40
d 對應於時間中的日期,日期是一位則顯示一位,兩位則顯示兩位
FormatdateTime('d',now);
輸出可能為1~31
dd 和d的意義一樣,但它始終是以兩位來顯示的
FormatdateTime('dd',now);
輸出可能為01~31
ddd 顯示的是星期幾
FormatdateTime('ddd',now);
輸出為: 星期六
dddd 和ddd顯示的是一樣的。
但上面兩個如果在其他國家可能不一樣。
ddddd 以短時間格式顯示年月日
FormatdateTime('ddddd',now);
輸出為:2004-8-7
dddddd 以長時間格式顯示年月日
FormatdateTime('dddddd',now);
輸出為:2004年8月7日
e/ee/eee/eeee 以相應的位數顯示年
FormatdateTime('ee',now);
輸出為:04 (表示04年)
m/mm/mmm/mmmm 表示月
FormatdateTime('m',now);
輸出為:8
FormatdateTime('mm',now);
輸出為 08
FormatdateTime('mmm',now);
輸出為 八月
FormatdateTime('mmmm',now);
輸出為 八月
和ddd/dddd 一樣,在其他國家可能不同
yy/yyyy 表示年
FormatdateTime('yy',now);
輸出為 04
FormatdateTime('yyyy',now);
輸出為 2004
大概如此,如果要在Format中加普通的字元串,可以用雙引號隔開那些
特定義的字元,這樣普通字元串中如果含特殊的字元就不會被顯示為
時間格式啦:
FormatdateTime('"today is" c',now);
輸出為:today is 2004-8-7 10:26:58
時間中也可以加"-"或""來分開日期:
FormatdateTime('"today is" yy-mm-dd',now);
FormatdateTime('"today is" yymmdd',now);
輸出為: today is 04-08-07
也可以用":"來分開時間
FormatdateTime('"today is" hh:mm:ss',now);
輸出為:today is 10:32:23
FormatFloat的用法
常用的聲明:
function FormatFloat(const Format: string; Value: Extended): string; overload;
和上面一樣Format參數為格式化指令字元,Value為Extended類型
為什麼是這個類型,因為它是所有浮點值中表示範圍最大的,如果傳入該方法的參數
比如Double或者其他,則可以保存不會超出範圍。
關鍵是看Format參數的用法
0 這個指定相應的位數的指令。
比如:FormatFloat('000.000',22.22);
輸出的就是022.220
注意一點,如果整數部分的0的個數小於Value參數中整數的位數,則沒有效果
如:FormatFloat('0.00',22.22);
輸出的是:22.22
但如果小數部分的0小於Value中小數的倍數,則會截去相應的小數和位數
如:FormatFloat('0.0',22.22);
輸出的是:22.2
也可以在整數0中指定逗號,這個整數位數必須大於3個,才會有逗號出句
FormatFloat('0,000.0',2222.22);
輸出是:2,222.2
如果這樣FormatFloat('000,0.0',2222.22);
它的輸出還是:2,222.2
注意它的規律
# 和0的用法一樣,目前我還沒有測出有什麼不同。
FormatFloat('##.##',22.22);
輸出是:22.00
E 科學表示法,看幾個例子大概就明白了
FormatFloat('0.00E+00',2222.22);
Format函式
返回 Variant( String),其中含有一個表達式,它是根據格式表達式中的指令來格式化的。
語法
Format( expression[, format[, firstdayofweek[, firstweekofyear]]])
Format函式的語法具有下面幾個部分:
部分 | 說明 |
expression | 必要參數。任何有效的表達式。 |
format | 可選參數。有效的命名表達式或用戶自定義格式表達式。 |
firstdayofweek | 可選參數。常數,表示一星期的第一天。 |
firstweekofyear | 可選參數。常數,表示一年的第一周。 |
設定值
firstdayofweek參數有下面設定:
常數 | 值 | 說明 |
vbUseSystem | 0 | 使用 NLS API 設定。 |
VbSunday | 1 | 星期日(預設) |
vbMonday | 2 | 星期一 |
vbTuesday | 3 | 星期二 |
vbWednesday | 4 | 星期三 |
vbThursday | 5 | 星期四 |
vbFriday | 6 | 星期五 |
vbSaturday | 7 | 星期六 |
firstweekofyear參數有下面設定:
常數 | 值 | 說明 |
vbUseSystem | 0 | 使用 NLS API 設定。 |
vbFirstJan1 | 1 | 從包含一月一日的那一周開始(預設)。 |
vbFirstFourDays | 2 | 從本年第一周開始,而此周至少有四天在本年中。 |
VbFirstFullWeek | 3 | 從本年第一周開始,而此周完全在本年中。 |
說明
格式化 | 作法 |
數字 | 使用預先定義的命名數值格式或創建用戶自定義數值格式。 |
日期和時間 | 使用預先定義的命名日期/時間格式或創建用戶自定義日期/時間格式。 |
日期和時間序數 | 使用日期和時間格式或數值格式。 |
字元串 | 創建自定義的字元串格式。 |
如果在格式化數字時沒有指定 format, Format會提供與 Str函式類似的功能,儘管它是國際化的。然而,以 Format作用在正數上不會保留正負號空間,而以 Str的話則會。
如果要格式化一個沒有本地化的數值字元串,應該使用一個用戶自定義的數值格式,以保證得到需要的外觀。
注意如果 Calendar屬性設定是Gregorian ,並且 format指定了日期格式,那么,提供的 expression必須是Gregorian 。如果Visual Basic Calendar屬性設定是 Hijri,則提供的的 expression必須是Hijri 。
如果日曆是Gregorian,則 format表達式的意義沒有改變。如果日曆是Hijri ,則所有的日期格式符號(例如, dddd, mmmm, yyyy)有相同的意義,這些意義只套用於Hijri 日曆。格式符號保持英文,用於文本顯示的符號(例如,AM 和PM )顯示與該符號有關的字元串(英文或阿拉伯數字)。當日曆是Hijri 時,一些符號的範圍會改變。
符號 | 範圍 | ||||
d1-30 | dd1-30 | ww1-51 | mmm顯示完整的月份名稱(Hijri 月份名稱無縮寫形式) | y1-355 | yyyy100-9666 |
函式示例
本示例顯示用 Format 函式做格式化輸出的不同用法。對於日期分隔號(/),時間分隔號(:),以及 AM/ PM 等文本而言,其真正的顯示格式會因計算機上的國際標準不同而有所差異。在開發階段,日期與時間是以短日期的格式,配合代碼的國際標準來顯示的。而在運行時,短日期則是根據系統的國際標準而定,而系統的國際標準和代碼的國際標準可能並不相同。本示例中是假設國際標準為 English/United States。
MyTime 及 MyDate 在開發環境下,使用系統的短日期設定顯示出來的。
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
' 以系統設定的長時間格式返回當前系統時間。
MyStr = Format(Time, "Long Time")
' 以系統設定的長日期格式返回當前系統日期。
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23"。
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' 返回 "05:04:23 PM"。
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返回 "Wednesday, Jan 27 1993"。
' 如果沒有指定格式,則返回字元串。
MyStr = Format(23) ' 返回 "23"。
' 用戶自定義的格式。
MyStr = Format(5459.4, "##,##0.00") ' 返回 "5,459.40"。
MyStr = Format(334.9, "###0.00") ' 返回 "334.90"。
MyStr = Format(5, "0.00%") ' 返回 "500.00%"。
MyStr = Format("HELLO", "<") ' 返回 "hello"。
MyStr = Format("This is it", ">") ' 返回 "THIS IS IT"。