Лингрин :: Резиденция Линды Кайе — @дневники: асоциальная сеть

среда, 12 ноября 2008

17:12

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3030-10-45
#original-date: 11.11.2008 Tue
#original-time: 10:45 AM
#original-day: 3030
#original-host: Win98SE

Родители имеют одну крайне неприятную черту. Они всегда уверены что знают лучше, чем их дети, будь они академики за 50. А ещё они любят всё воспринимать в контексте вины отпрысков. Например, прошло сокращение, дитятко вполне взрослое и самостоятельное попало под него. Что делают родители? Начинают винить во всём дитятко, выходя за пределы всякой логики.

Или вот свежий пример. Нужно лететь домой. Звоню, отмечаюсь, мне сообщают, что вертолёт будет, но я на него не попадаю, а попадаю на завтрашний. Ну, всё, звоню маме. Мама на дыбах, начинает яростно сообщать мне что вообще завтра погода плохая и не понятно о чём я вообще думаю, и вообще почему я не уточнила, и как так можно, ну и всё в таком духе. Только что сама позвонила, её сказали тоже самое, она ведь даже не извинилась. Ну правильно, я ведь всё равно виновата!

Заипало уже >_<

URL

17:12

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3030-09-55
#original-date: 11.11.2008 Tue
#original-time: 9:55 AM
#original-day: 3030
#original-host: Win98SE

Вспомнилось...

Говорят, что в чёрных дырах материя находися в сжатом состоянии, как в архиве. Говорят, что материя берётся из нашей вселенной, значит чёрная дыра - бэкап вселенной. А потом придёт мегаадмин и развернёт быэкап. Главное чтобы не на нашу базу ^^

URL

17:12

Тотальная неудачница и убийца жёстких дисков.

#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, исходник уже где-то был ^^' */

URL