http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 28 May 2026 20:02:40 +0000 Wed, 13 May 2009 06:01:53 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=14237 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=14237&PID=48931&title=how-do-i-specify-a-wnddatepicker-date-range#48931 Author: Jaymeister
Subject: 14237
Posted: 13 May 2009 at 6:01am

modded a post I found here... ( https://forum.codejock.com/forum_posts.asp?TID=13251&KW=datepicker&PN=1 )

Sub GetDatePickerSelectedStartStopDates(D1 As Date, D2 As Date)
  Dim SelectDays() As Date
  CalcSelectDays NbDays&, SelectDays()
  D1 = SelectDays(1)
  D2 = SelectDays(NbDays&)
end sub

Sub CalcSelectDays(NbDays As Long, SelectDays() As Date)
Dim i As Long
    NbDays = 0
    ReDim SelectDays(NbDays)
  
    With wndDatePicker.Selection
    For i = 0 To .BlocksCount - 1
        AddSelectDays .Blocks(i).DateBegin, .Blocks(i).DateEnd, NbDays, SelectDays()
    Next
    End With
End Sub
 
Sub AddSelectDays(DateBegin As Date, DateEnd As Date, Nb As Long, SelDays() As Date)
Dim Day As Date
    Day = DateBegin
    Do
        Nb = Nb + 1
        ReDim Preserve SelDays(Nb)
        SelDays(Nb) = Day
        Day = DateAdd("d", 1, Day)
    Loop Until Day > DateEnd
End Sub

...and it works :)
]]> Wed, 13 May 2009 06:01:53 +0000 http://forum.codejock.com/forum_posts.asp?TID=14237&PID=48931&title=how-do-i-specify-a-wnddatepicker-date-range#48931 http://forum.codejock.com/forum_posts.asp?TID=14237&PID=48756&title=how-do-i-specify-a-wnddatepicker-date-range#48756 Author: Jaymeister
Subject: 14237
Posted: 07 May 2009 at 10:18am

SORRY - got above post topsy-turvy

I can set a selected date range
  Dim D1 As Date, D2 As Date

  D1 = DateSerial(2009, 8, 31)
  D2 = DateSerial(2009, 8, 31)
 
  wndDatePicker.SelectRange D1, D2

How do READ currently set date range?



Thanks for any help in advance!]]> Thu, 07 May 2009 10:18:51 +0000 http://forum.codejock.com/forum_posts.asp?TID=14237&PID=48756&title=how-do-i-specify-a-wnddatepicker-date-range#48756 http://forum.codejock.com/forum_posts.asp?TID=14237&PID=48754&title=how-do-i-specify-a-wnddatepicker-date-range#48754 Author: Jaymeister
Subject: 14237
Posted: 07 May 2009 at 10:17am

I can read a selected date range
  Dim D1 As Date, D2 As Date

  D1 = DateSerial(2009, 8, 31)
  D2 = DateSerial(2009, 8, 31)
 
  wndDatePicker.SelectRange D1, D2

How do I specify a date range?

Thanks for any help in advance!
]]> Thu, 07 May 2009 10:17:38 +0000 http://forum.codejock.com/forum_posts.asp?TID=14237&PID=48754&title=how-do-i-specify-a-wnddatepicker-date-range#48754