VB.NET Дата недействительного литья

Question

Что не так с моим кодом, пожалуйста?

Dim iYearOld As Integer = 2010 
    Dim iYearNow As Integer = 2014 

    Dim iAge As Integer 
    iAge = DateDiff("y", iYearOld, iYearNow) 

Ошибка

"Invalid литая: Аргумент 'Date1' не может быть приведен к типу Date"

Может кто-нибудь помочь? Благодаря!

Answer 1

Что не так с моим кодом, пожалуйста?

Вы отправляете в целых числах к функции, которая требует даты:

DateDiff

Answer 2

Сообщение об ошибке ясно говорит вам, что это неправильно.

DateDiff требует 2 параметра даты, тогда как вы передаете ему 2 целых числа.

http://msdn.microsoft.com/en-us/library/b5xbyt6f(v=vs.90).aspx

Answer 3

второй Permeter и третий является дата не целое

Dim datTim1 As Date = #1/4/2001# 
Dim datTim2 As Date = #1/9/2001# 
' Assume Sunday is specified as first day of the week. 
Dim wD As Long = DateDiff(DateInterval.Weekday, datTim1, datTim2) 
Dim wY As Long = DateDiff(DateInterval.WeekOfYear, datTim1, datTim2)