Thank you, friend! But I was not able to do it.
The code is:
B4X:
Sub Date_onDateSet(year As Int, monthOfYear As Int, dayOfMonth As Int)
DateTime.DateFormat = "dd/mm/yyyy"
d = DateTime.DateParse(dayOfMonth&"/"&(monthOfYear+1)&"/"&year)
lblData.Text = DateTime.Date(d)
End Sub
I need to get lblData.Text = day_of_week &", "&DateTime.Date(d)
Sub Date_onDateSet(year As Int, monthOfYear As Int, dayOfMonth As Int)
DateTime.DateFormat = "dd/mm/yyyy"
Dim d As Long = DateUtils.SetDate(year,monthOfYear,dayOfMonth)
Dim days() As String = Array As String("","Sunday", "Monday", "Tuesday", "Wednesday","Thursday","Friday","Saturday")
lblData.Text = days(DateTime.GetDayOfWeek(d))&", "&DateTime.Date(d)
End Sub