Discussion :

[MADA BLACK]

Salut tout le monde
Svp .. j'ai vraiment besoin d'aide
Avec ce code .. que je l'ai recuperer depuis VB6 .. et qui fonctionne tres bien sans aucun faute
Je tape la date de naissance dans TextBox1 .. et s'affichera automatiquement l'age :
Annees dans TextBox2
Mois dans TextBox3
Jours dans TextBox4
Comment faire svp pour effacer definitivement les expressions du VB6 dans ce code ( Microsoft.VisualBasic ) ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Class Form1
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Test_Age = DateAdd(Microsoft.VisualBasic.DateInterval.Year, Year(CDate(TextBox5.Text)) - Year(CDate(TextBox1.Text)), CDate(TextBox1.Text)) > CDate(TextBox5.Text)
        Date_Age = DateAdd(Microsoft.VisualBasic.DateInterval.Year, CDbl(TextBox2.Text), CDate(TextBox1.Text))
        TextBox3.Text = CStr(DateDiff(Microsoft.VisualBasic.DateInterval.Month, Date_Age, CDate(TextBox5.Text)) + CShort(Test_Age))
        TextBox4.Text = CStr(DateDiff(Microsoft.VisualBasic.DateInterval.Day, DateAdd(Microsoft.VisualBasic.DateInterval.Month, CDbl(TextBox3.Text), Date_Age), CDate(TextBox5.Text)))
    End Sub
End Class

Merci beaucoup d'avanace pour l'aide
Cordialement
MADA

Merci a tous .. c'est bien resolu .. j'ai simpement efface ( Microsoft.VisualBasic ) de ces 4 lignes.

[Phil Rob]

Salut Mada,

Dans les propriétés du projet, dans les références, il faut désactiver Microsoft.VisualBasic. Alors tu tu n'utiliseras plus que du VB.Net.
Et si exceptionnellement, tu as vraiment besoin d'un instruction VB6 (ex. Rnd), il te suffira d'écrire le nom complet : Microsoft.VisualBasic.Rnd().

...

[MADA BLACK]

Merci Phil Rob
Merci beaucoup pour l'explication .. merci pour vos lecons et impeccables instructions
Amicalement
MADA