Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 19:12:28
Suche Formel für Monatsberechnung
10.05.2024 18:20:03
Status/Typ-Werte automatisch setzen in Abhängigkeit
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
10.05.2024 16:31:37
Wenn Zelle gleich Leer dann nicht 0
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MS-DOS Systemzeit nach Excel importieren

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

Anzeige
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
Anzeige
@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
Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige