home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Work_with_547982122002.psc / cfCalendar.bas < prev    next >
Encoding:
BASIC Source File  |  2000-12-22  |  740 b   |  22 lines
  1. Attribute VB_Name = "cfCalendar"
  2. Option Explicit
  3. Public Sub SelectCalDate(txtDate As TextBox, Optional ShowTime As Boolean = False, Optional ShowYear As Boolean = False, Optional ShowWeeks As Boolean = False, Optional YearBeginsOn As Date = 0)
  4.     With frmCalendar
  5.         .ShowTime = ShowTime
  6.         .ShowYear = ShowYear
  7.         .ShowWeeks = ShowWeeks
  8.         .cfFirstday = YearBeginsOn
  9.         If txtDate > vbNullString Then
  10.             If IsDate(txtDate) Then .PassDate = CDate(txtDate) + Time
  11.         End If
  12.         .Show vbModal
  13.         If ShowTime Then
  14.             txtDate = .PassDate
  15.         Else
  16.             txtDate = Format(.PassDate, "mm/dd/yyyy")
  17.         End If
  18.     End With
  19.     Unload frmCalendar
  20. End Sub
  21.  
  22.