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 34 35
|
Sub TraitementTablejourFerie()
Dim rsDJFTemp As Recordset
Set rsDJFTemp = CurrentDb.OpenRecordset("SELECT * FROM JourFerieTemp")
Do While Not rsDJFTemp.EOF
Dim CodeMonnaie, Annee, LibPays As String
Annee = rsDJFTemp.Fields("ANNEE")
CodeMonnaie = rsDJFTemp.Fields("MONNAIE")
LibPays = rsDJFTemp.Fields("TBDES1")
LibPays = Replace(LibPays, "'", " ")
Dim strDate As String
strDate = rsDJFTemp.Fields("DESCRIP")
If Right(strDate, 4) = "0000" Then
strDate = Left(strDate, Len(strDate) - 4)
End If
Do While Len(strDate) > 3
Dim strExtrDate As String
strExtrDate = Right(strDate, 4)
Dim intMonth, intDay As Integer
Dim dteJourFerie As Date
intMonth = Right(strExtrDate, 2)
intDay = Left(strExtrDate, 2)
dteJourFerie = DateSerial(Annee, intMonth, intDay)
CurrentDb.Execute ("INSERT INTO JourFerie (CodeMonnaie, LibPays, DateJourFerie) VALUES ('" & CodeMonnaie & "','" & LibPays & "','" & dteJourFerie & "')")
strExtrDate = ""
intMonth = 0
intDay = 0
dteJourFerie = 0
strDate = Left(strDate, Len(strDate) - 4)
Loop
Annee = 0
CodeMonnaie = 0
rsDJFTemp.MoveNext
Loop
End Sub |
Partager