Inclure formule format date en VBA

Bonjour à tous,

J'aimerais savoir si il est possible d'inclure directement une formule sur le format date en vba.

Explication:

Actuellement, j'ai un formulaire dans lequel il y a un textbox qui récupère directement l'heure et la date du jour.

TextBox1.Value = Format(Now, "dd-mm-yyyy  hh:mm")

Mais moi, j'ai besoin que si l'heure est est en dessous de 7h00 alors il indique la date de la veille .

exemple: si nous sommes ==>

le 24-06-20 12h00 = 24-06-20

le 26-06-20 2h00 = alors 25-06-20 car il n'est pas encore 7h00 du matin.

le 26-06-20 6h59= 25-06-20 mais si 26-06-20 à 7h01 alors = l'indication doit être =26-06-20

Actuellement j'utilise une formule excel directement dans mon tableau mais qui pose des fois problèmes :

=SI(HEURE(N3)<7;N3-1;N3)

Je voudrais pouvoir l'intégrer directement en vba, si cela est possible ???

D'avance merci pour vos conseils

Bonjour,

Un exemple :

TextBox1.Value = IIf(Time < CDate("07:00:00"), Format(Now - 1, "dd-mm-yyyy  hh:mm"), Format(Now, "dd-mm-yyyy  hh:mm"))

Ou plus simple à comprendre :

Dim strTemps As String
If Time < CDate("07:00:00") Then
   strTemps = Format(Now - 1, "dd-mm-yyyy  hh:mm")
Else
   strTemps = Format(Now, "dd-mm-yyyy  hh:mm")
End Sub
TextBox1.Value = strTemps

Le résultat est le même...

Bonjour,

Une piste :

TextBox1.Value = Format(Now-7/24, "dd-mm-yyyy")

Un très très grand merci !!!

Rapide est très efficace !

Merci pour l'aide