Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement