VB語句函數大全

(一)類型轉換類函數

興山網站制作公司哪家好，找創新互聯公司！從網頁設計、網站建設、微信開發、APP開發、響應式網站開發等網站項目制作，到程序開發，運營維護。創新互聯公司成立于2013年到現在10年的時間，我們擁有了豐富的建站經驗和運維經驗，來保證我們的工作的順利進行。專注于網站建設就選創新互聯公司。

1. CType(X)

[格式]：

P=CBool(X)

' 將X轉換為"布爾"(Boolean)類型

P=CByte(X)

' 將X轉換為"字節"(Byte)類型

P=CCur(X)

' 將X轉換為"金額"(Currency)類型

P=CDate(X)

' 將X轉換為"日期"(Date)類型

P=CDbl(X)

' 將X轉換為"雙精度"(Double)類型

P=CInt(X)

' 將X轉換為"整型"(Integer)類型

P=CLng(X)

' 將X轉換為"長整型"(Long)類型

P=CSng(X)

' 將X轉換為"單精度"(Single)類型

P=CStr(X)

' 將X轉換為"字符串"(String)類型

P=Cvar(X)

' 將X轉換為"變體型"(Variant)類型

P=CVErr(X)

' 將X轉換為Error值

[ 范例 ]：

(1). CStr(13)+CStr(23)

' 數值轉換成字符串后，用"+"號連接， 結果：1323

(2). CInt("12")+12

' 字符串轉換成整型后與12相加， 結果：24

(3). P=CInt(True)

' 輸出結果為-1

' 布爾值與數值的轉換時要注意，布爾值只有True和False，其中True在內存中為-1,False存為0

(4). CBool(-0.001)

' 輸出結果為True

' 將數值轉換為布爾型時，等于0的數值將得到False，不等于0的數值得到True.

2. Int(X),Fix(X)：取X的整數值

[格式]：

P=Int(X) ' 取=X的最大整數值

P=Fix(X) ' 取X的整數部分，直接去掉小數

[范例]：

(1) Int(-54.6)

' 結果為-55，取=-54.6的最大整數

(2) Fix(54.6)

' 結果為54，取整數并直接去掉小數

(二)常用數學函數

[格式]：

1. Abs(N) 取絕對值

例：Abs(-3.5) 結果：3.5

2. Cos(N) 余弦函數

例：Cos(0) 結果：1

3. Exp(N) e為底的指數函數

例：Exp(3) 結果：20.068

4. Log(N) 以e為底的自然對數

例：Log(10) 結果：2.3

