append a date to a date array ??

How do you append a date to an array of dates ie


dim visitdates() as Date
        dim tdate as new date
        while not data.EOF
          visitItemNumber.Append(data.IdxField(3).StringValue)
          
          tdate.SQLDate=  data.IdxField(2).StringValue.Left(10)
          visitdates.append(tdate)

[quote=101428:@Hamish Steiner]How do you append a date to an array of dates ie

[code]

dim visitdates() as Date
dim tdate as new date
while not data.EOF
visitItemNumber.Append(data.IdxField(3).StringValue)

      tdate.SQLDate=  data.IdxField(2).StringValue.Left(10)
      visitdates.append(tdate)

[\code][/quote]

Here is a simple example of Adding a date to a Date Array:

Dim TheDate as New Date
Dim TheDateArray() as Date

TheDateArray.Append TheDate       // Array of Actual Date Objects

Extending this example to show SQLDateTime:

  Dim TheSQLDate as String = TheDate.SQLDateTime
  TheSQLDateArray.Append TheSQLDate     // Array of String Based SQLDateTime

HTH

[quote=101428:@Hamish Steiner]How do you append a date to an array of dates ie

[code]

dim visitdates() as Date
dim tdate as new date
while not data.EOF
visitItemNumber.Append(data.IdxField(3).StringValue)

tdate.SQLDate= data.IdxField(2).StringValue.Left(10)
visitdates.append(tdate)
wend
[/code][/quote]

Your code creates ONE instance (tdate as new date) and then you set its value & append the same instance over & over

Try


dim visitdates() as Date
while not data.EOF
    dim tdate as new date
    visitItemNumber.Append(data.IdxField(3).StringValue)
          
    tdate.SQLDate=  data.IdxField(2).StringValue.Left(10)
    visitdates.append(tdate)
wend

This creates a new instance each time & then sets the value and appends it

Thanks,
adding a line saying

tdate = new date

seems to work. I knew I needed a new in there somewhere just couldn’t work out where…
Hamish