USF_Demo
Description
Bonsoir à tous
Voici un fichier démo sous Excel 2007 et Windows 7, en open source est un fichier d?un formulaire traitant aussi bien du code VBA du code WMI et des APIS Windows. Voila bonne découverte
Modification sur l?affichage Date Heure
'
' Ce premier exemple utilise la fonction Mid pour renvoyer un nombre de caractères déterminé parmi ceux composant une chaîne.
' Procédures la Function V_WMIDateHeure(Dates) qui permet de recomposer la date et l'heure d'installation sous la forme 13/12/2010 15:41:39
Public Function V_WMIDateHeure(Dates) As String
' A noté que la fonction dates présente à été adaptée au format français
' Jours = Mid$(Dates, 7, 2) Mois = Mid$(Dates, 5, 2) Années = Left$(Dates, 4)
' Heures = Mid$(Dates, 9, 2) Minutes = Mid$(Dates, 11, 2) Secondes = Mid$(Dates, 13, 2)
On Error Resume Next
' Cet exemple utilise l'instruction Mid pour remplacer un nombre déterminé de caractères
' d'une variable chaîne par des caractères issus d'une autre chaîne.
' Le caractère de déclaration de type String est le signe $. Ou As String
V_WMIDateHeure = CDate(VBA.Mid$(Dates, 7, 2) & "/" & VBA.Mid$(Dates, 5, 2) & "/" & VBA.Left$(Dates, 4) _
& " " & VBA.Mid$(Dates, 9, 2) & ":" & VBA.Mid$(Dates, 11, 2) & ":" & VBA.Mid$(Dates, 13, 2))
On Error GoTo 0
End Function
@+ gege45
Voici un fichier démo sous Excel 2007 et Windows 7, en open source est un fichier d?un formulaire traitant aussi bien du code VBA du code WMI et des APIS Windows. Voila bonne découverte
Modification sur l?affichage Date Heure
'
' Ce premier exemple utilise la fonction Mid pour renvoyer un nombre de caractères déterminé parmi ceux composant une chaîne.
' Procédures la Function V_WMIDateHeure(Dates) qui permet de recomposer la date et l'heure d'installation sous la forme 13/12/2010 15:41:39
Public Function V_WMIDateHeure(Dates) As String
' A noté que la fonction dates présente à été adaptée au format français
' Jours = Mid$(Dates, 7, 2) Mois = Mid$(Dates, 5, 2) Années = Left$(Dates, 4)
' Heures = Mid$(Dates, 9, 2) Minutes = Mid$(Dates, 11, 2) Secondes = Mid$(Dates, 13, 2)
On Error Resume Next
' Cet exemple utilise l'instruction Mid pour remplacer un nombre déterminé de caractères
' d'une variable chaîne par des caractères issus d'une autre chaîne.
' Le caractère de déclaration de type String est le signe $. Ou As String
V_WMIDateHeure = CDate(VBA.Mid$(Dates, 7, 2) & "/" & VBA.Mid$(Dates, 5, 2) & "/" & VBA.Left$(Dates, 4) _
& " " & VBA.Mid$(Dates, 9, 2) & ":" & VBA.Mid$(Dates, 11, 2) & ":" & VBA.Mid$(Dates, 13, 2))
On Error GoTo 0
End Function
@+ gege45
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.