Business Intelligence et techniques avec Michel Preti

ID #1060

Fonction permettant d'obtenir une date formattée

'-------------------------------------------------------------
'Fonction   : GetDateString
'Description: Fonction permettant d'obtenir une date en string dans le format suivant: 20070402_080602
'Input      : Date
'Output     : String
'Création   : 2003.10.16 Michel Preti
'Note       : Les fonctions FORMAT et IIF ne fonctionnent
'             pas en VBScript.
'-------------------------------------------------------------
Public Function GetDateString(dteTemp)
    Dim strOutput
    
'Partie date -----------------------------
    strOutput = Year(dteTemp)
    
    'Partie Date Mois
    If Month(dteTemp) < 10 Then
        strOutput = strOutput & "0" & Month(dteTemp)
    Else
        strOutput = strOutput & Month(dteTemp)
    End If
    
    'Partie Date Jour
    If Day(dteTemp) < 10 Then
        strOutput = strOutput & "0" & Day(dteTemp)
    Else
        strOutput = strOutput & Day(dteTemp)
    End If
       
    'Séparateur
    strOutput = strOutput & "_"

'Partie heure ----------------------------
    'Partie Heure Heure
    If Hour(dteTemp) < 10 Then
        strOutput = strOutput & "0" & Hour(dteTemp)
    Else
        strOutput = strOutput & Hour(dteTemp)
    End If
 
    'Partie Heure Minute
    If Minute(dteTemp) < 10 Then
        strOutput = strOutput & "0" & Minute(dteTemp)
    Else
        strOutput = strOutput & Minute(dteTemp)
    End If
 
    'Partie Heure Seconde
    If Second(dteTemp) < 10 Then
        strOutput = strOutput & "0" & Second(dteTemp)
    Else
        strOutput = strOutput & Second(dteTemp)
    End If
 
 
    GetDateString = strOutput

End Function

Merci de noter cette entrée:

Moyenne des notes: 0 sur 5 (0 Votes)

complètement inutile 1 2 3 4 5 indispensable

commenter cet article

Votre nom:
Votre adresse e-mail:
Votre commentaire:

Merci de saisir les caractères que vous lisez sur l'image.