Page 2 of 2 FirstFirst 12
Results 16 to 19 of 19
  1. #16
    ssanfu is offline Master of Nothing
    Windows 10 Access 2010 32bit
    Join Date
    Sep 2010
    Location
    Anchorage, Alaska, USA
    Posts
    9,664
    @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

  2. #17
    Jamesy_007 is offline Advanced Beginner
    Windows 10 Access 2016
    Join Date
    Mar 2020
    Location
    Caribbean
    Posts
    99
    Hello Again Fam.....
    So am about to Mark this Post as Solved.....Thanks TRULY for all the Help.. one little anomaly i picked up today with function Epdys.... IF days is less than 30... dont need any subtracting jus add and go forward... say 10days prison time you add that to conDate and that will be ReleaseDate.... trying to plug that and keep getting an error..... any suggestions?????

  3. #18
    Jamesy_007 is offline Advanced Beginner
    Windows 10 Access 2016
    Join Date
    Mar 2020
    Location
    Caribbean
    Posts
    99
    Hi, Ssanfu. This Thread is 95% Solved. i now see your response ... the code developed is basically correct except for the minor [option explicit] error you highlighted I'll fix that. In our system a Judge could practically do anything all though there's precedent .... a Sentence could be 12 months, 14 months, be 15 months 21 days or 45 days...a thousand variable according to English law will not permitted me to discuss, And yes it could be aslo 2 years and 4 months we just convert everything to months and say 28 months .... its alot

  4. #19
    Jamesy_007 is offline Advanced Beginner
    Windows 10 Access 2016
    Join Date
    Mar 2020
    Location
    Caribbean
    Posts
    99
    Quote Originally Posted by Jamesy_007 View Post
    i picked up today with function Epdys.... IF days is less than 30... dont need any subtracting jus add and go forward... say 10days prison time you add that to conDate and that will be ReleaseDate.... trying to plug that and keep getting an error..... any suggestions?????
    Solve this one strange how sometimes the answers are right in front you...

    Code:
     Function Epdys(ConvictionDate As Date, intdys As Integer) As Date  
      Dim FD As Date
        FD = DateAdd("d", intdys, ConvictionDate - 1)
        Epdys = FD
        If (intdys >= 30) Then
        Epdys = (ConvictionDate + 30)
        End If
    End Function

Page 2 of 2 FirstFirst 12
Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 7
    Last Post: 05-22-2017, 03:08 PM
  2. Replies: 3
    Last Post: 04-18-2014, 12:20 PM
  3. Replies: 21
    Last Post: 08-05-2013, 06:23 AM
  4. Replies: 3
    Last Post: 04-01-2013, 01:43 PM
  5. Replies: 3
    Last Post: 12-17-2011, 06:05 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums