- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
Function GetLongFromData(InDay As Integer, InMonth As Integer, InYear As Integer) As Integer
If InYear Mod 4 = 0 Then N = 1 Else N = 0
If InMonth = 1 Then temp = InDay
If InMonth = 2 Then temp = InDay + 31
If InMonth = 3 Then temp = InDay + 31 + 28 + N
If InMonth = 4 Then temp = InDay + 31 + 28 + 31 + N
If InMonth = 5 Then temp = InDay + 31 + 28 + 31 + 30 + N
If InMonth = 6 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + N
If InMonth = 7 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + N
If InMonth = 8 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + N
If InMonth = 9 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + N
If InMonth = 10 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + N
If InMonth = 11 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + N
If InMonth = 12 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30 + N
GetLongFromData = temp
End Function
Выправил лесенку.
select case xxx
case 1
....
case 2
...
end select
select case xxx
case 1
....
goto 2
case 2
2:
...
goto 3
case 3
3:
...
end select