UNIX time label

[peba25]

Hallo,

Ik krijg via een webquery een UNIX timelabel binnen die er zo uit ziet:
1259672400.00

mbv: Datum en tijd is =1259672400.00 / 86400 + 25569 - 4 / 24 probeer ik de conversie uit te voeren.
Nu is het probleem de .00 die ik mee krijg. Hierdoor werkt het niet.
Weet iemand hoe ik hier (.00) vanaf kom?

 

[arrie23]

Bewerken - Vervangen

Zoeken naar: .00
Vervangen door: (leeg laten)

 

[peba25]

Bewerken - Vervangen

Zoeken naar: .00
Vervangen door: (leeg laten)

Bedankt. Hoe voer je zoiets bij een onchange van de cel uit in een macro?
Dit zodat de data altijd klopt?

Alvast bedankt.

 

[Hoornvan]

Deze code moet in een Module.

Sub Vervangen()
    Cells.Replace What:=".00", Replacement:="", ReplaceFormat:=False
End Sub

 

[Hoornvan]

Je kunt hem ook achter het blad zetten en dan ergens in het blad dubbel klikken.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cells.Replace What:=".00", Replacement:="", ReplaceFormat:=False
End Sub

Als je alleen in een bepaalde kolom dit wil doen gebruik dan deze code.
De andere code kijkt in heel het blad.
Pas de sheet naam en de kolom zo nodig aan.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Sheets("Blad1").Range("A:A")
    .Replace ".00", "", xlValue, xlPart
  End With
End Sub

 

[peba25]

Je kunt hem ook achter het blad zetten en dan ergens in het blad dubbel klikken.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cells.Replace What:=".00", Replacement:="", ReplaceFormat:=False
End Sub

Als je alleen in een bepaalde kolom dit wil doen gebruik dan deze code.
De andere code kijkt in heel het blad.
Pas de sheet naam en de kolom zo nodig aan.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Sheets("Blad1").Range("A:A")
    .Replace ".00", "", xlValue, xlPart
  End With
End Sub

De functie doet wat ik wil;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Sheets("Blad1").Range("A:A")
    .Replace ".00", "", xlValue, xlPart
  End With
End Sub

Nu alleen nog bij een verandering in een cel. Dit om bij iedere verversing van de webquery de juiste datum te krijgen.
Kan dit bij een onchange functie of moet ik het in een tijdsgestuurde functie zoeken?

Vervolgens wilik namelijk een grafiek creeren met automatische verversing van de data welke uit de webquery komt.
Thanks

 

[bandito bob]

Met in A1 de input kan het ook met volgende formule:

=LINKS(A1;LENGTE(A1)-3)/86400+25569-4/24

Als de lengte van de input altijd gelijk is (13) dan kan het ook met:

=LINKS(A1;10)/86400+25569-4/24

 

[peba25]

Met in A1 de input kan het ook met volgende formule:

=LINKS(A1;LENGTE(A1)-3)/86400+25569-4/24

Als de lengte van de input altijd gelijk is (13) dan kan het ook met:

=LINKS(A1;10)/86400+25569-4/24

Bedankt Paul,
Dit werkt perfect. Heb je misschien ook een idee om het volgende in een grafiek te zetten?

Kolom A; - Kolom B
1-12-09 9:00 - 50.02
1-12-09 9:15 - 50.08
1-12-09 9:30 - 49.08
1-12-09 9:45 - ETC.

Dit met op de horizontale as de date & timestamp en als y as de waarde uit kolom B. Ik krijg het niet voorelkaar om deze gegevens in een grafiek te zetten??