MS-DOS Systemzeit nach Excel importieren

Forumthread: MS-DOS Systemzeit nach Excel importieren

31.03.2009 16:06:01

westcasio@web.de

Hallo Leute,
gibt es einen FAQ darüber, wie man aus MS DOS die aktuelle Zeit z. B. beim Systemstart und -ende in eine Excel-Liste überträgt, wenn möglich automatisch. Ich vergessen jeden Tag mir meinen Arbeitszeiten zu merken. Vielen Dank im Voraus.
Gruß westcasio

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MS-DOS Systemzeit nach Excel importieren

31.03.2009 16:55:36

Tino
AW: MS-DOS Systemzeit nach Excel importieren

31.03.2009 17:05:06

ransi
@ransi

31.03.2009 17:22:26

Tino
AW: @ransi

31.03.2009 17:32:59

ransi
AW: @ransi

31.03.2009 17:48:21

Tino

AW: MS-DOS Systemzeit nach Excel importieren

31.03.2009 16:55:36

Tino

Hallo,
ich weis nicht mehr genau wann ich meinen PC heute Morgen gestartet habe,
aber ich meine dass es so stimmt.

'GetTickCount = Millisekunden seit dem Windows-Start 
'Timer = vergangene Zeit seit Mitternacht 
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Timer1_Timer()
    Dim SystemStart As Date
    Dim MS As Double
    MS = GetTickCount() / 1000
    SystemStart = Format(Timer / 86400 - MS / 86400, "hh:mm:ss")
    MsgBox "Systen wurde um " & SystemStart & " gestartet"
End Sub

Gruß Tino

AW: MS-DOS Systemzeit nach Excel importieren

31.03.2009 17:05:06

ransi

HAllo
Ich habe keine Ahnung ws du hiermit:
wie man aus MS DOS die aktuelle Zeit..
meinst.
Seit wann angemeldet geht auch so:

Public Sub test()
Dim LoginProfiles
Dim Profil
Dim a
Set LoginProfiles = GetObject("winmgmts:").InstancesOf("Win32_NetworkLoginProfile")
For Each Profil In LoginProfiles
    a = Profil.lastlogon
    If a <> "" Then
        MsgBox Profil.Name & vbCrLf & _
            Mid(a, 7, 2) & "." & Mid(a, 5, 2) & "." & Mid(a, 1, 4) & " " & _
            Mid(a, 9, 2) & ":" & Mid(a, 11, 2) & ":" & Mid(a, 13, 2)
    End If
Next
End Sub

ransi
ransi

@ransi

31.03.2009 17:22:26

Tino

Hallo,
kommt ja meiner Zeit fast gleich bis auf bis auf 20 Sekunden Versatz,
kommt wohl daher dass Deine Zeit die Anmeldezeit und meine die Windowsstartzeit ist.
Zumindest bin ich jetzt ziemlich sicher das meine Formel funzt, da hatte ich noch meine bedenken. ;-)
Gruß Tino

AW: @ransi

31.03.2009 17:32:59

ransi

OOOOPs
Hatte ich nicht richtig gelesen.
Klar, Anmeldezeit ist >Systemstartzeit.
Da berummst LastLogon den Nutzer ja täglich um ca. 20 Sekunden ;-)
Noch ne Alternative:
Deine LogDatei in den Autostartordner und ausblenden.
Im WorkBook_Open die Zeit in eine Zelle schreiben.
Im Workbook_BeforeClose die Zeit in eine andere Zelle schreiben.
ransi

AW: @ransi

31.03.2009 17:48:21

Tino

Hallo,
kommt darauf an, wenn sein Rechner immer ausgeschaltet wird ist meine genauer.
Wird die Anwendung nur abgemeldet, funzt nur Deine Version.
Wenn ich wählen müsste, würde ich mich für Deine entscheiden. ;-)
Gruß Tino

Beliebteste Forumthreads (12 Monate)

MS-DOS Systemzeit nach Excel importieren

Forumthread: MS-DOS Systemzeit nach Excel importieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread