Windows, Excelの記事一覧： Javaってまだいけますか

ＶＢＡで基数変換を作ったのでメモ。

'基数変換（１０進数からＮ進数へ変換）'
'@param value 変換元１０進数'
'@param radix 変換先基数'
Public Function RadixConversion(value As Long, radix As Integer)

    Dim remainder As Integer '剰余'
    Dim work As Double
    Dim result As String
    
    work = CDbl(value)
    
    Do While work > 0
        remainder = work Mod radix
        result = Mid("0123456789abcdefghijklmnopqrstuvwxyz", remainder + 1, 1) + result
        work = WorksheetFunction.Floor(work / radix, 1)
    Loop
            
    RadixConversion = result
End Function

使い方。

'9000を３６進数に変換'
RadixConversion(9000, 36)

ちなみに１６進まではExcel標準の関数でありますね。

Execlで勤務時間の計算

A 出社時刻 9:30
B 退社時刻 18:30
C 休憩 1:00

とすると、
B-A-Cでその日の稼働時間が出ます。

上の例だと
18:30 - 9:30 - 1:00 = 8:00

これを毎日分合計して1ヶ月の稼働時間を算出しようとして結果のセルの書式を「数値」などにすると、8:00は0.33333と表示されます。
これは8÷24の結果、つまり1日に対する比率になるみたいです。
なので、これに24をかけると8.0ｈとなるのでSUMで集計して目的の時間が得られました。