请教高手--计算计算机一月内开机时间

Question

我们宿舍三台电脑,为了均分一个月的用电量,我想设计一个程序计算在一个月内的用电时间.若那位高手能解决此问题,70分赠送!

Answer 1

两个变量存放几点几分。用timer控件，判断整点的时候，点+1，整分的时候，分+1。可以写到一个文本文件里，开始运行时先读文件初始化变量，退出时（关机时）写文件。为防止意外，最好很短的时间就写一次文件，这样即使突然停电，误差也很小。改注册表使程序开机自动运行。

Answer 2

哦，这个不对，应该是开机时取得系统时间分别取得点hour(now)和分minute(now)，每隔一段时间判断如果hour(now)改变，点+1；如果minute(now)改变，分+1

Answer 3

还是不对，晕~，只要1个变量存放几分钟就可以了。每隔几秒判断，如果minute(now)改变，分+1，可以得到总的分钟数，最后再换算成几小时几分。

Answer 4

'GetTickCount函数声明
Private Declare Function GetTickCount Lib "kernel32" () As Long
'************************************************************
'得到系统运行时间
Public Function GetRunTime() As String
    Dim RunTime As Long
    Dim Hour As Long '时
    Dim Minute As Long '分
    Dim Second As Long '秒
    '获得总共运行的秒数
    RunTime = GetTickCount() \ 1000
    '获得运行的小时数
    Hour = RunTime \ 3600
    '获得运行的分数
    RunTime = RunTime - 3600 * Hour
    Minute = RunTime \ 60
    '获得运行的秒数
    Second = RunTime - 60 * Miunte
    'MsgBox GetRunTime=Str(Hour) + Str(Minute) + Str(Second)
    GetRunTime = "计算机启动了:" & Str(Hour) & "小时" & Str(Minute) & "分钟" & Str(Second) & "秒"
End Function
'************************************************************

Answer 5

用楼上的函数
定义一个变量来记录系统运行的总时间  比如 allTime
系统开机时load 以前运行的时间
然后用一个Timer 
alltime=alltime+ GetRunTime
不断写入文件

Answer 6

我有更牛比的：    不但可以实现所需功能，并且再win2000/xp下你还杀不死计时的进程。