Af en eller anden grund har jeg ikke fået email at det er lagt beskeder efter #6
Arne_v >> smid et svar så deler i Point
Jeg løste det på følgende måde: Oprettelse af dato
Dim myNewsDate As Integer = ConvertToUnixTimestamp(DateTime.Now)
Private Shared Function ConvertToUnixTimestamp(ByVal MyDate As DateTime) As Double Dim origin As New DateTime(1970, 1, 1, 0, 0, 0, 0) Dim diff As TimeSpan = MyDate - origin Return Math.Floor(diff.TotalSeconds) End Function
Og når jeg skal vise dato:
Dim origin As New DateTime(1970, 1, 1, 0, 0, 0, 0) origin.AddSeconds(MyDS.Tables(0).Rows(i).Item("NewsDate"))
Jeg er iøvrigt lidt skeptisk overfor om det du konverterer til og fra er Unix timestamp, hvis du befinder dig i Danmark.
Jeg har ihvertfald følgende C# kode liggende på lageret:
private static long k = (new DateTime(1970, 1, 1, 0, 0, 0) + TimeZone.CurrentTimeZone.GetUtcOffset(DateTime.Now)).Ticks; public static int N2U(DateTime dt) { return (int)((dt.Ticks - k) / 10000000); }
Det er ligegyldigt at du bruger TimeSpan.TotalSeconds og jeg bruger Ticks og almindelige operationer. Forskellen er tidszone korrektionen.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.