これらの次の方法を試してください。
DAYS = Format(Int([Expr3]/86400), "00") - will correctly display days
HOURS = Format(Int(([Expr3])/3600) - ((Int([Expr3]*86400)/3600), "00") - DOES NOT CORRECTLY display correct hours
HOURS = Format(Int([Expr3]/3600),"00") - What will display hours
MINUTES = Int(([Expr3]-(Int([Expr3]/3600)*3600))/60)
SECONDS = Format((([Expr3] Mod 60)),"00")
dTotalSeconds = DateDiff("S", Now(), dChristmasDate)
iDays = Int(dTotalSeconds / 86400)
iHours = Int((dTotalSeconds Mod 86400) / 3600)
iMinutes = Int(((dTotalSeconds Mod 86400) Mod 3600) / 60)
iSeconds = ((dTotalSeconds Mod 86400) Mod 3600) Mod 60
' この関数を使用すると、分を hh:mm:ss に変換できます
Public Function HMStoSec(strHMS As String) As Long
HMStoSec = Split(strHMS, ":")(0) * 3600 + _
Split(strHMS, ":")(1) * 60 + _
Split(strHMS, ":")(2)
End Function