#post-id: 3030-08-08
#original-date: 11.11.2008 Tue
#original-time: 8:08 AM
#original-day: 3030
#original-host: Win98SE

Option Explicit

Declare Function GetCurrentTime Lib "User" () As Long
Declare Function GetTickCount Lib "User" () As Long

'=========================================================
Function GetDays (ByVal Days As Integer) As String
  If Days = 0 Then Exit Function
  
  Select Case Days
    Case 1, 21, 31, 41, 51, 61
      GetDays = Days & " день, "
    Case 2, 3, 4, 22, 23, 24, 32, 33, 34, 42, 43, 44, 52, 53, 54, 62, 63, 64
      GetDays = Days & " дня, "
    Case Else
      GetDays = Days & " дней, "
  End Select
End Function

'=========================================================
Sub Main ()
  Dim TC As Long
  Dim Days As Integer
  Dim Hours As Integer
  Dim Minutes As Integer
  Dim Seconds As Integer
  Dim MSeconds As Integer
  Dim TXT As String
  
  Const MS_PER_SECOND& = 1000&
  Const MS_PER_MINUTE& = MS_PER_SECOND * 60&
  Const MS_PER_HOUR& = MS_PER_MINUTE * 60&
  Const MS_PER_DAY& = MS_PER_HOUR * 24&
  
  '=======================================================
  TC = GetTickCount()
  '[DEBUG]TC = TC + 16 * MS_PER_DAY
  
  '=======================================================
  Days = TC \ MS_PER_DAY
  TC = TC - (Days * MS_PER_DAY)
  
  Hours = TC \ MS_PER_HOUR
  TC = TC - (Hours * MS_PER_HOUR)
  
  Minutes = TC \ MS_PER_MINUTE
  TC = TC - (Minutes * MS_PER_MINUTE)
  
  Seconds = TC \ MS_PER_SECOND
  TC = TC - (Seconds * MS_PER_SECOND)
  
  MSeconds = TC
  
  '=======================================================
  TXT = Hours & ":" & Format(Minutes, "00") & ":" & Format(Seconds, "00") & "." & MSeconds
  TXT = GetDays(Days) & TXT
  TXT = "Windows в работе: " & TXT
  
  MsgBox TXT, MB_ICONINFORMATION
End Sub

/* Просто так ^^' Жаль только что VB3 не поддерживает условную компиляцию, а то бы без проблем сделала бы кроссплатформенную вещь и компилировала бы также под Win32 ^^ Хотя есть мысль сделать парсер...

О! Судя по readme, исходник уже где-то был ^^' */

Смотрите также