Bonjour,

Je dois extraire des dates d'une une base de données avec sql serveur 2008 et j'utilise la fonction ci-dessous pour traiter les dates que je récupère vers Excel.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function F_Date(wDate As Variant) As String
'transforme une date pour ecriture dans la base de données
On Error GoTo erreur
 
If IsNull(wDate) Then 'date non renseignée
F_Date = "Null"
ElseIf IsDate(wDate) Then
If pTypeBD = "ACCESS" Then 'Access 97,2000
F_Date = "#" & Format(wDate, "yyyy/mm/dd hh:nn:ss") & "#"
ElseIf pTypeBD = "SQL-SERVER" Then 'SQL Server 7.0
F_Date = "Convert(DateTime,'" & Format(wDate, "dd/mm/yyyy hh:nn:ss") & "',103)"
Else 'Autre
F_Date = wDate
End If
Else 'erreur, pas de type date
F_Date = "Null"
End If
Exit Function
 
erreur:
'Ecriture dans le Journal d'événements
F_Date = "Null"
End Function
Le résultat n'est pas probant, car la plupart du temps, le mois et le jour que je récupère sont inversés mais pas toujours... (lorsque la date du jour est < 10, je crois...)

Pouvez vous m'aider je patauge ... Merci d'avance,

Cordialement