Discussion :

[stracoma]

Bonsoir à vous. J'ai besoin de votre aide.
Je suis dans l'apprentissage du calcul sur les dates.
Dans le tuto j'ai appris : TimeSpan.FromDays, TimeSpan.FromHours, TimeSpan.FromSeconds, TimeSpan.FromMinutes.
Est ce que TimeSpan.FromWeeks n'existe pas?
merci

[Pol63]

pourquoi venir demander ca
tu essaies de l'écrire, et si vs ne le propose pas c'est que ca n'existe pas

et puis fromdays(nbweeks * 7) ca se devine non ?

[stracoma]

Bonsoir.
Le problème avec la méthode de diviser ou multiplier par 7 pour passer de jours à semaines ou vice versa, c'est le nombre de semaines qui se retrouve en décimale.
Mais j'ai finalement trouvé la solution dans le tuto en utilisant le "DateDiff":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Module Module1
 
    Sub Main()
        Dim date1 As Date
        Dim date2 As Date
 
        Dim espace As TimeSpan
        date1 = CDate("02/03/15")
        date2 = CDate("20/03/15")
        espace = date2 - date1
        Console.WriteLine(espace.TotalDays / 7.ToString) 'donne 2.5714.....
        Console.ReadKey()
        Dim espace_bis As Integer
        espace_bis = DateDiff(DateInterval.Weekday, date1, date2)
        Console.WriteLine(espace_bis.ToString) ' donne 2
        Console.ReadKey()
 
    End Sub
 
End Module

Merci à vous