- 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
1024-- 01.02.2016 18:37 # +6
Выправил лесенку.
bormand 01.02.2016 20:00 # +12
nihau 02.02.2016 13:31 # +4
guest 02.02.2016 15:59 # +1
3_14dar 02.02.2016 20:43 # +3
bormand 02.02.2016 21:05 # +4
adoconnection 03.02.2016 16:00 # 0
select case xxx
case 1
....
case 2
...
end select
nihau 03.02.2016 17:04 # +2
inkanus-gray 04.02.2016 00:40 # +2
select case xxx
case 1
....
goto 2
case 2
2:
...
goto 3
case 3
3:
...
end select
Vasiliy 01.02.2016 19:04 # +2
roman_gemini 01.02.2016 21:00 # +2
bot 02.02.2016 22:41 # +3
1024-- 02.02.2016 22:48 # +2
bormand 02.02.2016 22:55 # +3
3_dar 03.02.2016 21:50 # +3
Elvenfighter 07.02.2016 23:54 # 0
bormand 08.02.2016 06:18 # 0