Discussion :

[soazig]

Bonjour ,
Je cherche à supprimer les indications d'heure d'une date time.
exemple 24/12/2005 16:18:25 ->24/12/2005 00:00:00
Je n'ai pas trouvé de fonction toute faite, donc j'en ai fait deux.
Laquelle préférez vous?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Function TronqueDate(ByVal DtmATronquer As Date) As Date
TronqueDate = CDate(DateSerial(Year(DtmATronquer), Month(DtmATronquer), Day(DtmATronquer)))
End Function

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Function TronqueDate1(ByVal DtmATronquer As Date) As Date
TronqueDate1 = CDate(Int(DtmATronquer))
End Function

Si vous avez mieux à proposer, faites donc!

Merci
Soazig

[bidou]

La deuxième

[random]

à mon avis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Function TronqueDate1(ByVal DtmATronquer As Date) As Date 
TronqueDate1 = int(DtmATronquer) 
End Function

est plus court et largement suffisant

[soazig]

Bonjour,

il devrais rajouter un &" 00:00:00"

Pas il, elle!!
Et non ce n'est pas la peine, l'idée de tronquedate1 est qu'une date est stockée comme un réel dont la partie décimale est la fraction de jour donc eles heures minute, par conséquent, lorsqu'on supprime les décimales, on se trouve avec la même date mais à minuit.

Je ne pensais pas déchainer les foules comme cela.
Remarque j'ai testé mes solutions avant de poster quand même.

A+
Soazig

[random]

Je pensait que la fonction integer ne s'apliquais qu'aux valeurs numériques On en apprent tous les jours.
par contre, il devrais rajouter un &" 00:00:00"

une date est une grandeur numérique
je n'ai nul besoin de rajouter 00:00:00
en effet 00:00:00 est une valeur numérique de grandeur 0
il se trouve par un curieux hasard que le zéro est neutre par rapport à
l'addition et que rajouter zéro à une grandeur numérique est une tache
inutile (je n'ose pas dire un travail de bénédictin frère méphisto"
teste la séquence suivante dans la fençetre d'éxécution
print now()
print int(now())
print hour(now)
print hour(int(now))
print isnumeric(now()) pardon bill mais là tu te plantes


plus fun

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function TronqueDate1(ByVal DtmATronquer As Date) As Date 
TronqueDate1 = DtmATronquer\1 
End Function

[Igloobel]

Bonjours à tous,

Pouvez m'expliquer pourquoi un simple format ne conviendrait pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test_date()
    Dim my_date As Date
    my_date = Now
    my_date = Format(my_date, "yyyy/mm/dd")
End Sub

Le format (il me semble) met en forme la date indépendemment de la forme de date qui est configurée sur le serveur

Il me semble que des comparaisons ou des calcul ou des tris doivent suivre car si on ne fais rien je vois pas l'utilité. C'est pourquoi j'avais proposé ma solution en me disant si dans le code qui précede on prend la date système et qu'ensuite il faille tronqué la date il me semblait plus simple de prendre directement que la date : "Date".

Alors bien évidemment si on récupère une date complète qui n'est pas la date système, dans ce cas est-ce que format ne suffirait pas?

Si je me trompe, merci de me le dire gentiment et pouquoi ?

Igloobel

[random]

format renvoie un variant qui n'est pas nécessairement reconnu comme une date
essaie voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Function theur()
Dim x As Variant
x = Now()
MsgBox (VarType(x))
x = Format(x, "yyyy/mm/dd")
MsgBox (VarType(x))
theur = x
End Function

ta variable est passée de date à texte

[Igloobel]

Je viens de tester ce que tu dis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test_date()
    Dim my_date As Date
    my_date = Now
    my_date = Format(my_date, "yyyy/mm/dd")
    MsgBox (VarType(my_date))
End Sub

le msgbox me dit 7 soit un type date ???????

Toi tu déclares ton type en variant et moi en date Est-ce pour cela?

Merci d'avance

Igloobel

[random]

oui c'est pour cela
en effet vb essaie de transposer la valeur à l'appel d'une fonction
de conversion
mail il plus simple de taper int(madate) ou madate\1 que
Format(my_date, "yyyy/mm/dd")
et de plus cela fonctionne dans tous les contextes et dans tous les pays

[soazig]

Je pense que je vais choisir soit la TronqueDate4 ou la TronqueDate1.
Vu que cela a l'air d'être celle la qui remporte les suffrages.

Merci à tous pour vos contributions.
Soazig