B4A Library [Class] AnotherDatePicker - A simple "web style" date picker

Erel · Mar 21, 2013

This is an old version. Latest version is included in XUI Views: https://www.b4x.com/android/forum/threads/100836/#content

AnotherDatePicker is an inline date picker:

The advantage of this class over the built-in dialog (DateDialog from the Dialogs library) is that you can easily customize it as needed.

Most of the layout is created with the visual designer and designer script.

ADP.GetDate returns the selected date.

The months names and days names are based on the device locale.

In order to use this class in your code you should add AnotherDatePicker class, reference DateUtils library and add DatePicker layout file to the Files tab.

Starting from v2.0, ADP should be added as a custom view from the designer:

v2.0 - Better support for visual designer and more configurable options (including first day of week).
v1.11 - Fixes an issue with SetDate that is called before the view is ready.
v1.10 - Adds a Closed event. See the attached example.

DonManfred · Feb 25, 2016

Andy S. said:
Is this class in the public domain?

You can use the source in your apps.
I think you are not allowed to give it away to someone who is not a licensed user.

Erel · Feb 25, 2016

That's true.

FrankBerra · Mar 14, 2016

After upgrading to the last version the hint text is not displayed anymore. And also it seems that changing the text alignment and the background color in the designer settings doesn't produce any changes. Am I missing something?

Erel · Mar 15, 2016

Add this line to DesignerCreateView to set the alignment: targetLabel.Gravity = lbl.Gravity

There is no hint text available because there is no EditText view. It is a label that looks like an EditText.

Mandrake · Apr 8, 2016

Hello need the datepicker in my project but as I can do 'm new to this.
The example does not work

DonManfred · Apr 8, 2016

Mandrake said:
The example does not work

you need B4A 5.8+

Mandrake · Apr 10, 2016

I have B4A 5.50 licensed it's posible update?

Erel · Apr 10, 2016

Please contact support@basic4ppc.com.

Jose Luis Barajas · May 12, 2016

Help with AnotherDatePicker in CustomListView

Hi

I like to add this control on customlisvtiew,

When compile my project I get this error

B4A version: 5.80
Parsing code. (0.23s)
Compiling code. (0.31s)
Compiling layouts code. (0.01s)
Generating R file. (0.06s)
Compiling debugger engine code. (1.17s)
Compiling generated Java code. Error
B4A line: 719
Dim tDatePicker As AnotherDatePicker = p.GetView(
javac 1.7.0_55
src\b4a\docucad\enter\code.java:1451: error: inconvertible types
_tdatepicker = (b4a.docucad.enter.anotherdatepicker)(_p.GetView(_idx_datepicker).getObject());
^
required: anotherdatepicker
found: View

The line tha kill the process its

Dim tDatePicker As AnotherDatePicker = p.GetView(0)

Please, can help me, I need to include this control on customlistview

Thanks

Erel · May 12, 2016

Please start a new thread for this question. Also mention whether you need to add one picker or many.

Douglas Farias · Jul 1, 2016

@Erel i have a simple question
Where change the top blue color (where is the spinner´s) and the corner radius? i not found this.

On the designer i found only background, select and highlighted color.
And on the class code i dont found any RGB, blue, cyan etc..

thx

Wolli013 · Jul 1, 2016

'Spinner Hintergrundfarbe setzen

B4X:

Dim ActionbarFarbe As Int = -16729601
   Years.DropdownBackgroundColor =  ActionbarFarbe
   Months.DropdownBackgroundColor =  ActionbarFarbe

Erel · Jul 3, 2016

You can change it in the DatePicker layout:

JOTHA · Aug 30, 2016

Erel said:
You can use:

B4X:

DateTime.DateFormat = DateTime.DeviceDefaultDateFormat

Sorry ... that causes a NumberFormatException: Invalid double: "invalid date"

PackageAdded: package:b4a.example
** Activity (main) Create, isFirst = true **
Error: Invalid value: n. Chr.20160830 000000
dateutils_setdateandtime (java line: 426)
java.lang.NumberFormatException: Invalid double: "invalid date"
at java.lang.StringToReal.invalidReal(StringToReal.java:63)
at java.lang.StringToReal.initialParse(StringToReal.java:94)
at java.lang.StringToReal.parseDouble(StringToReal.java:282)
at java.lang.Double.parseDouble(Double.java:301)
at b4a.example.dateutils._setdateandtime(dateutils.java:426)
at b4a.example.dateutils._setdate(dateutils.java:390)
at b4a.example.anotherdatepicker._selectday(anotherdatepicker.java:406)
at b4a.example.anotherdatepicker._setdate(anotherdatepicker.java:426)
at b4a.example.anotherdatepicker._addtoactivity(anotherdatepicker.java:146)
at b4a.example.main._activity_create(main.java:328)
at java.lang.reflect.Method.invoke(Native Method)
at java.lang.reflect.Method.invoke(Method.java:372)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
at b4a.example.main.afterFirstLayout(main.java:102)
at b4a.example.main.access$000(main.java:17)
at b4a.example.main$WaitForLayout.run(main.java:80)
at android.os.Handler.handleCallback(Handler.java:815)
at android.os.Handler.dispatchMessage(Handler.java:104)
at android.os.Looper.loop(Looper.java:194)
at android.app.ActivityThread.main(ActivityThread.java:5624)
at java.lang.reflect.Method.invoke(Native Method)
at java.lang.reflect.Method.invoke(Method.java:372)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:959)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:754)
java.lang.NumberFormatException: Invalid double: "invalid date"

