Sub Globals
Private Dialog As B4XDialog 'need XUI Views checked (internal lib)
Private DateTemplate As B4XDateTemplate
Private XUI As XUI
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dialog.Initialize (Activity) 'use Root instead of activity if you preferably use a B4XPages project
Dialog.Title = "Select a date"
DateTemplate.Initialize
DateTime.DateFormat= "yyyyMMdd"
Wait For (Dialog.ShowTemplate(DateTemplate, "", "", "CANCEL")) Complete (Result As Int)
If Result = XUI.DialogResponse_Positive Then
Dim mydate As String = $"${DateTime.Date(DateTemplate.Date)}"$
Log(mydate)
End If
End Sub