OVH Cloud OVH Cloud

URGENT : problème de date

1 réponse
Avatar
C. Vidal
Bonjour à tous,
Je viens vers vous une nouvelle fois. J'ai un contrôle dans mon application
qui me renvoie le nombre de jours écoulés depuis le 1er janvier 1900 (et je
dis bien 1900).
Comment faire pour tranformer ce nombre de jours en date sous la forme jour,
mois, année?
J'ai regardé à peu près touts les fonctions sur les dates, mais rien ne
fonctionne ou correspond à ce que je veux.
Auriez vous une idée?
J'ai bien pensé à écrire ma propre fonction, mais je ne sais pas comment
traiter les années bissextiles...

Merci pour votre aide

C. Vidal

1 réponse

Avatar
Isabelle Prawitz
Bonjour !
DateAdd devrait t'aider !
Dim nbJours As Int64 'que tu initialises avec la valeur de ton contrôle

Dim maDateFinale As Date

Dim laDateInit As Date

laDateInit = DateSerial(1900, 1, 1)

maDateFinale = DateAdd(DateInterval.Day, nbJours, laDateInit)



A+

Isa

"C. Vidal" a écrit dans le message de news:
Bonjour à tous,
Je viens vers vous une nouvelle fois. J'ai un contrôle dans mon application
qui me renvoie le nombre de jours écoulés depuis le 1er janvier 1900 (et je
dis bien 1900).
Comment faire pour tranformer ce nombre de jours en date sous la forme jour,
mois, année?
J'ai regardé à peu près touts les fonctions sur les dates, mais rien ne
fonctionne ou correspond à ce que je veux.
Auriez vous une idée?
J'ai bien pensé à écrire ma propre fonction, mais je ne sais pas comment
traiter les années bissextiles...

Merci pour votre aide

C. Vidal