Option Explicit
'60進を10進へ変換
Sub TimeToDec()
Const strWk = "155:45"
Dim varTmp As Variant
varTmp = Split(strWk, ":")
'時間に変換して求める。
MsgBox TimeSerial(varTmp(0), varTmp(1), 0) * 24
' or
'数値で計算して求める。
MsgBox varTmp(0) + (varTmp(1) * 60 / 3600)
End Sub
'10進を60進へ変換
Sub DecToTime()
Const strWk = "155.75"
Dim varTmp As Variant
varTmp = Split(strWk, ".")
'Excelの関数を使用して求める。
MsgBox Application.WorksheetFunction.Text(strWk / 24, "[h]:m")
' or
'数値で計算して求める。
MsgBox varTmp(0) & ":" & Format((varTmp(1) / 100 * 60), "00")
End Sub
備えあれば憂いなし
ソニーは26日、スマートフォンを約8回充電可能なモバイルバッテリー「CP-B20」を
7月20日より発売することを発表した。
「CP-B20」はスマートフォンの充電約8回分に相当する、容量20,000mAhで、
出力最大5V/6.9Aの携帯型リチウムイオンポリマーバッテリー。
本体には、USB出力ポートを4基搭載し、4台の機器を同時に充電することができる。
本体の充電は同梱のACアダプターかUSB機器から行う。また、本体の充電中にも、
ほかの機器へ給電することが可能となっている。
【梱包サイズ60】【USBポータブル電源】【スマートフォンを約8回分充電可能】【7月20日発売】SO... |