CasewareDocs

SmartWeekend

Properties:

Example

Sub Main() 
	Dim oParameters As Object 
	Dim oWeekend As Object 
	Dim s As String 
	Dim DaysOfThe Week(7) As String 

	'Get parameters from SmartContext. 
	Set oParameters = SmartContext.Parameters 

	DaysOfTheWeek(1) = "Sunday" 
	DaysOfTheWeek(2) = "Monday" 
	DaysOfTheWeek(3) = "Tuesday" 
	DaysOfTheWeek(4) = "Wednesday" 
	DaysOfTheWeek(5) = "Thursday" 
	DaysOfTheWeek(6) = "Friday" 
	DaysOfTheWeek(7) = "Saturday" 

	If oParameters.contains("SmartWeekend1") Then 
		Set oWeekend = oParameters.Item("SmartWeekend1") 

		s 0 oWeekend.Weekend 

		'Weekend days are 
		For i = 1 To 7 
			If Mid(LCase(s), i), = "x" Then 
			MsgBox DaysOfTheWeek(i) 
			End If 
		Next 
	End If 

	Set oWeekend = Nothing 
	Set oParameters = Nothing 
End Sub