Calcule d'une durée entre 2 dates

Bonjour,

J'ai deux dates stockées dans une base de données sous le format : JJ/MM/AAAA  hh:mm


Ce n'est pas un probleme pour les recuperer et inserer dans une textbox mais je vois pas du tout comment calculer l'ecart entre les 2 dates.
J'aimerais savoir calculer la duree entre ces 2 dates en enlevant le dimanche, tout ceci en VB.net.

Merci d'avance

Bonjour,
Il faut utiliser DatePart

Exemples ci-dessous:

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
xDate = InputBox("Saisir la date de retraite sous la forme jj/mm/aaaa","    Décompte Retraite !!!!","30/06/2006")
'xDate = "30/06/2006"           'date de jean-marc
j1 = DatePart("w", xDate)
j2 = Array("","Dimanche","Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi")
jj = j2(j1)
m1 = DatePart("m", xDate)
m2 = Array("","janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","décembre")
mm = m2(m1)
Result = WshShell.Popup("Votre départ à la retraite étant prévu le      " & jj & " " & Left(xDate,2) & " " & mm & " " & Right(xDate,4) & "       "  & vbcrlf & vbcrlf & "Il ne vous reste plus que ........" & vbcrlf & vbcrlf & "        " & DateDiff("d", Now, xDate) & "   jours  ........ avant de partir à la pêche !!!!!", 30, "Décompte de la retraite")

=====================================
Dim eDate, nMois1, nMois2,nMois, nDate
eDate = "Aug 2 08:40:14 2002"
nMois1 = DatePart("m",Date)
nMois2 = Array("Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov")
nMois  = nMois2(nMois1)
nDate = nMois & " " & DatePart("d",Date) & Right(Now,9) & " " & DatePart("yyyy",Date)
MsgBOX "eDate=" & eDate & "   nDate=" & nDate