French utilisation des dates sur B4A

[Tata Mapassa]

Bonjour,

Comment faire pour récupérer une date saisie dans EditText et afficher à partir d'un label cette date + 2 jours ?
Par exemple, date saisie 25/03/2017 - date affichée 27/03/2017.
Merci

 

[udg]

Hi GOMBE.
try something like the following:

Dim EditDate as long = DateTime.DateParse(Edit1.Text) 'pay attention to DateFormat
Dim DayAfterTomorrow As Long = DateTime.Add(EditDate , 0, 0, 2)
Dim MyLabel as Label
MyLabel.Text = DateTime.Date(DayAfterTomorrow)

udg

 

[Tata Mapassa]

Hello UDG,

J'ai essayé avec le format yyyy/mm/dd ou mm/yyyy/dd l'application se plante.

 

[klaus]

In the DateFormat mm must be MM! mm minutes, MM months
From your first post you should use dd/MM/yyyy

 

[Tata Mapassa]

Bonjour,
Même avec le format dd/mm/yyyy l'application se plante

 

[klaus]

MM en MAJUSCULES !

 

[Tata Mapassa]

voici mon code :
Dim EditDate As Long = DateTime.DateParse(EditText1.Text) 'avec dd/mm/aaaa
Dim DayAfterTomorrow As Long = DateTime.Add(EditDate , 0, 0, 2)
Label1.Text = DateTime.Date(DayAfterTomorrow)

 

[imbault]

Just add before your code :

DateTime.DateFormat= ="dd/MM/yyyy"

And Klaus is right MM must be uppercase, else it's for minutes no month

 

[klaus]

J'ai l'impression que tu te fous de nous.
Ci-dessous un petit projet qui fonctionne!!!
C'est frustrant que les personnes qui aident doivent prouver ce qu'elles conseillent.

Sub Button1_Click
    DateTime.DateFormat = "dd/MM/yyyy"
    Dim EditDate As Long = DateTime.DateParse(EditText1.Text) 'avec dd/mm/aaaa
    Dim DayAfterTomorrow As Long = DateTime.Add(EditDate , 0, 0, 2)
    Label1.Text = DateTime.Date(DayAfterTomorrow)
End Sub

 

[Tata Mapassa]

OK ça marche. Merci beaucoup de votre aide