Trop nul !!!
net-pratique
Messages postés
20
Date d'inscription
dimanche 16 novembre 2003
Statut
Membre
Dernière intervention
21 avril 2013
-
6 déc. 2003 à 20:28
net-pratique Messages postés 20 Date d'inscription dimanche 16 novembre 2003 Statut Membre Dernière intervention 21 avril 2013 - 6 déc. 2003 à 21:38
net-pratique Messages postés 20 Date d'inscription dimanche 16 novembre 2003 Statut Membre Dernière intervention 21 avril 2013 - 6 déc. 2003 à 21:38
4 réponses
cs_lataupeben
Messages postés
232
Date d'inscription
dimanche 19 octobre 2003
Statut
Membre
Dernière intervention
24 janvier 2006
6 déc. 2003 à 20:38
6 déc. 2003 à 20:38
je suis d accord pr le sujet
deja 5 ou 6 lettre pour function c assez
c' est une function ou une ou une variable ton truc
ca sert a rien cette function
declare une variable pour mettre la fin
deja 5 ou 6 lettre pour function c assez
c' est une function ou une ou une variable ton truc
ca sert a rien cette function
declare une variable pour mettre la fin
net-pratique
Messages postés
20
Date d'inscription
dimanche 16 novembre 2003
Statut
Membre
Dernière intervention
21 avril 2013
6 déc. 2003 à 20:54
6 déc. 2003 à 20:54
La fonction est donnée comme exemple bien sur !!
Elle est du genre : Voir ci-dessous
mais je ne voulais pas charger le massage.
Malgré un sentiment de légère agression dans la réponse, je te remercie
De bien vouloir accorder un peut de temps au nouveaux
Function LireDateFicheData(NomFichier As String, NumLigne As Long)
Dim KeyIni As String
If NomFichier = "Fic_BRUT" Then
KeyIni = "NameFich_Fic_BRUT"
ElseIf NomFichier = "Val_CALC" Then
KeyIni = "NameFich_Val_CALC"
End If
Open App.Path & "" & LireINI(KeyIni, "NameFich") For Input As #1
Ligne = 1
Do While Not EOF(1)
Line Input #1, TextLine
If Ligne = NumLigne Then
Exit Do
End If
Ligne = Ligne + 1
Loop
Close #
MyDate = Left(TextLine, 17)
TimeFichier = Mid(MyDate, 10, 8)
MytimeAdd = DateAdd("n", 10, TimeFichier)
LireDateFicheData = MytimeAdd
Merci encore
Laurans
Elle est du genre : Voir ci-dessous
mais je ne voulais pas charger le massage.
Malgré un sentiment de légère agression dans la réponse, je te remercie
De bien vouloir accorder un peut de temps au nouveaux
Function LireDateFicheData(NomFichier As String, NumLigne As Long)
Dim KeyIni As String
If NomFichier = "Fic_BRUT" Then
KeyIni = "NameFich_Fic_BRUT"
ElseIf NomFichier = "Val_CALC" Then
KeyIni = "NameFich_Val_CALC"
End If
Open App.Path & "" & LireINI(KeyIni, "NameFich") For Input As #1
Ligne = 1
Do While Not EOF(1)
Line Input #1, TextLine
If Ligne = NumLigne Then
Exit Do
End If
Ligne = Ligne + 1
Loop
Close #
MyDate = Left(TextLine, 17)
TimeFichier = Mid(MyDate, 10, 8)
MytimeAdd = DateAdd("n", 10, TimeFichier)
LireDateFicheData = MytimeAdd
Merci encore
Laurans
K@zuya
Messages postés
306
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
15 février 2016
6 déc. 2003 à 21:17
6 déc. 2003 à 21:17
il faut employer la syntaxe suivante pour recuperer ta variable:
dim variable
variable = LireDateFicheData(MonFIchier,Maligne)
le resultat de ta fonction sera stocké dans variable
K@zuya 8-)
dim variable
variable = LireDateFicheData(MonFIchier,Maligne)
le resultat de ta fonction sera stocké dans variable
K@zuya 8-)
net-pratique
Messages postés
20
Date d'inscription
dimanche 16 novembre 2003
Statut
Membre
Dernière intervention
21 avril 2013
6 déc. 2003 à 21:38
6 déc. 2003 à 21:38
Merci K@zuya,
le site et les acteurs du site ne dérogent pas a l'image que
j'ai d'eux super.
Merci j'ai tester fonctionnement OK
Laurans
le site et les acteurs du site ne dérogent pas a l'image que
j'ai d'eux super.
Merci j'ai tester fonctionnement OK
Laurans
