[DTS et VBScript] changer un format de date
Bonjour,
J'ai besoin de faire une conversion de date dans un lot DTS lors de l'import d'un fichier texte
En effet ma destination en base est de type DATETIME et mon fichier texte comporte une date au format AAAAMMJJ.
Au moment de l'import ca "claque" motif, type incompatible blablabla.
Donc pas de soucis, je vais faire ma modif dans les propriétés de transformation activX prévu a cet effet.
Sauf que (et bha ouais sinon ca serai trop beau) mon joli script from the net a un peu de probleme de "compilation"
En faite je crois que c'est pas du VBScript mais du VB6 ou .net ou autre
Code:
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 |
Pourriez me confirmer que je me plante de langage (ou pas ) et si possible (oui je suis gourmande mais bon), me proposer un ptit script qui repondrai a mon besoin
D'avance merci
