assess数据库函数编程问题：输入年月日输出这个天是这年第几天

我们才教到select
下面是我们编出来的一部分，但是编不下去了，求大神帮忙
Dim y as integer
Dim m as integer
Dim d as integer
Dim t as integer
Dim n as integer
Y = me.text0
M = me.text2
D = me.text1
Select Case m
Case 1 ,3 ,5, 7,8,10,12
T=31
Case 4,6,9,11
T=30
Case 2
If y mod 400 =0 or y mod 4= 0 and y mod 100 <> 0 then
T=29
Else
T=28
End if
End select

开始定义的时候可能有误，多定义了一项，勿怪

遇到这种问题，直接把该日期转换成Date型，date型就可以直接知道这一天是一年当中的第几天