Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Re: Decalage de l'heure d'envoie

17/04/13 20:49
C'est cette fonction qui donne +0400 au lieu de -0400

Function FormatDH(iDecalage As Integer) As String
Dim i As Single

i = iDecalage Mod 1440 ' Limiter à un tour de globe smiling smiley

Select Case i
Case Is < -720: i = i + 1440
Case -720 To 720: ' Rien, on garde la valeur
Case Is > 720: i = i - 1440
End Select

' Conversion en heures et formatage.
FormatDH = Format$(i / 1440, "+hhnn;-hhnn;+hhnn"winking smiley

End Function
SujetAuteurEnvoyé le

Decalage de l'heure d'envoie

magicline2517/04/13 15:57

Re: Decalage de l'heure d'envoie

DenisS17/04/13 18:47

Re: Decalage de l'heure d'envoie

magicline2517/04/13 19:03

Re: Decalage de l'heure d'envoie

DenisS17/04/13 19:41

Re: Decalage de l'heure d'envoie

magicline2517/04/13 19:55

Re: Decalage de l'heure d'envoie

DenisS17/04/13 20:15

Re: Decalage de l'heure d'envoie

magicline2517/04/13 20:25

Re: Decalage de l'heure d'envoie

DenisS17/04/13 20:42

Re: Decalage de l'heure d'envoie

magicline2517/04/13 20:49

Re: Decalage de l'heure d'envoie

DenisS17/04/13 20:58

Re: Decalage de l'heure d'envoie

magicline2517/04/13 21:06

Re: Decalage de l'heure d'envoie

DenisS18/04/13 19:57

Re: Decalage de l'heure d'envoie

DenisS17/04/13 21:07

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter