> Tous les forums > Forum Autres langages
 language VBSSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
TJA435
  Posté le 17/05/2019 @ 17:43 
Aller en bas de la page 
Petit astucien

Bonjour,

Avec VBS, peut-on récupérer le numéro de semaine et le numéro de jour (quantième) d' un jour donné ou du jour en cours ?

Si oui, comment ?

Merci pour votre aide.

Publicité
poussebois
 Posté le 17/05/2019 à 18:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Bonjour ,

VBS ou VBA ?

@ +

TJA435
 Posté le 18/05/2019 à 12:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

En VBS

Merci

pc-facile13
 Posté le 18/05/2019 à 15:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Pour le numéro de semaine, tu as une solution ici:
https://gallery.technet.microsoft.com/scriptcenter/Calculating-week-numbers-4b539c85

Exemple:
Function WeekNumberEU (y, m, d)
Dim tempweek
If m = 12 And d > 24 Then
tempweek = WeekNumberEU (y+1, 1, 1)
If d > (32-Weekday(Dateserial(y+1,1,1),vbMonday)) Then WeekNumberEU = tempweek:Exit Function
End If
WeekNumberEU = DatePart("ww", Dateserial(y,m,d), vbMonday, vbFirstFourDays)
End Function

msgbox WeekNumberEU (year(now), month(now), day(now))

Pour le numéro du jour, tu as la fonction Day:
Day(date) 'date peut être remplacée par "now" ou une date au format YYYY-MM-DD

TJA435
 Posté le 18/05/2019 à 17:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bonjour pc-facile-13,

merci pour tes réponses.

pour le numéro de semaine : parfait

pour le numéro du jour : c' est le numéro du jour dans l' année (quantième) qui m' intéresse (exemple: aujourd'hui 19/15/2019 nous sommes le jour 138)

pc-facile13
 Posté le 18/05/2019 à 18:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Ok,

Voici une fonction basée sur DateDiff:
fromDate=CDate(year(now) & "/1/1")
toDate=CDate(now())

msgbox (DateDiff("d",fromDate,toDate,2)) + 1

TJA435
 Posté le 19/05/2019 à 12:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

parfait

merci beaucoup


Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Language informatique
le fichier en language C
language C#
un cour sur le language c
Quel language utiliser ?
Quels language ? PSP
comment trouver le language d' un prg
Le language Basic (initiation à la prog de base)
urgent please !!!!!!!!!!!!!! devoir en language c!
language XML
Plus de sujets relatifs à language VBS
 > Tous les forums > Forum Autres langages