The original code is

B4X:

DateTime.DateFormat = "GGyyyyMMdd"

... but why is it not possible to use

B4X:

DateTime.DateFormat = "dd.MM.yyyy"

How can I get the correct result of the Dateformat for today in Germany = "30.08.2016" in Label1.Text?

DonManfred · Aug 30, 2016

Error: Invalid value: n. Chr.20160830 000000
Was ist denn das für ein Datumsformat??? Wo kommt das her in dieser Form?

JOTHA said:
but why is it not possible to use

Warum sollte das nicht gehen?

B4X:

    DateTime.DateFormat =    "dd.MM.yyyy"   
    Dim heute As Long = DateTime.DateParse("19.12.1968")
    Log(DateTime.Date(heute))

JOTHA · Aug 30, 2016

DonManfred said:
Error: Invalid value: n. Chr.20160830 000000
Was ist denn das für ein Datumsformat??? Wo kommt das her in dieser Form?

Warum sollte das nicht gehen?

B4X:

DateTime.DateFormat = "dd.MM.yyyy" Dim heute As Long = DateTime.DateParse("19.12.1968") Log(DateTime.Date(heute))

Das wüßte ich auch gerne ... es ist wohl das Ergebnis von DateTime.DateFormat = "GGyyyyMMdd"
In diesem Datum sehe ich 2016.08.30 + Uhrzeit 00:00:00 (heutiges Datum um 00:00:00 Uhr)

Mit deinem Code kommt diese Fehlermeldung:

PackageAdded: package:b4a.example
** Activity (main) Create, isFirst = true **
19.12.1968
Error: Invalid value: n. Chr.20160830 000000
dateutils_setdateandtime (java line: 431)
java.lang.NumberFormatException: Invalid double: "invalid date"
at java.lang.StringToReal.invalidReal(StringToReal.java:63)
...

DonManfred · Aug 30, 2016

JOTHA said:
Mit deinem Code kommt diese Fehlermeldung:

Falsch!

DAS ist der Output

** Activity (main) Create, isFirst = true **
19.12.1968

Die Fehlermeldung kommt von einem anderen Code.

JOTHA · Aug 31, 2016

DonManfred said:
Falsch!

DAS ist der Output

** Activity (main) Create, isFirst = true **
19.12.1968

Die Fehlermeldung kommt von einem anderen Code.

Yes thats right, the error message ist the result of that code:

B4X:

Public Sub SetDateAndTime(Years As Int, Months As Int, Days As Int, Hours As Int, Minutes As Int, Seconds As Int) As Long
   
    Dim df = DateTime.DateFormat, tf = DateTime.TimeFormat As String
    DateTime.DateFormat = "GGyyyyMMdd"  '-- Original --   
    DateTime.TimeFormat = "HHmmss"
    Dim d As String = Format(Abs(Years), 4) & Format(Months, 2) & Format(Days, 2)
    d = GetEra(Years < 0) & d
    Dim t As String = Format(Hours, 2) & Format(Minutes, 2) & Format(Seconds, 2)
   
    Try
        Dim ticks As Long = DateTime.DateTimeParse(d, t)
    Catch
        DateTime.DateFormat = df
        DateTime.TimeFormat = tf
            Log("--> Error: Invalid value = Fehler: ungültiger Wert " & d & " " & t)
        Return "--> invalid date = ungültiges Datum" + 1 'hack to throw an error
    End Try
   
    DateTime.DateFormat = df
    DateTime.TimeFormat = tf
        Log("Datum: "&df&" - Uhrzeit: "&tf&"")
    Return ticks

Only the DateTime.DateFormat = "GGyyyyMMdd" is alowed.
This generates the Error: Invalid value: n. Chr.20160830 000000, if you change DateFormat the into DateTime.DateFormat = "dd.MM.yyyy"

tiziana.tinnirello · Sep 2, 2016

ADP in debug mode works well, in release mode does not show nothing. Help !

EDIT: Solved, moved load layout in Activity_Resume with IsInizialized check

daveinhull · Sep 25, 2016

HI,

Quick question which I can't seem to find any earlier reference to; how can I detect when 'anotherdatepicker' loses focus?

Appreciate any help

Thanks
Dave

B4A Library [Class] AnotherDatePicker - A simple "web style" date picker

Attachments

Expert

B4X founder

Active Member

B4X founder

Member

Attachments

Expert

Member

B4X founder

Member

B4X founder

Expert

Well-Known Member

B4X founder

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Member

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency