Calcul temporel

[tbft]

Bonjour

j'ai écris la fonction suivante:

Public Function est_au_pas(heure, intervale, debut) As Boolean
Dim tp As Variant
  tp = DateDiff("s", debut, heure) / (intervale * 60 * 60 * 24)
  If (Int(tp) = tp) Then est_au_pas = True Else est_au_pas = False
End Function

Je ne comprend pas pourquoi quand je l'appel ainsi elle me renvoi faux

  h2 = est_au_pas(#1/31/2013 11:10:00 PM#, #12:10:00 AM#, #1/1/2013#)

tp issue du calcul du delta de date est un entier mais le test int(tp)=tp renvoi faux

quelqu'un peut me dire ou est ma boulette et comment la corrigé, svp?

D'avance merci

 

[tbft]

Re : Calcul temporel

Bonjour

Pour ceux que ça intéresse, je n'ai pas trouvé pourquoi cela ne fonctionné pas.
Mais en reformulant mon test, j'obtiens le resultat escompté.

Public Function est_au_pas(heure, intervale, debut) As Boolean
Dim delta As Long
  delta = DateDiff("s", debut, heure)
  If (delta Mod (intervale * 60 * 60 * 24)) = 0 Then est_au_pas = True Else est_au_pas = False
End Function