How do I increment a date by 1 day in VB.NET - asp.net

If I have a textbox1 and button1, where in textbox1 the date will display as 01-Apr-2011, I want to click on button and have the date in textbox1 increase by 1 day.
So, if textbox1s date is 01-Apr-2011 then in textbox1 after clicking the button, textbox1s date will be 02-Apr-2011, a further click will get 03-Apr-2011 and so on.
How do I do this using VB.NET?

First you use DateTime.ParseExact to get the corresponding date-time instance and then use DateTime.AddDays to add the day and then format the date-time object to string again.
For example,
Dim currentDate as DateTime
currentDate = DateTime.ParseExact(textbox1.Text, "dd-MMM-yyyy", null);
currentDate.AddDays(1)
textBox1.Text = currentDate.ToString("dd-MMM-yyyy")

Assuming that the control is called textbox1 your click handler needs to do something like this:
Dim currentDate as DateTime
' Get the current date from the textbox
currentDate = Convert.ToDate(textbox1.Text)
' Add one day
currentDate = currentDate.AddDays(1)
' Write the date back to the textbox
textBox1.Text = currentDate.ToString("dd-MMM-yyyy")
Note: The exact format of the date written back to textbox1 may not match precisely what you're after - you'll almost certainly want to use DateTime.ToString and choose an appropriate format pattern.

Something extra that I just had to use and is quite obvious, but to minus 1 day from a date in VB.NET you would do the following:
myDate = Mydate.AddDays(-1)

different ways to add one day to a datetime object
Dim dt as DateTime(2011,10,12)
dt = dt.AddDays(1)
dt = dt.AddHours(24)
dt = dt.AddMinutes(1440)
dt = dt.AddSeconds(86400)
result will be 16 that is 12 + 4 days

Related

Retrieving a Date value from a GridView in VB

I am trying to retrieve a value from a GridView and save it as a Date variable, using the following code:
Dim invoice_date As Date = Convert.ToDateTime((TryCast(row.Cells(2).Controls(0), TextBox)).Text)
I am getting an error:
System.Web.UI.WebControls.TextBox) returned Nothing.
From what I have read, if the TryCast fails, it will return a value of nothing.
I have a similar command for an Integer, which works fine on another column.
Dim order_value As Integer = Convert.ToInt32((TryCast(row.Cells(3).Controls(0), TextBox)).Text)
Can somebody please help with the correct syntax to work with a Date value?
You are right that TryCast returns Nothing if it cannot cast to the target type. So, the problem that you have is most likely that row.Cells(2).Controls(0) is not a TextBox. To debug this, split the line:
Dim invoice_date As Date = Convert.ToDateTime((TryCast(row.Cells(2).Controls(0), TextBox)).Text)
like this:
Dim textbox As TextBox = TryCast(row.Cells(2).Controls(0), TextBox)
Dim invoice_date As Date = Convert.ToDateTime(textbox.Text)
and look at the value of textbox.
Try and use DirectCast() and see if that works.

How to fill a TextBox type date with today's date VB.Net

I am trying to fill a TextBox, type date in Visual Basic, with the today's date. (Format dd/MM/yyyy) I tried differents solutions that I got it on the web, but they did not do it.
For example. Today's date is 03/29/2017. I need that when I load the page, the TextBox looks like this:
TextBox date ok
But the problem is when I load the page, the TextBox appears like this:
TextBox date
These are some solutions that I got it in the web.
TextBox.Text = DateTime.Now.ToString("dd/MM/yyyy")
Dim today As String = DateTime.Now.ToString("dd/MM/yyyy")
TextBox.Text = today
TextBox.Text = Date.Today.ToString("dd/MM/yyyy")
Dim today As String = String.Format("{0:dd/MM/yyyy}", DateTime.Now)
TextBox.Text = today
TextBox.Text = System.DateTime.Now.ToString("dd/MM/yyyy")
TextBox.Text = Text = DateTime.Now.Date.ToShortDateString()
It matters that I am doing this on Page_Load event handler calling a method. The TextBox is only one in the form called with specific ID.
Also Is important that this TextBox could be edit.
You need to address the textboxes like:
textbox1.text or textbox2.text etc and not just textbox.text

displaying date in MM/dd/yyyy format using label

im new to asp.net,im trying to display out my date output in terms of
MM/dd/yyyy
but it came out with
MM/dd/yyyy 12:00:00 AM
what can i do to remove the time?
my vb.net code is like this:
Dim date As String = myDataReader("date").ToString()
lbldate.Text = date
You can pass the format to ToString() method.
Dim date As String = myDataReader("date").ToString("MM/dd/yyyy")
You need to pass the format to the .ToString method, like this:
.ToString("MM/dd/yyyy")
It would also be a good idea to cast the myDataReader("date") to a DateTime object, like this:
Dim dateValue As DateTime = CType(myDataReader("date"), DateTime)
Dim date As String
If dateValue Is Not Nothing Then
date = dateValue.ToString("MM/dd/yyyy")
End If
Note - If the TryCast fails, then Nothing would be the value of dateValue, hence the If dateValue Is Not Nothing Then logic is there.

Separating Date and Time values from SQL Server 2008 to display in asp.net

I have a database table that stores a datetime value.
I want to display that value on my asp.net textboxes, except I need to show date value in TextBox A and Time in TextBox B.
How can I split those values in VB.NET?
The idea is to use format string:
Date: dateTimeReadedFromDb.ToString("dd-MM-yyyy")
Time: dateTimeReadedFromDb.ToString("hh:mm:ss")
You can use the built in date formatting functions in VB:
Dim ThisDate as DateTime = Now
Dim TimePart as string = ThisDate.ToShortTimeString
dim DatePart as string = ThisDate.ToShortDateString

VB.net Date Format Gridview dd/mm/yyyy

Hello
I'm trying to update a ms access database. I've got a gridview with a date that i use:
Dim tBox As TextBox = CType(gridStaff.Rows(e.RowIndex).FindControl("sDate"), TextBox)
I then want to take the value from this textbox and assign it to a date variable.
Dim test As Date = CDate(tBox.Text)
The problem I have is that now when I put test variable into my sql update query it stores the date in this format. mm/dd/yyyy instead of the dd/mm/yyyy format I want.
Ive tried different ways to format it I read online but to no success yet. Any advice would be great!
Thanks
Is your problem the conversion from tBox.Text to Date, or is it at the sql update query level? -- You should probably give the sql statement a parameter with a strict type. Converting from tBox.Text into test should probably be done in a Culture aware manner:
'String to convert and target date:
Dim dateString As String = "02/15/2011"
Dim d As Date
' Specify English/US culture when converting string:
Dim cul As Globalization.CultureInfo = Globalization.CultureInfo.GetCultureInfo("en-US")
d = Date.Parse(dateString, cul)
You could also rely on the default culture and simply let Date.Parse do the job without specifying the culture.
try using
Dim test As Date = DateTime.ParseExact(tBox.Text, "d/M/yyyy", CultureInfo.InvariantCulture)
or if your System is set up right and CultureInfo.CurrentCulture has the right date format,
Dim test As Date = DateTime.Parse(tBox.Text, CultureInfo.CurrentCulture )
instead of CDate()

Resources