Private DateTemplate As B4XDateTemplate
Sub Button1_Click
Wait For (GetDateSundayOrMonday) Complete (Ticks As Long)
If Ticks > 0 Then
Log($"Selected date: $Date{Ticks}"$)
End If
End Sub
Private Sub GetDateSundayOrMonday As ResumableSub
Do While True
Wait For (dialog.ShowTemplate(DateTemplate, "", "", "Cancel")) Complete (Result As Int)
Dim zero As Long = 0
If Result = xui.DialogResponse_Cancel Then Return zero
If DateTime.GetDayOfWeek(DateTemplate.Date) > 2 Then 'sun and mond allowed
Wait For (dialog.Show("Invalid date", "Ok", "", "")) Complete (Result As Int)
Else
Return DateTemplate.Date
End If
Loop
Return 0
End Sub