建站
咨詢
售后
建站咨詢
新聞中心
如何用VB編根據(jù)輸入的生日精確計(jì)算某人的年齡
Dim date1, date2 As Date '注意，還有一個(gè)類型是data的，剛才我都看錯(cuò)啦！
站在用戶的角度思考問(wèn)題，與客戶深入溝通，找到內(nèi)江網(wǎng)站設(shè)計(jì)與內(nèi)江網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：做網(wǎng)站、成都網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、主機(jī)域名、網(wǎng)絡(luò)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋內(nèi)江地區(qū)。
date1 = t1.Text '從文本框輸入日前 如 1985-06-29
date2 = Date '獲取系統(tǒng)時(shí)間作對(duì)比
L1.Caption = DateDiff("yyyy", date1, date2)
datediff的用法
vb題 輸入身份證根據(jù)出生年月日計(jì)算年紀(jì)，用到兩個(gè)文本框，一個(gè)輸入一個(gè)輸出
Public Class 主窗體
Dim 身份證號(hào)碼 As String
Dim 生日年份 As String
Dim 生日月份 As String
Dim 生日日期 As String
Dim 生日 As Date
Private Sub 輸出生日按鈕_Click(sender As Object, e As EventArgs) Handles 輸出生日按鈕.Click
Try
If 身份證號(hào)碼輸入框.TextLength = 15 Then
身份證號(hào)碼 = 身份證號(hào)碼輸入框.Text
生日年份 = "19" 身份證號(hào)碼.Substring(6, 2)
生日月份 = 身份證號(hào)碼.Substring(8, 2)
生日日期 = 身份證號(hào)碼.Substring(10, 2)
ElseIf 身份證號(hào)碼輸入框.TextLength = 18
身份證號(hào)碼 = 身份證號(hào)碼輸入框.Text
生日年份 = 身份證號(hào)碼.Substring(6, 4)
生日月份 = 身份證號(hào)碼.Substring(10, 2)
生日日期 = 身份證號(hào)碼.Substring(12, 2)
Else
MsgBox("請(qǐng)輸入正確的身份證號(hào)碼！", MsgBoxStyle.Information, "身份證號(hào)碼有誤")
身份證號(hào)碼輸入框.SelectAll()
身份證號(hào)碼輸入框.Focus()
Exit Sub
End If
If IsNumeric(生日年份) And IsNumeric(生日月份) And IsNumeric(生日日期) Then
生日 = New Date(生日年份, 生日月份， 生日日期)
End If
生日標(biāo)簽.Text = 生日.ToLongDateString
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
這是 .NET 的，有疑問(wèn)請(qǐng)追問(wèn)
VB中怎樣制作一個(gè)小程序。要求輸入出生日期的時(shí)間,就能得到目前的年齡、出生？
這個(gè)只要做一個(gè)窗體中包含三個(gè)文本框，用于輸入出身的年月日，然后計(jì)算當(dāng)前年齡，就要判斷，如果現(xiàn)在的月份大約出生的月份，或現(xiàn)在的月份等于出生月份并且現(xiàn)在的日大于出生日，年齡就等于今年的年份減去出生年份，否則就等于這個(gè)值再減去一。
vb.net獲取年，月，日，時(shí)，分，秒
不是 有 函數(shù)嘛？
now() 就是 吧
取得 后 再 分離出你所需的，分別賦值 就行了，當(dāng)然 還是 有 函數(shù)的
在vb.net中，DateDiff（）函數(shù)是有什么用的？又是怎么用的？
DateDiff 函數(shù)
返回 Variant (Long) 的值，表示兩個(gè)指定日期間的時(shí)間間隔數(shù)目。
語(yǔ)法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函數(shù)語(yǔ)法中有下列命名參數(shù)：
部分 描述
interval 必要。字符串表達(dá)式，表示用來(lái)計(jì)算date1 和 date2 的時(shí)間差的時(shí)間間隔
Date1□date2 必要；Variant (Date)。計(jì)算中要用到的兩個(gè)日期。
Firstdayofweek 可選。指定一個(gè)星期的第一天的常數(shù)。如果未予指定，則以星期日為第一天。
firstweekofyear 可選。指定一年的第一周的常數(shù)。如果未予指定，則以包含 1 月 1 日的星期為第一周。
設(shè)置
interval 參數(shù)的設(shè)定值如下：
設(shè)置 描述
yyyy 年
q 季
m 月
y 一年的日數(shù)
d 日
w 一周的日數(shù)
ww 周
h 時(shí)
n 分鐘
s 秒
firstdayofweek 參數(shù)的設(shè)定值如下：
常數(shù) 值 描述
vbUseSystem 0 使用 NLS API 設(shè)置。
vbSunday 1 星期日（缺省值）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
常數(shù) 值 描述
vbUseSystem 0 用 NLS API 設(shè)置。
vbFirstJan1 1 從包含 1 月 1 日的星期開(kāi)始（缺省值）。
vbFirstFourDays 2 從第一個(gè)其大半個(gè)星期在新的一年的一周開(kāi)始。
vbFirstFullWeek 3 從第一個(gè)無(wú)跨年度的星期開(kāi)始。
說(shuō)明
DateDiff 函數(shù)可用來(lái)決定兩個(gè)日期之間所指定的時(shí)間間隔數(shù)目。例如，可以使用 DateDiff 來(lái)計(jì)算兩個(gè)日期之間相隔幾日，或計(jì)算從今天起到年底還有多少個(gè)星期。
為了計(jì)算 date1 與 date2 相差的日數(shù)，可以使用“一年的日數(shù)”(y) 或“日”(d)。當(dāng) interval 是“一周的日數(shù)”(w) 時(shí)，DateDiff 返回兩日期間的周數(shù)。如果 date1 是星期一，DateDiff 計(jì)算到 date2 為止的星期一的個(gè)數(shù)。這個(gè)數(shù)包含 date2 但不包含 date1。不過(guò)，如果 interval 是“周”(ww)，則 DateDiff 函數(shù)返回兩日期間的“日歷周”數(shù)。由計(jì)算 date1 與 date2 之間星期日的個(gè)數(shù)而得。如果 date2 剛好是星期日，則 date2 也會(huì)被加進(jìn) DateDiff 的計(jì)數(shù)結(jié)果中；但不論 date1 是否為星期日，都不將它算進(jìn)去。
如果 date1 比 date2 來(lái)得晚，則 DateDiff 函數(shù)的返回值為負(fù)數(shù)。
firstdayofweek 參數(shù)會(huì)影響使用時(shí)間間隔符號(hào) “W” 或 “WW” 計(jì)算的結(jié)果。
如果 date1 或 date2 是日期文字，則指定的年份成為該日期的固定部分。但是，如果 date1 或 date2 用雙引號(hào) (" ") 括起來(lái)，且年份略而不提，則在每次計(jì)算表達(dá)式 date1 或 date2 時(shí)，當(dāng)前年份都會(huì)插入到代碼之中。這樣就可以書寫適用于不同年份的程序代碼。
在計(jì)算 12 月 31 日和來(lái)年的 1 月 1 日的年份差時(shí)，DateDiff 返回 1 表示相差一個(gè)年份，雖然實(shí)際上只相差一天而已。
分享題目：vb.net計(jì)算年齡,vb編寫出生日期計(jì)算年齡
文章位置：http://fisionsoft.com.cn/article/phdgji.html