5. Rnd[(N) 產生隨機數

例：Rnd 結果：0--1之間的數

6. Sin(N) 正弦函數

例：Sin(0) 結果：0

7. Sgn(N) 符號函數

' 說明：取正負號。Y=Sgn(X) 既 X0 則Y=1；X=0 則Y=0；X0 則Y= -1

8. Sqr(N) 平方根

例：Sqr(9) 結果：3

9. Tan(N) 正切函數

例：Tan(0) 結果：0

10.Atn(N) 反切函數

例：Atn(0) 結果：0

[注意]：在三角函數中，以弧度表示。

(一)字符串類函數：

1. ASC(X)，Chr(X)：轉換字符字符碼

[格式]：

P=Asc(X) 返回字符串X的第一個字符的字符碼

P=Chr(X) 返回字符碼等于X的字符

[范例]：

(1)P=Chr(65)

'輸出字符A,因為A的ASCII碼等于65

(2)P=Asc("A")

'輸出65

2. Len(X)：計算字符串X的長度

[格式]：

P=Len(X)

[說明]：

空字符串長度為0，空格符也算一個字符，一個中文字雖然占用2 Bytes，但也算一個字符。

[范例]：

(1) 令X="" (空字符串)

Len(X) 輸出結果為0

(2) 令X="abcd"

Len(X) 輸出結果為4

(3) 令X="VB教程"

Len(X) 輸出結果為4

3. Mid(X)函數：讀取字符串X中間的字符

[格式]：

P=Mid(X,n)

由X的第n個字符讀起，讀取后面的所有字符。

P=Mid(X,n,m)

由X的第n個字符讀起，讀取后面的m個字符。

[范例]：

(1) X="abcdefg"

P=Mid(X,5)

結果為：P="efg"

(2) X="abcdefg"

P=Mid(X,2,4)

結果為P="bcde"

4. Replace： 將字符串中的某些特定字符串替換為其他字符串

[格式]：

P=Replace(X,S,R)

[說明]：將字符串X中的字符串S替換為字符串R，然后返回。

[范例]：

X="VB is very good"

P=Replace(X,good,nice)

輸出結果為：P="VB is very nice"

5. StrReverse：反轉字符串

[格式]：

P=StrReverse(X)

[說明]：

返回X參數反轉后的字符串

[范例]：

(1)X="abc"

P=StrReverse(X)

輸出結果：P="cba"

6. Ucase(X)，Lcase(X)：轉換英文字母的大小寫

[格式]：

P=Lcase(X)

'將X字符串中的大寫字母轉換成小寫

P=Ucase(X)

'將X字符串中的小寫字母轉換成大寫

[說明]：除了英文字母外，其他字符或中文字都不會受到影響。

[范例]：

(1) 令 X="VB and VC"

則Lcase(X)的結果為"vb and vc"，Ucase(X)的結果為"VB AND VC"

7. InStr函數：尋找字符串

[格式]：

P=InStr(X,Y)

從X第一個字符起找出Y出現的位置

P=InStr(n,X,Y)

從X第n個字符起找出Y出現的位置

[說明]：

(1) 若在X中找到Y，則返回值是Y第一個字符出現在X中的位置。

(2) InStr(X,Y)相當于InStr(1,X,Y)。

(3) 若字符串長度，或X為空字符串，或在X中找不到Y，則都返回0。

(4) 若Y為空字符串，則返回0。

(二)日期時間類函數：

1. Year(X)，Month(X)，Day(X)：取出年，月，日

[格式]：

P=Year(X)

取出X"年"部分的數值

P=Month(X)

取出X"月"部分的數值

P=Day(X)

取出X"日"部分的數值

[說明]：Year返回的是公元年，若X里只有時間，沒有日期，則日期視為#1899/12/30#

2. Hour，Minute，Second函數：取出時，分，或秒

[格式]：

P=Hour(X)

取出X"時"部分的數值

P=Minute(X)

取出X"分"部分的數值

P=Second(X)

取出X"秒"部分的數值

[說明]：Hour的返回值是0---23之間

[范例]：

X=10:34:23

P=Hour(X)

Q=Minute(X)

R=Second(X)

則輸出結果：P=10，Q=34，R=23

3. DateSerial函數：合并年，月，日成為日期

[格式]：DateSerial(Y,M,D)

其中Y是年份，M為月份，D為日期

[說明]：

(1) M值若大于12，則月份從12月起向后推算M-12個月；若小于1，則月份從1月起向后推算1-M個月。

(2) 若日期D大于當月的日數，則日期從當月的日數起，向后推算D-當月日數；若小于1，則日期從1日起向前推算1-D日。

[范例]：

P=DateSerial(2000,02,02)

則結果為P=2000/02/02

4．TimeSerial函數：合并時，分，秒成為時間

[格式]：P=TimeSerial(H,M,S)

其中H為小時數，M為分鐘數，S為秒數

[說明]：推算原理同上面的DateSerial

[范例]：

P=TimeSerial(6,32,45)

結果為：P=6:32:45

5．Date,Time,Now函數：讀取系統的日期時間

[格式]：

P=Date()

P=Time()

P=Now()

[說明]：這三個函數都無參數

[范例]：

若當前時間為2003年8月29日晚上19點26分45秒，則

P=Now()

結果為：P=2003-08-29 19:26:45

6．MonthName：返回月份名稱

[格式]：P=MonthName(X)

[說明]：X參數可傳入1---12，則返回值為"一月"、"二月"……，但是在英文Windows環境下，返回的是"January","February"……

[范例]：

P=MonthName(1)

則P="一月"

7．WeekdayName：返回星期名稱

[格式]：P=WeekdayName(X)

[說明]：X參數可傳入1—7，則返回值為"星期日"，"星期一"……，但是在英文windows環境下，返回的是"Sunday","Monday"……

[范例]：

P=WeekdayName(1)

結果為：P="星期日"

函數名稱 函數功能

Cbool(string) 轉換為布爾值

Cbyte(string) 轉換為字節類型的值

Ccur(string) 轉換為貨幣類值

Cdate(string) 轉換為日前類型的值

Cdbl(string) 轉換為雙精度值

Cint(string) 轉換為整數值

Clng(string) 轉換為長整型的值

Csng(string) 轉換為單精度的值

Cstr(var) 轉換為字符串值

Str(var) 數值轉換為字符串

Val(string) 字符串轉換為數值

***************************************

Abs(nmb) 返回數子的絕對值

Atn(nmb) 返回一個數的反正切

Cos(nmb) 返回一個角度的余炫值

Exp(nmb) 返回自然指數的次方值

Int(nmb) 返回數字的整形（進位）部份 8.4--9

Fix(nmb) 返回數字的整形（舍去）部份 8.4--8

Formatpercent(表達式) 返回百分比

Hex(nmb) 返回數據的16進制數

Log(nmb) 返回自然對數

Oct(nmb) 返回數字的8進制數

Rnd 返回大于“0”而小于“1”的隨機數

Sgn(nmb) 判斷一個數字的正負號

Sin(nmb) 返回角度的正鉉值

Sqr(nmb) 返回數字的二次方根

Tan(nmb) 返回一個數的正切值

Asc(string) 返回ASCII字符串

Chr(charcode) 根據字符代碼返回字符

Instr(string,searchstr) 返回被搜索字符串的第一個字符位置，string是字符串，searchstr是被搜索的字符串

InstrRev(string,searchstr) 同上，只是從右面開始搜索

Lcase(var) 把字符串變為小寫

Left(string,nmb) 從string中返回從左面開始的nmb個字符串

Len(string) 返回字符串的長度

Ltrim(string) 截去字符串左邊的空格

Filter(inputstrings,value) 返回字符串數組的字集，Inputstrings是字符串組，value是在數組中尋找的字符

Rtrim(string) 截去字符串右邊的空格

Trim(string) 截去字符串前后空格

Mid(string,start,len) 在string中返回從start位置開始的len個字符

Replace(string,find,withstr) 在字符串string中，用withstr來替換find字符串

Right(string,nmb) 從string中返回從右面開始的nmb個字符串

Space(nmb) 返回指定空格的字符串

StrComp(string1,string2) 比較兩個字符串

Ucase(string) 把字符串變為大寫

****************************************

Date() 返回當前系統日期

DateAdd(interval,nmb,date) 用一個基礎時間返回指定增加了時間間隔的日期，interval是間隔類型，yyyy－年，m－月，d－日，h－小時，n－分。

DateDiff(interval,nmb1,nmb2) 返回兩個時間間隔，interval的意思同上

Datevalue(date) 發揮Date中的日期部份

Day(date) 返回天數

FormatDatetime(date) 返回格式化為日期的表達式

Hour(time) 返回時間的小時數

Minute(time) 返回時間的分鐘數

Month(date) 返回日期中的月份

Now() 返回系統的日期和時間

Second(time) 返回時間中的秒數

Time() 返回系統的當前時間

Weekday(date) 返回星期幾

WeekdayName(date) 返回星期幾的中文名

Year(date) 返回年份

IsArray(var) 判斷一個變量是否是數組

IsDate(var) 判斷一個變量是否是日期

IsNull(var) 判斷一個變量是否為空

IsNumeric 判斷表達式是否包含數值

IsObject(var) 判斷一個變量是否是對象

TypeName(var) 返回變量的數據類型

************************************

Array(list) 返回數組

CreateObject(class) 創建一個對象

GetObject(pathfilename) 得到文件對象

Inputbox(prompt) 提供一個可供輸入數據的對話框

LBound(arrayP) 返回數組的最小索引

Msgbox(string) 輸出一個消息框

Split(liststr) 從一個列表字符串中返回一個一維數組

Ubound(array) 返回數組的最大索引

vb編程計算某年某月某日是星期幾

VB內置的Weekday函數就可以返回星期.

Weekday(date[, firstdayofweek])

-- date: 必要; Date類型; 要求的日期

-- firstdayofweek: 可選; vbDayOfWeek類型; 定義每周第一天(默認為星期天)

Weekday返回一個Integer, 代表每周第幾天.

============================================

WeekdayName(weekday[, abbreviate][, firstdayofweek])

-- weekday: 必要; Long類型; 每周第幾天

-- abbreviate: 可選; Boolean類型; 表示星期的名稱是否被縮寫(默認為False)

-- firstdayofweek: 可選; vbDayOfWeek類型; 定義每周第一天(默認為星期天)

WeekdayName返回一個String, 如"星期一", 但根據不同的系統, 也會返回如"Monday".

============================================

你也可以不用WeekdayName自己得到星期名

Choose(Weekday(#8/8/2008#, vbMonday), "星期一", "星期二", "星期三", "星期四", "星期五", "星期六", "星期日")

在vb.net中，DateDiff（）函數是有什么用的？又是怎么用的？

DateDiff 函數

返回 Variant (Long) 的值，表示兩個指定日期間的時間間隔數目。

語法

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函數語法中有下列命名參數：

部分 描述

interval 必要。字符串表達式，表示用來計算date1 和 date2 的時間差的時間間隔

Date1□date2 必要；Variant (Date)。計算中要用到的兩個日期。

Firstdayofweek 可選。指定一個星期的第一天的常數。如果未予指定，則以星期日為第一天。

firstweekofyear 可選。指定一年的第一周的常數。如果未予指定，則以包含 1 月 1 日的星期為第一周。

設置

interval 參數的設定值如下：

設置 描述

yyyy 年

q 季

m 月

y 一年的日數

d 日

w 一周的日數

ww 周

h 時

n 分鐘

s 秒

firstdayofweek 參數的設定值如下：

常數 值 描述

vbUseSystem 0 使用 NLS API 設置。

vbSunday 1 星期日（缺省值）

vbMonday 2 星期一

vbTuesday 3 星期二

vbWednesday 4 星期三

vbThursday 5 星期四

vbFriday 6 星期五

vbSaturday 7 星期六

常數 值 描述

vbUseSystem 0 用 NLS API 設置。

vbFirstJan1 1 從包含 1 月 1 日的星期開始（缺省值）。

vbFirstFourDays 2 從第一個其大半個星期在新的一年的一周開始。

vbFirstFullWeek 3 從第一個無跨年度的星期開始。

說明

DateDiff 函數可用來決定兩個日期之間所指定的時間間隔數目。例如，可以使用 DateDiff 來計算兩個日期之間相隔幾日，或計算從今天起到年底還有多少個星期。

為了計算 date1 與 date2 相差的日數，可以使用“一年的日數”(y) 或“日”(d)。當 interval 是“一周的日數”(w) 時，DateDiff 返回兩日期間的周數。如果 date1 是星期一，DateDiff 計算到 date2 為止的星期一的個數。這個數包含 date2 但不包含 date1。不過，如果 interval 是“周”(ww)，則 DateDiff 函數返回兩日期間的“日歷周”數。由計算 date1 與 date2 之間星期日的個數而得。如果 date2 剛好是星期日，則 date2 也會被加進 DateDiff 的計數結果中；但不論 date1 是否為星期日，都不將它算進去。

如果 date1 比 date2 來得晚，則 DateDiff 函數的返回值為負數。

firstdayofweek 參數會影響使用時間間隔符號 “W” 或 “WW” 計算的結果。

如果 date1 或 date2 是日期文字，則指定的年份成為該日期的固定部分。但是，如果 date1 或 date2 用雙引號 (" ") 括起來，且年份略而不提，則在每次計算表達式 date1 或 date2 時，當前年份都會插入到代碼之中。這樣就可以書寫適用于不同年份的程序代碼。

在計算 12 月 31 日和來年的 1 月 1 日的年份差時，DateDiff 返回 1 表示相差一個年份，雖然實際上只相差一天而已。

VB6.0 要得到某一周是從哪一天開始的,哪一天結束的？

這里的“某一周”是有歧義的：

一種可能是某日期所在的周

第二種是某年的第幾周。這還有歧義。因為某年的第一周，可能開始于上一年，同時這一周也是上一年的最后一周，會重復計算。我們這里假設“不管是否重復計算”

第三種是每周從星期幾開始。我們這里假設“從星期一開始”。

下面分別是輸出“某日期所在的周始終日期”、“某年某周始終日期”、“某年各周始終日期”的代碼！

如果每周從星期日開始，將vbMonday替換為vbSunday即可。

'某日期所在的周始終日期

Private Sub Command3_Click()

Dim dt As Date

Dim wd As Integer

dt = InputBox("請輸入一個日期（Date格式）：", "輸入日期", Date)

wd = Weekday(dt, vbMonday) '某日是星期幾，周一為第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的開始日期

endDay = DateAdd("d", 7 - wd, dt) '本周的開始日期

Text1.Text = "當前日期所在的周起止日期："

Text1.Text = Text1.Text vbNewLine

Text1.Text = Text1.Text vbNewLine "每周從星期一開始"

Text1.Text = Text1.Text vbNewLine firstDay vbTab endDay

wd = Weekday(dt, vbSunday) '某日是星期幾，周日為第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的開始日期

endDay = DateAdd("d", 7 - wd, dt) '本周的開始日期

Text1.Text = Text1.Text vbNewLine

Text1.Text = Text1.Text vbNewLine "每周從星期日開始"

Text1.Text = Text1.Text vbNewLine firstDay vbTab endDay

End Sub

'某年某周始終日期

Private Sub Command4_Click()

Dim y As Integer

Dim w As Integer

Dim dt As Date

Dim wd As Integer

y = InputBox("請輸入年份：", "輸入年份", Year(Date))

dt = DateSerial(y, 1, 1)

w = InputBox("請輸入周數：", "第幾周", "")

dt = DateAdd("ww", (w - 1), dt)

wd = Weekday(dt, vbMonday) '某日是星期幾，周一為第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的開始日期

endDay = DateAdd("d", 7 - wd, dt) '本周的開始日期

Text1.Text = "當前日期所在的周起止日期："

Text1.Text = Text1.Text vbNewLine

Text1.Text = Text1.Text vbNewLine "每周從星期一開始"

Text1.Text = Text1.Text vbNewLine firstDay vbTab endDay

End Sub

'某年各周始終日期

Private Sub Command2_Click()

Dim y As Integer

Dim w As Integer

Dim dt As Date

Dim dte As Date

Dim wd As Integer

y = InputBox("請輸入年份：", "輸入年份", Year(Date))

dt = DateSerial(y, 1, 1)

dte = DateAdd("yyyy", 1, dt) - 1 '某年最后一天

wd = Weekday(dt, vbMonday) '某日是星期幾，周一為第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的開始日期

endDay = firstDay + 6 '本周的開始日期

Text1.Text = "當前日期所在的周起止日期："

Text1.Text = Text1.Text vbNewLine "(每周從星期一開始)"

Text1.Text = Text1.Text vbNewLine

Text1.Text = Text1.Text vbNewLine firstDay vbTab endDay

Do While endDay dte

w = w + 1

firstDay = firstDay + 7

endDay = firstDay + 6

Text1.Text = Text1.Text vbNewLine firstDay vbTab endDay

Loop

End Sub

怎么在vb中輸出固定小數位數的數字？

方法一：

用Round函數，語法 ：

ROUND(number,num_digits)

Number 需要進行四舍五入的數字。 Num_digits 指定的位數,按此位數進行四舍五入。

示例：

'Round(需要修改的數字,小數位數)

Print Round(3.1415926, 3)

顯示：3.142

方法二：

用Format函數，返回Variant(String)，其中含有一個表達式，它是根據格式表達式中的指令來格式化的。

語法

Format(expression[,format[,firstdayofweek[,firstweekofyear]]])

Format函數的語法具有下面幾個部分：

示例：

'Round(需要修改的數字,小數位數)

Print format (3.1415926, "#,###")

顯示：3.142

方法三：

1、打開VB6.0軟件，新建一個標準exe工程；

2、在設計界面上新建一個Command控件；

3、雙擊Command1控件，進入代碼編輯界面，輸入代碼：

Private?Sub?Command1_Click()

Dim?res?As?Double

res?=?Format(1?/?3,?"0.000")

Print?res;

End?Sub

4、運行工程，單擊按鈕，可以看到數據被保留三位小數；

5、總結，想要保留幾位小數，直接設置即可，如想設置保留5位小數，設置如下：

format(1/3,"0.00000")

本文標題：vb.net判斷是第幾周的簡單介紹
標題網址：http://m.kartarina.com/article28/hjigjp.html

成都網站建設公司_創新互聯，為您提供商城網站、網站策劃、虛擬主機、微信小程序、定制網站、Google

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