Récuperer le temps UNIX

Version imprimable

20/02/2008, 10h40
afrodje

Récuperer le temps UNIX

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
27/02/2008, 09h56
Poulain

si tu expliquais comment on passe du temps "usuel" au temp unix, tu aurais peut etre plus de chance;)
27/02/2008, 15h32
afrodje

Citation:

Envoyé par Poulain

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...
28/02/2008, 15h47
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.
04/03/2008, 08h02
kwest

Deux autres exemples de codes :

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

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

Code:

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)

10/03/2008, 21h02
Poulain

ben va voir sur la msdn ce que tu peux faire avec datetime.
10/03/2008, 23h24
Pol63

timespan avec un datediff en secondes peut etre

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

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

Code:

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

Code:

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...

13/03/2008, 10h54
afrodje

Super.

Ton code fonctionne.

Merci à tous ;)