vb日期函式函式,VB日期函式函式

時間 2021-12-18 21:56:11

1樓:洪恩崇莞爾

函式名:month(c)

含義:返回月份代號(1-12)

示例:month("07,03,19")

結果:3

會的解釋一下這函式?

month("07,03,19")

month

英文意思是月嘛,就是取日期當中的月

當然返回月份只能是1到12

month("07,03,19")取日期"07,03,19"中的月,當然返回是3了

函式名:year(c)

同上面一樣了,只是年取值範圍是

1752年-2078年

所以year("07-03-19")

返回的是2007

2樓:匿名使用者

time返回系統時鐘的當前時間。date返回系統時鐘的當前日期。now返回代表當前日期和時間的編碼值。

該函式經常用作其它系統時鐘函式的引數。hour(time)返回指定時間的小時部分(0到23)。minute(time)返回指定時間的分鐘部分(0到59)。

second(time)返回指定時間的秒部分(0到59)。 day(date)返回月份中的日期數(1到31)。month(date)返回日期中的月份(1到12)。

year(date)返回日期中的年度。weekday(date)返回日期中代表一周中的星期幾。

vb中的date型別如何取到日期?

3樓:匿名使用者

舉例如下:

option explicit

private sub form_click()'定義乙個date型別變數

dim dt as date

'用當前時間賦值

dt = now

dim y as integer, m as integer, d as integer

'用函式year取出日期中的年份

y = year(dt)

print "年:" + cstr(y)

'用函式month取出日期中的月份

m = month(dt)

print "月:" + cstr(m)

'用函式day取出日期中的日

d = day(dt)

print "日:" + cstr(d)

'format函式得到字串表示的日期

dim strdate as stringstrdate = format(dt, "yyyy年mm月dd日")

print strdate

end sub

4樓:匿名使用者

你的a是數值類,data是日期類。你這樣取得的日期型別不同肯定要報錯。如果你要得到數值類日期要用format函式來轉換。否則要將a的型別改為日期型。

5樓:神龍令主

在vb中,可以使用now,可以用date()或time()函式,就是不能用什麼year、month和day……你應該用date()函式,然後去擷取日期天數部分

6樓:匿名使用者

a = day(now)

同樣 year(now)

month(now)

hour(now)

minute(now)

second(now)

7樓:匿名使用者

dim today

today = new date()

getmonth(today)

getday(today)

8樓:欣靜賞悅

integer 是整型

now.day是日期型別

關於vb 中的日期時間函式

9樓:匿名使用者

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 表示相差乙個年份,雖然實際上只相差一天而已。

dateadd(interval, number, date)

dateadd 函式語法中有下列命名引數:

部分 描述

interval 必要。字串表示式,是所要加上去的時間間隔。

number 必要。數值表示式,是要加上的時間間隔的數目。其數值可以為正數(得到未來的日期),也可以為負數(得到過去的日期)。

date 必要。variant (date) 或表示日期的文字,這一日期還加上了時間間隔。

設定interval 引數具有以下設定值:

設定 描述

yyyy 年

q 季m 月y 一年的日數

d 日w 一周的日數

ww 周

h 時n 分鐘

s 秒說明可以使用 dateadd 函式對日期加上或減去指定的時間間隔。例如,可以用 dateadd 來計算距今天為三十天的日期;或者計算距現在為 45 分鐘的時間。

為了對 date 加上「日」,可以使用「一年的日數」 (「y」),「日」 (」d」) 或「一周的日數」 (」w」)。

dateadd 函式將不返回有效日期。在以下例項中將 1 月31 日加上乙個月:

dateadd(m, 1, 31-jan-95)

上例中,dateadd 返回 1995 年 2 月 28 日,而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日,則由於 1996 年是閏年,返回值是 1996 年 2 月 29 日。

如果計算的日期超前 100 年(減去的年度超過 date 中的年份),就會導致錯誤發生。

如果 number 不是乙個 long 值,則在計算時取最接近的整數值來計算。

注意 dateadd 返回值的格式由 control panel設定決定,而不是由傳遞到date 引數的格式決定。

10樓:淚痕_飛

ps:要看dateadd dateiff,就看專題

貼太多的話不好~~~~

vb 日期時間函式

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.vb日期加減函式dateadd

語法dateadd(interval, number, date)

返回包含乙個日期型別的資料

interval引數具有以下設定值:

yyyy 年

q 季

m 月

y 一年的日數

d 日

w 一周的日數

ww 周

h 時

n 分鐘

s 秒

可以使用 dateadd 函式對日期加上或減去指定的時間間隔。例如,可以用 dateadd 來計算距今天為三十天的日期;或者計算距現在為 45 分鐘的時間。

為了對 date 加上「日」,可以使用「一年的日數」 (「y」),「日」 (」d」) 或「一周的日數」 (」w」)。

dateadd 函式將不返回有效日期。在以下例項中將 1 月31 日加上乙個月

dateadd(m, 1, 31-jan-95)

用法dateadd("d", 7, now) 現在日期加7天

ps:說明

可用 dateadd 函式從日期中新增或減去指定時間間隔。例如可以使用 dateadd 從當天算起 30 天以後的日期或從現在算起 45 分鐘以後的時間。要向 date 新增以「日」為單位的時間間隔,可以使用「一年的日數」(「y」)、「日」(「d」)或「一周的日數」(「w」)。

dateadd 函式不會返回無效日期。如下示例將 95 年 1 月 31 日加上乙個月:

newdate = dateadd("m", 1, "31-jan-95")

在這個示例中,dateadd 返回 95 年 2 月 28 日,而不是 95 年 2 月 31 日。如果 date 為 96 年 1 月 31 日,則返回 96 年 2 月 29 日,這是因為 1996 是閏年。

如果計算的日期是在公元 100 年之前,則會產生錯誤。

如果 number 不是 long 型值,則在計算前四捨五入為最接近的整數。

vbformat函式,vb中Format函式的用法

private sub form click a 0.12 a format a,00.0000 b format a,print a print b end sub 你看啊,沒有出現你說的情況,你的函式有問題,要使用英文狀態的標點符號。你吧我的複製一下看看。我的使用 a format a,00.0...

vb隨機函式,vb隨機函式

dim a 1 to 35 randomize for i 1 to 35 a a i int rnd 36 for j 1 to i 1 if a i a j then goto anext j next i 請參考這個題我的回答 同樣是關於vb隨機數生成的。這很簡單 以窗體click事件為例 d...

SQL日期函式相關問題,sql日期函式問題

select convert char 10 getdate 121 00 00 00.000 oracle的寫法 select to date yyyy mm dd to char sysdate,yyyy mm dd from dual 如果是sql server select convert ...

vb程式設計 有關隨即函式,VB程式設計 有關隨即函式 菜鳥問

以下 測試通過 窗體上放兩個commandbutton,乙個label和乙個timer。private sub form load randomize command1.caption 開始 command2.caption 開始 timer1.interval 100 end sub privat...

vb分段函式程式設計錯誤求解,vb 乙個分段函式 程式設計錯誤 求解

private sub form click dim x as integer,y as integerx val inputbox 請輸入x值 if x 10 then y 2 x 3 else if 10 x 20 then y x x 5 else if x 20 then y lnx x e...