Discussion :

[Golzinne]

Bonjour,

Dans mon application, je sauve l'heure de création ou de modification d'un enregistrement avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 currentCarteF.CarteFModificationDate = Date.Now

Quand j'exécute en VS 2010 il me sauve la bonne heure dans "CarteFModificationDate" par contre dès que je publie, il m'indique l'heure française moins 9 heures !

Cela s'explique car le serveur est aux états-unis et que mon instruction est exécutée coté serveur.

Comment puis-je lui indiquer que je voudrais que le "Date.Now" soit l'heure de la France ?

J'essaie de définir un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private dfi As DateTimeFormatInfo = New CultureInfo("FR-FR").DateTimeFormat

mais apparemment, ça ne joue que sur l'affichage.

[Skyounet]

Ca n'a pas l'air possible de base. Par contre tu peux convertir en temps universel et ajouter 2 heures.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateTime.Now.ToUniversalTime().AddHours(2)

[Samuel Blanchard]

Bonjour,

Peut-etre as-tu acces aux settings du serveur ? Dans ce cas tu peux changer la localisation de celui ci pour ne plus avoir ce genre de soucis.

[Pragmateek]

Ca n'a pas l'air possible de base. Par contre tu peux convertir en temps universel et ajouter 2 heures.

Ça ne risque pas de poser problème avec les horaires d'été/hiver (+2h/+1h) ?

[Golzinne]

Je ne pense pas pouvoir accéder au serveur, car c'est un serveur mutualisé...

Par contre la solution de Skyounet marche parfaitement, du moins pour l'instant (avant l'heure d'hiver :o)) mais d'ici là, la prochaine version de Silverlight permettra sûrement de faire ça "de base".

Merci à tous

[Golzinne]

Bonjour,

Comme on est passé à l'heure d'hiver avant que la version 5 de Silverlight ne soit sortie..., je vous met le peti bout de code suivant qui vous permet d'identifier si il faut rajouter une heure ou deux heures à l'heure universelle.

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
 Private Function heureEteHiver() As Integer
            'déterminer la date du dernier samedi de mars
            Dim mars31 As Date = DateSerial(Year(Now), 3, 31)
            Dim marsLast As Date = DateAdd(DateInterval.Day, -(Weekday(mars31) Mod 7), mars31)
 
            'déterminer la date du dernier samedi d'octobre
            Dim octobre31 As Date = DateSerial(Year(Now), 10, 31)
            Dim octobreLast As Date = DateAdd(DateInterval.Day, -(Weekday(octobre31) Mod 7), octobre31)
 
            'Si entre les deux, on rajoute 2 (au temps universel) sinon 1
            If Date.Today > marsLast And Date.Today <= octobreLast Then
                Return 2
            Else
                Return 1
            End If
 
        End Function