将浮点值转换为小时和分钟

Question

我有float值，例如0.999888，我从SQL数据库获取。

我在vbscript中有一个变量，从SQL分配给float值。

让我们说我有这个，例如

Dim TimeInFloat
TimeInFloat = 0.999888 

我想将它转换为SQL本身或VBscript中的小时和分钟。

有什么建议吗？

Answer 1

您可以通过执行以下操作将其转换为SQL中的小时和分钟：

select floor(TimeInFloat * 24) as hours,
       60 * (TimeInFloat * 24 - floor(TimeInFloat * 24)) as minutes

您可以在VBA中执行类似的逻辑。

Answer 2

在VBScript中，CDate函数允许您将float / double转换为time：

>>> WScript.Echo CDate(0.999888)
23:59:50