Visual Basic DateSerial 函数

定义和用法

DateSerial 函数可返回指定的年、月、日的子类型 Date。

也就是说，DateSerial 函数可以把年、月、日合并为日期。

语法

DateSerial(year,month,day)

参数	描述
year	必需的。介于100到9999的数字，或数值表达式。介于 0 到 99 的值被视为 1900–1999。对于所有其他的 year 参数，请使用完整的4位年份。
month	必需的。任何数值表达式。若大于12，则日期从12月起向后推算mouth-12个月，若小于1，则日期从1月起向前推算1-month个月。
day	必需的。任何数值表达式。若大于当月的日数，则日期从当月日数起，向后推算day-当月日数；若小于1，则日期从1日起向前推算1-day日。

实例

例子 1

Module Module1
    Sub Main()
        Console.WriteLine(DateSerial(1996,2,3)) '普通的调用方法
    End Sub
End Module

运行一下

输出：

1996/2/3

例子 2

Module Module1
    Sub Main()
        Console.WriteLine(DateSerial(95,13,10)) '13月=1年+1月
    End Sub
End Module

运行一下

输出：

1996/01/10

例子 3

Module Module1
    Sub Main()
        Console.WriteLine(DateSerial(96,-1,10)) '-1月要从1月起向前推算1-（-1）=2个月
    End Sub
End Module

运行一下

输出：

1995/11/10

例子 4

Module Module1
    Sub Main()
        Console.WriteLine(DateSerial(95,2,30)) '95年2月有28日，所以30日=1月+2日
    End Sub
End Module

运行一下

输出：

1995/03/02

例子 5

Module Module1
    Sub Main()
        Console.WriteLine(DateSerial(95,2,-2)) '-2日要从1日起向前推算1-（-2）=3日
    End Sub
End Module

运行一下

输出：

1995/01/29

例子 6

Module Module1
    Sub Main()
        Console.WriteLine(DateSerial(1990-20,9-2,1-1))
        '1990-20=1970年，9-2=7月，1-1=0日，0日要从1日起向前推算1-0=1日。
    End Sub
End Module

运行一下

输出：

1970/6/30

Visual Basic DateSerial 函数

定义和用法

语法

实例

例子 1

例子 2

例子 3

例子 4

例子 5

例子 6

分类导航