Forum Clubic

[VB] - modifier une chaine de valeur - Cay bon, on a le langage :D

EDIT : ok on a le langage, voir question au 3ème post :wink:

====================================

Voilà pour le taf j’ai une macro qu’on m’a refilé, elle fait du requêtage de masse sur un système bien a nous.

J’ai réussi à faire quelques modifications basiques dedans, s’agissant d’une macro qui ouvre des écran spécifiques de notre outil avant de choper des blocs de caractères à des coordonnées spécifiques :slight_smile:

Mais là j’ai la date “à l’envers” : 06 08 16 et je voudrais la convertir, sauf que je ne sais même pas en quoi c’est programmé ce merdier… voilà quelques lignes de code si ca vous inspire =>

Option Explicit

' Déclaration des procédures et fonctions internes
' ------------------------------------------------

Declare Sub ToucheFonction(Ecran As Object, Touche As String)
Declare Function Cle_Veh(Chaine As String) As String
Declare Function Pf6(Ev As String) As String
Declare Function Fmt(Chaine As String) As String
Declare Function VFmt(Chaine As String) As String


'-----------------------------------------------------------------------------
Sub Main
'-----------------------------------------------------------------------------
    Dim System As Object
    Dim Session as Object
    Dim Ecran As Object
Dim ev as string
    Dim Repertoire As String     ' Répertoire d'accueil fichier(s) résultat

Merci par avance :wink:

Hello,

c’est du VB

Merci bien !

bon et maintenant la question donc :

If choix.MADC=1 then initialisation$=initialisation$+"VE1_PF07;DATE MADC;15;27;8"+ Chr$(13) + Chr$(10)

Ca me récupère une chaine de caractères de 8 caractères de long genre "06 08 16" qui est en fait une date. Je voudrais convertir ca en : 06/08/06, je fais ca comment SVP ?

replace(string,’ ', ‘/’); ?

Je sais pas :ane: j’y connais rien en VB. Et sinon pour replacer mon année à la fin et mon jour au début ?

y’a pas des fonctions de conversions de date en VB ?
je me rappelle que j’en avais utiliser à une époque, même si ça reste super basic :neutre:

je crois que c’est

MyStr = Format(MyDate, "jj/mm/aa")

NERf, je pige keudal aux 813 lignes de code que j’ai sous les yeux :ane:

Enfin pas grand chose.

Je trouve pas où faire la modification pour gérer votre rajout en revanche :confused: Je pensais pouvoir l’intégrer directement dans la ligne postée plus haut, mais manifestement ca marche po :frowning:

c’est trop basic pour toi :ane:

C’est une macro pour attachmate EXTRA! au fait, si qqn connait ce truc :ane:


Private Function FormatDate(ByVal curdate As String) As String
Dim day As Integer, month As Integer, year As Integer
    
    year = Val(Mid(curdate, 1, 2))
    month = Val(Mid(curdate, 4, 2))
    day = Val(Mid(curdate, 7, 2))
    
    FormatDate = DateSerial(year, month, day)

End Function



Private Sub Form_Load()
Dim curdate As String

    curdate = "06 08 16"
    Debug.Print FormatDate(curdate)
    
End Sub