将秒转换为年、天、小时、分钟、秒 [英] Converting Seconds to Years, days, hours, min, secs

问题描述

我有很多东西可以将秒转换为小时、分钟和秒.

I have this much to convert seconds to hours, minutes, and seconds.

我需要让它工作多年，甚至几天.

I need to make it work for years, and days too.

有人可以帮忙吗?

Dim mHours As Long, mMinutes As Long, mSeconds As Long
mSeconds = 12345 ' Sample data
mHours = mSeconds \ 3600
mMinutes = (mSeconds - (mHours * 3600)) \ 60
mSeconds = mSeconds - ((mHours * 3600) + (mMinutes * 60))
MsgBox mHours & ":" & mMinutes & ":" & mSeconds

推荐答案

Dim mHours As Long, mMinutes As Long, mSeconds As Long, mDays as Long, mYears as Long
mSeconds = 12345 ' Sample data
mHours = mSeconds / 3600
mMinutes = (mSeconds - (mHours * 3600)) / 60
mSeconds = mSeconds - ((mHours * 3600) + (mMinutes * 60))
MsgBox mHours & ":" & mMinutes & ":" & mSeconds
mDays = mSeconds / 86400
mYears = mSeconds / 31557600 

我假设每年有 365.25 天

I am assuming each year has 365.25 days

这篇关于将秒转换为年、天、小时、分钟、秒的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！