勤怠打刻システムより勤怠データを取り出すと10進法で出力されます。
60進法へ変換するエクセル関数をご教示いただけませんでしょうか。

【例】10進法⇒60進法へ変換したい。
5.233333⇒5.14
8.783334⇒8.47

時間表示は「:(コロン)」ではなく「.(小数点)」で表示させたいです。

また上記と逆に、60進法⇒10進法に変換する関数も教えていただけると大変ありがたいです。

どうぞよろしくお願いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (6件)

◆すでに、shikisaitoさんが回答済みでした。

ごめんなさい
    • good
    • 7

◆こんな方法もありますよ


=TEXT(A1/24,"h.m")*1
    • good
    • 20

元データがA1として、



10進→60進
=TRUNC(A1)+(A1-TRUNC(A1))*60/100

60進→10進
=TRUNC(A1)+(A1-TRUNC(A1))*100/60

INTとどこがちがう?
負数の場合に違ってくるが、負数になることはないか。
    • good
    • 7

10進法⇒60進法 : =TEXT(A1/24,"h.mm")*1


60進法⇒10進法 : =INT(A1)+MOD(A1,1)/0.6
    • good
    • 13

A1のセルの数値を変換するとしたら



10進法⇒60進法
=INT(A1)+(A1-INT(A1))*60/100

60進法⇒10進法
=INT(A1)+(A1-INT(A1))*100/60

こんな方法で良いのでしょうか?。
    • good
    • 5

5.233333⇒5.14


8.783334⇒8.47

これは、
=INT(A1)+ROUND(60*MOD(A1,1),0)/100

逆に、60進法⇒10進法に変換する関数
=INT(A1)+MOD(A1,1)*100/60
    • good
    • 7

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q(続)エクセルでVBAを使い、時間入力10:30:45(10時30分45秒)の:コロン省略したい。

始業と終業の時間を入力し勤務時間を計算しております。
時間は時:分:秒まで入力します。
例えば始業時間はA1に8:30:25 、終業時間はB1に17:00:45と入れております。
コロン(:)を省略できるととても楽になります。8:30:25は83025と入力、17:00:45は170045と入力して、
表示にはコロンが入り、セルの書式としては時刻と認識し時間差を(時間:分:秒)と計算出来ればありがたいです。
よろしくお願い致します。

VBAを使った(時間:分)のコロンを入力しないで、かつ表示にはコロンが入り、セルの書式としては時刻と認識し時間計算が出来る例は検索できました。
下記です。 t****さんありがとうございました。
ですがそれを秒まで拡大し(時間:分:秒)に対応できるVBAに変更できず困っております。
何卒よろしくお願い致します。

-----------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Range("A:B")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Value <> "" Then
If IsNumeric(.Value) Then
If .Value < 2400 And .Value Mod 100 < 60 Then
Application.EnableEvents = False
.Value = TimeSerial(Int(.Value / 100), .Value Mod 100, 0)
.NumberFormatLocal = "h:mm"
Application.EnableEvents = True
Else
MsgBox "入力値が不正です"
.Select
.ClearContents
End If
End If
End If
End With
End Sub 'この行まで
-----------------------------------------------------------------------------

始業と終業の時間を入力し勤務時間を計算しております。
時間は時:分:秒まで入力します。
例えば始業時間はA1に8:30:25 、終業時間はB1に17:00:45と入れております。
コロン(:)を省略できるととても楽になります。8:30:25は83025と入力、17:00:45は170045と入力して、
表示にはコロンが入り、セルの書式としては時刻と認識し時間差を(時間:分:秒)と計算出来ればありがたいです。
よろしくお願い致します。

VBAを使った(時間:分)のコロンを入力しないで、かつ表示にはコロンが入り、セ...続きを読む

Aベストアンサー

変換ロジックを関数化して実装してみました。
「8:30:25」「83025」どちらの入力でも対応できているはずです。
ちなみに、2未満を入力すると日とみなし、2以上を入力すると秒とみなして表示されます(この辺はやってみて下さい)。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Range("A:B")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Value <> "" Then
Application.EnableEvents = False
.Value = MyTimeValue(.Value)
If .Value = "" Then
MsgBox "入力値が不正です"
.Select
Else
.NumberFormatLocal = "[h]:mm:ss"
End If
Application.EnableEvents = True
End If
End With
End Sub 'この行まで

Function MyTimeValue(MyTime As Variant) As Variant
Dim t As Variant
Dim d As Variant
If IsNumeric(MyTime) And MyTime < 2 Then
MyTimeValue = MyTime
Exit Function
End If
On Error GoTo Fin
t = Split(Format(MyTime, "000:00:00"), ":")
d = Int(t(0) / 24)
t(0) = t(0) Mod 24
MyTimeValue = d + TimeSerial(t(0), t(1), t(2))
Fin:
End Function

