Please help me to code this example.

Theera

Expert
Licensed User
Longtime User
Hi Erel,or all
refer to this

I 've change to my library which supported both of English and Thai. I have problem about using. This is my coding
B4X:
Sub Activity_Create(FirstTime As Boolean)
        label1.Initialize("ShowtheCalendar")
        Activity.AddView(label1,30,40,190,50)
   label2.Initialize("ShowtheCalendar")
   Activity.AddView(label2,30,140,190,50)
   btnCal.Initialize("btnCal")
   Activity.AddView(btnCal,30,300,190,50)
   btnCal.Text="Diff of date is"
   adp.Initialize
   adp.AddToActivity(Activity, label1,True,True)  'Using English = False  / Thai = True,ShowShortMonth = True
   adp.AddToActivity(Activity, label2,True,True)
End Sub
Sub btnCal_Click
    Dim result As String
   Log(label1.Tag)
   Log(label2.Tag)
   
   result = (DateTime.DateParse(label1.Tag)-DateTime.DateParse(label2.Tag))/(DateTime.TicksPerDay)
   result = Abs(result)
   result = NumberFormat(result,0,0) & "days"
   
End Sub

Sub ShowtheCalendar
   adp.Show
End Sub

p.s. In my library,I've save both of the label1.tag and the label2.tag is format dd/MM/yyyy
 
Last edited:

Theera

Expert
Licensed User
Longtime User
Why do I must do this,have both of adp1 and adp2 ?
B4X:
Sub Activity_Create(FirstTime As Boolean)
        label1.Initialize("label1")
        Activity.AddView(label1,30,40,190,50)
    label2.Initialize("label2")
    Activity.AddView(label2,30,140,190,50)
    btnCal.Initialize("btnCal")
    Activity.AddView(btnCal,30,300,190,50)
    btnCal.Text="Diff of date is"
    adp1.Initialize
    adp1.AddToActivity(Activity, label1,True,True)  'Using English = False  / Thai = True,ShowShortMonth = True
     adp2.Initialize
    adp2.AddToActivity(Activity, label2,True,True)
End Sub
Sub btnCal_Click
    Dim result As String
    Log(label1.Tag)
    Log(label2.Tag)
    
    result = (DateTime.DateParse(label1.Tag)-DateTime.DateParse(label2.Tag))/(DateTime.TicksPerDay)
    result = Abs(result)
    result = NumberFormat(result,0,0) & "days"
    
End Sub

Sub label1_clcik
    adp1.Show
End Sub
Sub label2_clcik
    adp2.Show
End Sub
 
Upvote 0

mc73

Well-Known Member
Licensed User
Longtime User
Note, also, that you have wrong names for the subs:
label1_click and label2_click (NOT _clcik)
 
Upvote 0
Top