Android Code Snippet SD: DateDialog (Calendar Picker)

New Class: DateDialog (Calendare Picker)

Methods:

• Initialize (Myactivity As Activity, Date As Long)
• SetDate(Date As Long)
• Show(Title As String)

Properties:

• DateSelected As Long (Only read)

Find alternative Code on Post#8

I have updated the code so it is possible to set the design you start with the current date (DateTime.Now)

 

[DonManfred]

It is possible to start the week on Monday?

Properties:

• DateSelected As Long (Read Only)
• StartOnMonday As Boolean (Write Only)
• RedSunday As Int (Write Only)
• RedSaturday As Int (Write Only)

 

[Star-Dust]

It is possible to start the week on Monday?

See post #8

 

[BugNot]

Hy,

Great job ?

Possible to gray out past dates ?

 

[sn_nn]

Android 7.0 - Works fine
Android 4.1.2 - can not set previous Year then 1980. For example: if i select 1974 year, dialog will set 1980! Any help?

 

[Star-Dust]

Android 7.0 - Works fine
Android 4.1.2 - can not set previous Year then 1980. For example: if i select 1974 year, dialog will set 1980! Any help?

Could it be a device setting?
I will test on old devices, but it may only be a problem for the device you use

 

[sn_nn]

Yes, It seems true! it was HighScreen Boost (4.1.2). Ten minutes ago i tried Highscreen Boost 2 (4.1.2) and everything is working correctly!!! I think - it's some bug in firmware of phone... Thank you, Star-Dust!

 

[ilan]

The Week starts at Monday and ends on Saturday, Sunday

Montag (1)
Dienstag (2)
Mittwoch (3)
Donnerstag (4)
Freitag (5)
Samstag (6)
Sonntag (7)

so the day in the middle of the week is Donnerstag but why is Mittwoch called Mittwoch (German translation: Mitte der Woche) middle of the week

 

[DonManfred]

I dont know why wednesday is called MITTWOCH in german.
It is the middle of a working week maybe which is usually MO to FR.

 

[DonManfred]

like i wrote. the third working day (out of 5) so it´s the Middle

 

[netsistemas]

Monday first day, great.
This is my code

private Sub GetFechaControl(Control As B4XFloatTextField)
    Dim I As Long
    Try
        Dim Im As IME
        Im.HideKeyboard
        Log(DateTime.DateFormat)
        D.Initialize(Activity, DateTime.Now)
        D.RedSaturday=1
        D.RedSunday=1
        D.StartOnMonday=True
        I=D.Show("Select Date")
        If I=DialogResponse.POSITIVE Then
            'ToastMessageShow(DateTime.GetDayOfMonth(D.DateSelected) & "-" & DateTime.GetMonth(D.DateSelected) & "-" & DateTime.GetYear(D.DateSelected),True)
        
            Control.Text = modGeneral.DateE2( d.DateSelected )
        Else
            'ToastMessageShow("Don't selected",False)
        End If
        Log(DateTime.DateFormat)
    
            
    Catch
        Log(LastException)
    End Try
    
End Sub

and execute this funcion in B4XFloatTextFields on focus (is not perfect, but easy solucion).
May be, in future, b4xfolattextfields have a date editor internal.

Sub B4Fecha_FocusChanged (HasFocus As Boolean)
    If HasFocus Then
        GetFechaControl(Sender)
    End If
End Sub

before this code i used DateTemplate As B4XDateTemplate

 

[Star-Dust]

Monday first day, great.
This is my code

private Sub GetFechaControl(Control As B4XFloatTextField)
    Dim I As Long
    Try
        Dim Im As IME
        Im.HideKeyboard
        Log(DateTime.DateFormat)
        D.Initialize(Activity, DateTime.Now)
        D.RedSaturday=1
        D.RedSunday=1
        D.StartOnMonday=True
        I=D.Show("Select Date")
        If I=DialogResponse.POSITIVE Then
            'ToastMessageShow(DateTime.GetDayOfMonth(D.DateSelected) & "-" & DateTime.GetMonth(D.DateSelected) & "-" & DateTime.GetYear(D.DateSelected),True)
       
            Control.Text = modGeneral.DateE2( d.DateSelected )
        Else
            'ToastMessageShow("Don't selected",False)
        End If
        Log(DateTime.DateFormat)
   
           
    Catch
        Log(LastException)
    End Try
   
End Sub

and execute this funcion in B4XFloatTextFields on focus (is not perfect, but easy solucion).
May be, in future, b4xfolattextfields have a date editor internal.

Sub B4Fecha_FocusChanged (HasFocus As Boolean)
    If HasFocus Then
        GetFechaControl(Sender)
    End If
End Sub

before this code i used DateTemplate As B4XDateTemplate

It actually started before XUI and resumable subs. Now I would do it differently by including these two elements

 

[netsistemas]

In my projects, I found I used this kind of classes, but when turning the phone, the months with 6 weeks (like August 2020), it does not look correctly. After consulting EREL with good judgment, he made me use XUI and everything worked perfectly, but the first day of the week is SUNDAY. Now, that my application does not allow turning the phone, I do not have the program for the number of weeks, and on top I can put Monday as the first day of the week. If XUI ever allows MONDAY as the first day, I will return to XUI, as I consider that it is the most correct.