Avatar billede fajens Mester
22. oktober 2007 - 21:08 Der er 6 kommentarer og
1 løsning

opsamle start og stop af pc

Hej
Når jeg møder på arbejde er det første jeg gør at tænde computeren, og det sidste før jeg går ud af døren er at slukke den.
Så spørgsmålet er om der findes eller kan laves et VB program der samler start og slut tid op, og gemmer dem i et regneark eller database. evt. senere udvide det til at opsummere tiden for en given periode.
Årsag:
Så er jeg fri for at notere min arbejstid på parpir for senere at regne den samlede tid ud, så jeg ved hvad jeg skylder/har tilgode.

Håber at spørgdmålet er forståeligt, eller spørg ind.

/fajens
Avatar billede thegenuine Praktikant
22. oktober 2007 - 21:15 #1
kigger med
Avatar billede be_nice Juniormester
22. oktober 2007 - 21:36 #2
Mener at Windows logger tidspunkter for opstart sammen med en del anden "spændende" information i nogle "gemte" logfiler" - spørgsmålet er om dette er en "nem" og brugbar løsning.

Jeg hælder i stedet til en løsning via Excel, hvor du med formlen =nu() i en celle får vist dato og klokkeslæt for hvornår feltet er opdateret.

Dvs. at hvis du placerer Excel som genvej i din startmappe, således at Excel starter op sammen med opstarten af din PC, så kan du via makro og noget kode, få registreret starttidspunktet hver arbejdsdag - og via makro og kode kan du "nøjes" med at trykke på en knap i dit Excel ark inden du lukker dette om aftenen, således at også tidspunktet for arbejdstidsophør registreres.

Kunne dette være en brugbar løsning for dig?

Be_Nice
Avatar billede sjh Nybegynder
23. oktober 2007 - 01:32 #3
Ellers kan du bare gøre sådan.. start programmet op sammen med computeren.. og så lukker wondows selv programmet når du lukker computeren.


Option Explicit

Private mstrFilename As String

Private Sub Form_Load()
Dim intFree As Integer
Dim blnExists As Boolean

  mstrFilename = "C:\test.csv"

  blnExists = Dir(mstrFilename) = ""

  intFree = FreeFile
  Open mstrFilename For Append As #intFree
    If blnExists Then
      ' Udskriver header for csv-file
      Print #intFree, "Handling;Dato"
    End If
    ' Udskriver start i csv-file
    Print #intFree, "start;" & Now
  Close #intFree

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim intFree As Integer

  intFree = FreeFile
  Open mstrFilename For Append As #intFree
    ' Udskriver slut i csv-file
    Print #intFree, "stop;" & Now
  Close #intFree

End Sub
Avatar billede fajens Mester
23. oktober 2007 - 18:32 #4
Hej

tak for hurtig respons.

Det var noget i den retning, som sjh viser, jeg havde i tankerne, for der er lidt ideer at arbejde videre med.

men jeg afventer lige lidt om der er andre der han nogle andre ideer eller forslag.

/fajens
Avatar billede fajens Mester
25. oktober 2007 - 19:26 #5
Hej

sjh´s løsning virker fint, men jeg har tænk mig at lave det som et program der sarter med windows og logger klokken, og så lukker igen. Derudover vil jeg så lave et program til at lægge på skrivebordet som jeg så skal starte, og så logge tiden for derefter at lukke windows. Der bliver jo også lidt programmering vedr. at samle tiden op fra filen og lægge den sammen. men det finder jeg ud af, lige nu mangler jeg kun at finde ud af koden for at lukke windows fra et program.

sjh ligger du et svar.

/fajens
Avatar billede sjh Nybegynder
25. oktober 2007 - 22:22 #6
fajens.. øhh du behøver ikke lukke windows fra dit program, den skulle geren selv gemme det når du logger af eller lukker windows..
Avatar billede fajens Mester
26. oktober 2007 - 06:21 #7
sjh  det er fordi jeg ikke vil have programmet til at køre hele tiden, for hvergang den går i standby logger den en start tid når den starter igen

Så derfor vil jeg istedet for at bruge normal stop bruge et program til det. Det betyder også at jeg kan lave noget der kan registrere evt. projekttid, fravær om dagen.

/fajens
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester