Document not saved when datefrom and dateto are same day

I have a form and on this form, there are several fields and among them, there are 2 date/time fields - JActionDate(Date from) and JActionDate_1(Date to).
Once user finish entering all the fields on the form and need to click on Register button to save this field.

Under the Register action button code :
Sub Click(Source As Button)
      Dim workspace As New NotesUIWorkspace
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Dim doc As NotesDocument
      Dim newdoc() As NotesDocument
      Dim uidoc As NotesUIDocument
      Dim user As String
      Dim actday As String
      Dim dateaa As String
      Dim j As Integer
      Dim d As Integer
      Dim dlist As Variant
      Dim docno As Integer
      Dim mem As Variant
      Dim mem2 As Variant
      Dim reqst As String
      Dim region As String
      Dim deptid As String
      Dim mach As String
      Dim purp As String
      
      Set db = session.CurrentDatabase
      Set uidoc = workspace.CurrentDocument
      Set doc = uidoc.Document
      Call uidoc.Refresh
      
      user = session.CommonUserName
      actday = doc.JActionDate(0)
      reqst = doc.RequestorN(0)
      region = doc.RegionA(0)
      deptid = doc.DepartmentD(0)
      mach = doc.MachineR(0)
      purp = doc.Purpose(0)
      mem = doc.MEMBERS
      mem2 = doc.member
      dateaa = doc.date1(0)
      dlist = doc.DayList
      
      If doc.NewRegister(0) = "Registered" Then
            Messagebox "This schedule had already registered, no registration is needed any more, please just save the document.",1+16,"Save Please!"
            continue = False
            Exit Sub
      End If
      
      
      mes = {
           Click OK to create range of schedule with same contents of this document.
           If need any changes in individual item, please amend later.
                                 
                     Your designated date range is correct? then click OK!
}
      
      
      answer = Messagebox (mes,1+32,"Hello!  " & user & "-san")
      
      docno = Ubound(dlist)-1
      
      Redim newdoc(docno)
      
      For d = 0 To docno
            Set newdoc(d) = db.CreateDocument
            newdoc(d).Form = "BookingForm2"
            newdoc(d).RequestorN = reqst
            newdoc(d).RegionA = region
            newdoc(d).DepartmentD = deptid
            newdoc(d).MachineR = mach
            newdoc(d).Purpose = purp
            newdoc(d).date1 = dateaa
            newdoc(d).MEMBERS = mem
            newdoc(d).member = mem2
            newdoc(d).JActionDate = Cdat(dlist(d+1))  
            newdoc(d).NewRegister = "Registered"
            newdoc(d).notice = "NotYet"
            Call newdoc(d).Save(False,False)
      Next
      
      
      Call uidoc.FieldSetText("NewRegister","Registered")
      Call uidoc.Save
      Call uidoc.Close
      
End Sub

Situation 1:
When I click the Register button to save the form selecting the JActionDate on 10/06/2004 and JActionDate_1 on 10/06/2004, it gives me an error ->Subscript out of range. I run lotuscript debugger and is on this line ->Redim newdoc(docno)
Anywhere gone wrong?
Pls advise

Situation 2:
Also, when different dates are select on these 2 date/time fields, e.g. 10/06/2004 on JActionDate and 10/11/2004 on JActionDate_1 in document A, document A is saved but in a calendar view, when i click on the document A under date 10/07/2004, JActionDate is shown as 10/07/2004 and JActionDate_1 is shown as 10/06/2004 on the form and when i click on the same document A under date 10/08/2004, JActionDate is shown as 10/08/2004 and JActionDate_1 is shown as 10/06/2004 on the form.
Anywhere gone wrong??
Pls advise.

Pls advise the above 2 situation