August 18, 2001

TimeToSeconds – Convert a time value into a number of seconds

‘ Converts a time value to a numeric value in seconds’ Example:’ MsgBox TimeToSeconds(TimeSerial(3, 5, 20)) –> 11120Function TimeToSeconds(ByVal newTime As Date) As Long TimeToSeconds = Hour(newTime) * 3600 + Minute(newTime) * 60 + Second _ (newTime) End Function

FormatDateTimeEx – Extended formatting for date and time values

Enum DateTimeFormat dtGeneralDate dtLongDate dtMediumDate dtShortDate dtLongTime dtMediumTime dtShortTime dtCustomEnd Enum’ Enhanced VB FormatDateTime functionFunction FormatDateTimeEx(newDate, Optional ByVal dtFormat As DateTimeFormat = _ dtGeneralDate, Optional FirstDayOfWeek As VbDayOfWeek = vbSunday, _ Optional FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1) ‘ Select the right formatting function Select Case dtFormat Case dtGeneralDate FormatDateTimeEx =

SecondsToString – Convert a number of seconds into a formatted time string

‘ Converts a numeric value in seconds to a string’ Example:’ MsgBox SecondsToString(3920) –> 1h.5m.20sFunction SecondsToString(ByVal Seconds As Long) As String SecondsToString = (Seconds 3600) & “h.” & ((Seconds 60) Mod 60) & “m.” _ & (Seconds Mod 60) & “s.” End Function

TimeToMinutes – Convert a time value into a number of minutes

‘ Converts a time value to a numeric value in minutes’ Example:’ MsgBox TimeToMinutes(TimeSerial(3, 5, 0)) –> 185Function TimeToMinutes(ByVal newTime As Date) As Long TimeToMinutes = Hour(newTime) * 60 + Minute(newTime) End Function

GetBatteryTime – Get the life time of a notebook’s battery

Private Declare Function GetSystemPowerStatus Lib “kernel32” _ (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As LongPrivate Type SYSTEM_POWER_STATUS ACLineStatus As Byte BatteryFlag As Byte BatteryLifePercent As Byte Reserved1 As Byte BatteryLifeTime As Long BatteryFullLifeTime As LongEnd Type’ Get the life time of a notebook’s battery.’ Returns -1 if the computer is not a notebook