@Jamesy_007
I see a minor error in your new code
Code:
Function EPD(ConDate As Date, intYrs As Integer)
Dim FD As Date, intDays As Integer
Dim re As Date, Remmission As Integer
FD = DateAdd("yyyy", intYrs, ConDate - 1)
intDays = DateDiff("d", ConDate, FD + 1)
If (intYrs <= 1) Then
Remmission = Round(intDays / 2, 0)
Epdm = (FD - Remmission)
Else
Remmission = Round(intDays / 3, 0)
Epd = (FD - Remmission)
End If
End Function
I don't know anything about how Judges sentence people - and hope to keep it that way.
So if Bob is convicted on 2 Dec, 2020, how is the length of the sentence given? Is there a consistent format? 18 months? 1 year, 6 months?
Examples would also help...
Given a conviction date of 2 Dec, 2020, what release dates would you expect for sentences of:
Sentence |
Release Date |
1 year |
|
90 Days |
|
28 Months |
|
2 Years, 4 Months |
|
55 Days |
|