vba excel - Comment obtenir le Nom du Jour de la Date?

J'ai un petit code qui récupère le Nom du Jour des Dates indiquées dans Excel. Mais le problème est, il n'est pas le bon Nom du Jour(par exemple le mardi).

Par Exemple:

sDayName = Format(Day(11/1/2016), "dddd")

Alors la sortie produit un Jour incorrect Nom qui est:

sDayName = "Sunday"

quand il est censé être "mardi".
Merci pour l'aide les gars.

  • avez-vous essayé sDayName = Format("11/01/2016", "dddd") ??
  • Supprimer la Day() partie, il n'est pas nécessaire
  • Vérifier documentation en ligne pour la fonction Format () où vous devriez trouver firstdayoftheweek paramètre
  • Merci Homme. Le problème est résolu. Merci de poster votre réponse afin que je puisse marquer comme correcte.
  • FWIW - Votre code a été d'essayer de trouver le Day de 5.45634920634921E-03, c'est à dire 11 divisé par 1, divisé en 2016. Comme 5.45634920634921E-03 est équivalent à une date/heure de 7:51am le 30 Décembre 1899, le Day est 30. Mise en forme 30 à l'aide d'un "dddd" format premières œuvres qu'une date de 30 représente 29 Jan 1900, qui est un lundi. Mais, à cause du bug dans Excel qui provoque à penser que 1900 était une année bissextile, ce est rapporté par Excel comme le dimanche.
InformationsquelleAutor bigbryan | 2016-11-03
  1. 6

    Pour vos demandes spécifiques, en supposant que votre chaîne de date est au format de votre région réglages:

        sDayName = Format("11/01/2016", "dddd")

    Si vous voulez le jour de la semaine pour aujourd'hui:

        sDayName = Format(Date, "dddd")

    Si vous voulez le jour de la semaine pour n'importe quelle date dans tous les paramètres régionaux

        sDayName = Format(DateSerial(2016, 11, 4), "dddd")
    'change 2016, 11, 4 for your year, month, day values

    🙂

    • Le passage d'un String qui représente un Date à Format est rarement une bonne idée.
    InformationsquelleAutor cyberponk
  2. 2

    De la SEMAINE de la Fonction peut être utilisée sur cette rubrique et dans les Codes Vba . Par exemple:

    Label2.Caption = WeekdayName(Weekday(TextBox2, 0), False, 0)

    J'ai utilisé cette fonction lorsque j'ai créé un userform sur la date d'entrée à la cellule active.

    InformationsquelleAutor kadrleyn