Discussion :

[gilles_906]

bonsoir.

J'essaie ca pour récupérer le dernier chiffre mais cela ne fonctionne pas.
DateAVerif est une date mais si je la remplace par "abcdef" cela ne fonctionne pas non plus

Code :

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

Right(Format(DateAVerif, "ddMMyy"), 1)

right est souligné et apparemment ne sert pas a ca. Ou alors il me manque une dll a importer mais je ne sais pas laquelle. Car d'après l'aide VS cela devrait marcher.

Par contre

Code :

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

LSet(Format(DateAVerif, "ddMMyy"), 4)

fonctionne bien

Merci de votre aide.

[MABROUKI]

bonjour Oami
voici le code correct qui fonctionne avec Right,Left etc....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
 
Public Class Form1
    Dim DateAVerif As Date
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DateAVerif = DateAndTime.Now
        'Utilise la classe Shared Strings car Right,Left,Trim etc...sont ses membres.
        'voici le code
        TextBox2.Text = Strings.Right(Format(DateAVerif, "ddMMyy"), 1) & vbCrLf
        TextBox2.Text = TextBox2.Text & Strings.Right(Format(DateAVerif, "ddMMyy"), 2) & vbCrLf
        TextBox2.Text = TextBox2.Text & Strings.Right(Format(DateAVerif, "ddMMyy"), 3) & vbCrLf
        TextBox2.Text = TextBox2.Text & Strings.Right(Format(DateAVerif, "ddMMyy"), 4) & vbCrLf
        TextBox2.Text = TextBox2.Text & Strings.Right(Format(DateAVerif, "ddMMyy"), 5) & vbCrLf
        TextBox2.Text = TextBox2.Text & Strings.Right(Format(DateAVerif, "ddMMyy"), 6) & vbCrLf
 
 
    End Sub
End Class

bon code....

[gilles_906]

Merci de ta reponse

j'avais bien essayé aussi mais VS me reponds que right n'est pas un membre de string.
Par contre

Code :

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

 Microsoft.VisualBasic.Right(Format(DateAVerif, "ddMMyy"), 1)

fonctionne.

Je pense que tu as du importer une dll dans ton code au début mais je ne sais pas laquelle, moi je n'ai importé que celle ci:

Code :

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

1
2
3
Imports System.Data.OleDb   'base de données a manipuler
Imports System.IO   'system avec des fichiers a manipuler
Imports System.Math 'pour les calculs

EDIT: oups autant pour moi j'ai oublié le S a string.
du coup ca marche

Merci