Visual Basic

<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
   Public Shared Function GetShortPathName(ByVal longPath As String, _
   <MarshalAs(UnmanagedType.LPTStr)> ByVal ShortPath As StringBuilder, _
   <MarshalAs(UnmanagedType.U4)> ByVal bufferSize As Integer) As Integer
   End Function
 
Private Sub TestShortPath()
   Dim sb As New StringBuilder(1024)
   Dim longPath As String
   Dim sFileName As String
   longPath = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
   Dim retVal As Integer = Interop.GetShortPathName(longPath, sb, 1024)
   If retVal <> 0 Then
      Dim sTemp As String = sb.ToString()
      MessageBox.Show(sTemp)
   Else
      Console.WriteLine("Error occured. GetLastError returns {0}.", Marshal.GetLastWin32Error())
   End If
End Sub

Randomize<br />
x = Rnd()

Dim r as New Random()<br />
x = r.NextDouble()

Randomize<br />
x = Int(Rnd() * 101) + 1

Dim r as New Random()<br />
x = r.Next(101) + 1

haripaddu wrote:

shortest route calculation is embedded on my project using nodes and links

Dim currentDate As Date = Now()
Dim beginDate As Date = currentDate.AddDays(-currentDate.DayOfWeek)
Dim endDate As Date = beginDate.AddDays(6)