How to convert Time in Excel to text ?

[kctvt]

 

Hi everybody, I have problem when convert Time in Excel to text. So, i need help. 

This is my code : 

 

Spoiler

$LastTime = _Excel_RangeRead($oWorkbook, Default, "B"&$LastRow)
MsgBox($MB_SYSTEMMODAL, "", "Last time is : " & $LastTime)

 

My last time in excel is : 08:37:00

But, MsgBox show : "0.35902777777777778"

....

So, how to convert Time in Excel to text 08:37:00 in MsgBox ?

 

[water]

You will find a description plus a conversion function in the wiki:
https://www.autoitscript.com/wiki/Excel_UDF#Date_and_Time

[kctvt]

50 minutes ago, water said:

You will find a description plus a conversion function in the wiki:
https://www.autoitscript.com/wiki/Excel_UDF#Date_and_Time

Hi Water , I used this code, it worked   Thanks    

 

Spoiler

#include <Date.au3>
$nExelDateTime = 42567.25
ConsoleWrite(_ConvertSerialDateTime($nExelDateTime) & @CRLF)

Func _ConvertSerialDateTime($nDT)
    Local Const $dtExcel = '1899/12/31 00:00:00'
    Local $iDate = Int($nDT) - 1 ; Adjusted after reading wiki and why result is 1 day to much: http://www.cpearson.com/excel/datetime.htm
    Local $iTime = Mod($nDT, 1)
    $iTime = Int(24 * 3600 * $iTime)
    $dtRes = _DateAdd('D', $iDate, $dtEXcel)
    $dtRes = _DateAdd('s', $iTime, $dtRes)
    Return $dtRes
EndFunc

 

[water]

Glad you liked the solution