-1

私は VB.NET の初心者ですが、フォームのテキスト ボックスに生年月日のみを入力した場合に年齢を計算する方法を教えてください。現在の年から生年を引いた年を使用することになっていますが、実際にはコードがありません。ここに問題があります。ユーザーが生年月日を入力する必要があるフォームに、txtdob という名前のテキスト ボックスがあります。現在の YEAR と入力された生年月日を使用してユーザーの年齢を特定するコードが必要です。

4

4 に答える 4

1

TimeSpanを使用してください。Nowを Your Date に減算してください。

Dim dBirth as Date
Dim nDiff as TimeSpan

dBirth = ........  ' you fill with yours

nDiff = Now.Substract(dBirth)

Msgbox( format(nDiff.Days/365) ) '--------> will show the age ..
于 2013-07-25T07:43:49.787 に答える
0

これをテストしていませんが、うまくいくはずです...

yyyyは誕生年です....

now.subtract(cdate("0/0/yyyy")).totalyears

乾杯

于 2013-07-25T07:49:01.733 に答える
0

DateDiff 関数を見てください。2 つの日付の違いを示し、DateInterval を Year に指定できます。

Dim difference As Int = DateDiff(DateInterval.Year, dateOfBirth, currentDate)

リソースへのリンク: http://msdn.microsoft.com/en-us/library/b5xbyt6f(v=vs.80).aspx

于 2013-07-25T07:49:53.073 に答える
0

Integer.Parseまたはを使用Integer.TryParseしてから計算しDate.Nowます。

Dim birthYear As Int32
If Int32.TryParse(txtAge.Text, birthYear) Then
    Dim age As Int32 = Date.Now.Year - birthYear
    MessageBox.Show("Your age is: " & age)
Else
    MessageBox.Show("Please enter a valid year of birth")
End If
于 2013-07-25T07:46:59.227 に答える