変換ロジックを関数化して実装してみました。
「8:30:25」「83025」どちらの入力でも対応できているはずです。
ちなみに、2未満を入力すると日とみなし、2以上を入力すると秒とみなして表示されます(この辺はやってみて下さい)。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Range("A:B")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Value <> "" Then
Application.EnableEvents = False
.Value = ...続きを読む

Qエクセルで10進法から60進法に変換する方法

エクセルで10進法から60進法に変換する方法を教えてください。
たとえば、31.7041667という数字があったとして、それが31度42分15秒という角度に変換したいのです。関数電卓では簡単にできるのですが、エクセルでの方法、また関数などあったら教えてください。

Aベストアンサー

ちょっと裏技的ですが。

1.31.7041667を24で割ります。
2.セルの書式設定でユーザー定義を選び、
[h]度mm分ss秒
と入力します。

以上です。

QExcelでの変換(数値⇒10進法表記へ)

Excelで勤怠管理をしています。
月単位で集計をしているのですが、
9.30【数値】(意味:9時間30分)⇒9.5(10進法)で表示させたいのですが、
----------------------------------------------------------------
▼操作手順:時間を10進法表示する
(A1セルに「9:30」と入力されていてB2セルで「9.5」と表示する例)
B2セルに「=A1*24」と入力し[Enter]キーを押す
 ↓
B2セルの表示形式を「標準」にする
----------------------------------------------------------------
上記の方法ですと、セルの書式設定⇒表示形式が時刻になっている場合は
10進法で表示されますが。。
セルの書式が数値(又は標準)の際には適用されないようです。

※セルの書式が数値(又は標準)の場合に10進法で表示させる
 方法があれば教えてください。よろしくお願い致します!

Aベストアンサー

=INT(A1)+(A1-INT(A1))*5/3

QEXCELで、60進法の緯度経度を10進法に変換

EXCELで、60進法の緯度経度を10進法に変換する計算式を
教えて頂けませんでしょうか?

A列には60進法の数値(43.03.41.13)が入っております。
これを10進法に変換してB列に(43.061425)というように自動で
算出されるようにしたいのですが
どのような計算式を入れれば求められるのでしょうか?

よろしくお願い致します。

Aベストアンサー

>60進法の数値(43.03.41.13)
この表示の仕方がおかしいと思うが、43°03′41.13″
のこととすれば、
=MID(A1,1,2)+MID(A1,4,2)/60+MID(A1,7,5)/(60*60)
で、
43.061425
にはなるが。

Qn進法の変換

数字の0~9および英字のA~Z(OおよびIをのぞく)の34文字を使用した34進法の4桁の数字を10進法への変換方法、およびその逆(10進法→34進法)の変換方法をエクセルの計算式またはマクロを使用し作成する方法を教えてください。

Aベストアンサー

ベタに書けばこのような式で表せます。A1に値を入れて、

34進→10進
=(SEARCH(LEFT(A1,1),"0123456789ABCDEFGHJKLMNPQRSTUVWXYZ")-1)*34^3+(SEARCH(MID(A1,2,1),"0123456789ABCDEFGHJKLMNPQRSTUVWXYZ")-1)*34^2+(SEARCH(MID(A1,3,1),"0123456789ABCDEFGHJKLMNPQRSTUVWXYZ")-1)*34+(SEARCH(RIGHT(A1,1),"0123456789ABCDEFGHJKLMNPQRSTUVWXYZ")-1)

10進→34進
=MID("0123456789ABCDEFGHJKLMNPQRSTUVWXYZ",INT(A1/34^3)+1,1)&MID("0123456789ABCDEFGHJKLMNPQRSTUVWXYZ",INT(MOD(A1,34^3)/34^2)+1,1)&MID("0123456789ABCDEFGHJKLMNPQRSTUVWXYZ",INT(MOD(A1,34^2)/34)+1,1)&MID("0123456789ABCDEFGHJKLMNPQRSTUVWXYZ",MOD(A1,34)+1,1)

冗長な部分はセルに定数を埋め込むなどをして、式の簡略化をしてください。

ベタに書けばこのような式で表せます。A1に値を入れて、

34進→10進
=(SEARCH(LEFT(A1,1),"0123456789ABCDEFGHJKLMNPQRSTUVWXYZ")-1)*34^3+(SEARCH(MID(A1,2,1),"0123456789ABCDEFGHJKLMNPQRSTUVWXYZ")-1)*34^2+(SEARCH(MID(A1,3,1),"0123456789ABCDEFGHJKLMNPQRSTUVWXYZ")-1)*34+(SEARCH(RIGHT(A1,1),"0123456789ABCDEFGHJKLMNPQRSTUVWXYZ")-1)

10進→34進
=MID("0123456789ABCDEFGHJKLMNPQRSTUVWXYZ",INT(A1/34^3)+1,1)&MID("0123456789ABCDEFGHJKLMNPQRSTUVWXYZ",INT(MOD(A1,34^3)/34^2)+1,1)&MI...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報