Discussion :

[afrodje]

Salut

J'aimerai récupérer le temps UNIX mais je sais vraiment pas quelle librairie faut utiliser.

Par exemple aujourd'hui à 10h30 : 1203503400.

Merci

[Poulain]

si tu expliquais comment on passe du temps "usuel" au temp unix, tu aurais peut etre plus de chance

[afrodje]

si tu expliquais comment on passe du temps "usuel" au temp unix, tu aurais peut etre plus de chance

C'est le nombre de seconde depuis le 1er janvier 1970...

[Poulain]

eh bien, tu recupères la date, tu fais -1970 et tu converti en secondes.
Pareil pour les mois, les jours, et tu convertis tout simplement l'heure qu'il est en secondes, tu sommes le tout.

[kwest]

Deux autres exemples de codes :

http://www.codeproject.com/KB/vb/Uni...ControlVB.aspx
http://forums.asp.net/t/398880.aspx

[afrodje]

J'ai trouvé la conversion de temps UNIX -> date
Mais je ne trouve pas de date->temps UNIX.

Code :

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

1
2
3
  'converti de temps unix vers date et heure
        Dim conversion_unix_date As DateTime = New DateTime(1970, 1, 1, 0, 0, 0).AddSeconds(1203503400)
        MsgBox(conversion_unix_date.ToLongDateString & " à " & conversion_unix_date.ToLongTimeString)

[Poulain]

ben va voir sur la msdn ce que tu peux faire avec datetime.

[Pol63]

timespan avec un datediff en secondes peut etre

[kwest]

Tu as la réponse dans le lien que j'ai donné plus haut :

http://www.codeproject.com/KB/vb/Uni...ControlVB.aspx

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 Sub ConvertToUnixTime(ByVal dt As Date)
 
        Me.Text = (dt - New DateTime(1970, 1, 1, 0, 0, _
        0)).TotalSeconds.ToString()
 
        ' Note:  This operation will truncate the value to its
        ' minimum for the date time shown; for example, if "500000000" is
        ' entered into the textbox, this operation will alter the value to
        ' "499996800"
        ' which is the minimum value for the date 11/5/1985.  If you need to
        ' maintain the exact unix time value, create a separate variable to
        ' store it in and set it to the unix time stamp prior to converting
        ' from unix time to a date.
 
    End Sub

[tomlev]

Code :

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

1
2
3
4
5
6
7
 
    Private Function ConvertToUnixTime(ByVal dt As Date) As Long
        Dim origin As New Date(1970, 1, 1)
        Dim span As TimeSpan = dt - origin
        Dim seconds As Double = span.TotalSeconds
        Return CType(seconds, Long)
    End Function

Ca revient au même que le code de kwest, mais c'est plus clair...

[afrodje]

Super.

Ton code fonctionne.

Merci à tous