1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
'**********************************************************************
' Script de transformation Visual Basic
'************************************************************************
' Copie chaque colonne source dans la colonne de destination
Function Main()
DTSDestination("DateCommande") = DateDBToPage(DTSSource("DATECOMMANDE"))
Main = DTSTransformStat_OK
End Function
' Composition d'une date de base de donnée style AAAAMMJJ vers JJ/MM/AAAA
Function DateDBToPage(ByVal pDate)
If pDate.Length = 8 Then
Return Mid(pDate, 7, 2) + "/" + Mid(pDate, 5, 2) + "/" + Mid(pDate, 1, 4)
Else
Return ""
End If
End Function
Public Function HeureDBToPage(ByVal pHeure)
' Composition d'une Heure de base de donnée style HHMM vers HH:MM
If pHeure.Length = 4 Then
Return Mid(pHeure, 1, 2) + ":" + Mid(pHeure, 3, 2)
Else
Return ""
End If
End Function |
Partager