Visual Basic

total days in three months [modified]

10-May-07 2:20

*sniff* smells like homework to me...

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

Sonia Gupta9-May-07 21:32

Sonia Gupta

9-May-07 21:32

I have two dates .The difference between them is almost three months and 20 days.How should I programatically calculate the no of days in these start date and end date.Is there any inbuilt function to do it.Or I need to apply my logic to accomplish it.

currently i am using the following code

private sub abc()<br />
Dim startdate As New Date(2006, 1, 1)<br />
        Dim enddate As New Date(2006, 3, 1)<br />
        Dim str(1) As String<br />
        Dim counter As Integer = 0<br />
        While (True)<br />
            str(counter) = startdate.Day & "-" & Format(startdate, "MMM") & "-" & startdate.Year<br />
            counter += 1<br />
            ReDim Preserve str(counter)<br />
            startdate = startdate.AddDays(1)<br />
            If (startdate = enddate) Then<br />
                str(counter) = startdate.Day & "-" & MonthName(startdate.Month) & "-" & startdate.Year<br />
                Exit While<br />
            End If<br />
<br />
        End While<br />
End Sub

Arun.Immanuel9-May-07 22:51

Arun.Immanuel

9-May-07 22:51

I have this code from the net.
We can use this function to find the difference in date,month,year,time.

But it is in C#.
Please try to understand this and convert into VB.NET code.

                public   enum DateInterval
                {
                     Second, Minute, Hour, Day, Week, Month, Quarter, Year
		}

		public static long DateDiff(DateInterval Interval, System.DateTime StartDate, 
																	System.DateTime EndDate )
		{
			long lngDateDiffValue = 0;
			System.TimeSpan TS = new System.TimeSpan(EndDate.Ticks - StartDate.Ticks);
			switch (Interval)
			{
				case DateInterval.Day:
					lngDateDiffValue = (long) TS.Days;
					break;
				case DateInterval.Hour:
					lngDateDiffValue = (long)TS.TotalHours;
					break;
				case DateInterval.Minute:
					lngDateDiffValue = (long) TS.TotalMinutes;
					break;
				case DateInterval.Month:
					lngDateDiffValue = (long)( TS.Days / 30);
					break;
				case DateInterval.Quarter:
					lngDateDiffValue = (long)( (TS.Days / 30) / 3 );
					break;
				case DateInterval.Second:
					lngDateDiffValue = (long) TS.TotalSeconds;
					break;
				case DateInterval.Week:
					lngDateDiffValue = (long)( TS.Days / 7);
					break;
				case DateInterval.Year:
					lngDateDiffValue = (long)( TS.Days / 365);
					break;
			}
			return (lngDateDiffValue);
		}//end of DateDiff



DateDiff(DateInterval.Day,startdate,endDate)

Hope that helps. 

 

<div class="ForumSig">Regards,
Arun Kumar.A</div>

andyharman9-May-07 23:23

andyharman

9-May-07 23:23

Hi Arun

The month, quarter and year calculations in your C# code don't seem very accurate. Can't you just use the VB "DateDiff" function?

Regards
Andy

Arun.Immanuel10-May-07 1:32

Arun.Immanuel

10-May-07 1:32

andyharman wrote:
Can't you just use the VB "DateDiff" function?

Sorry, I do not know much of VB.NET functions,
as I am using C# language.

Any way, thank you very much.

Regards,
Arun Kumar.A

Christian Graus10-May-07 2:19

10-May-07 2:19

DateTime.DaysInMonth is the main thing yuo need here.

How to open pdf-file with button

klaydze10-May-07 17:15

klaydze

10-May-07 17:15

hi, is this what you want to do?

Dim startdate As New Date(2006, 1, 1)
Dim enddate As New Date(2006, 3, 1)
dim s as string

'i just pass the value of startdate & enddate to textbox
txtstartdate=startdate
txtenddate=enddate

'this will calculate the difference of your date
s=DateDiff(DateInterval.Day,strdate,enddate)

Msgbox(s)

is that what you mean dude?sorry if my instinct is wrong. Smile | :)

Don't block the drive way of all the newbies in programming. Smile | :)

porsti9-May-07 21:30

porsti

9-May-07 21:30

Hello
1) I am making a web page with VB.NET. How to open a pdf-document when clicking a button ?

2) Back-button of explorer does not work after opening my www-page. It only reloads my page again . ?

Re: How to open pdf-file with button

Christian Graus10-May-07 2:21

Re: How to open pdf-file with button

10-May-07 2:21

1 - just provide a link to the PDF, the browser will open it
2 - the back browser goes back to the last URL, always.

koolprasad200310-May-07 21:21

koolprasad2003

10-May-07 21:21

To open a pdf file in vb.net application use
1. web browser control
and give the code like

webbrowser1.nevigate("PDF File Path")

Hope it will help
- Koolprasad2003 Smile | :)

Be A Good S/W Eng... Life is swing with you..Enjoy..

crystal reports

Sonia Gupta9-May-07 20:40

Sonia Gupta

9-May-07 20:40

I made the crystal report three days back.It was all-right then... but now more then 70 percent of it's page - where i drag dropped the information part controls and the labels - have got converted into grey(I mean disabled).Now I am not able to change it's controls location(coordinates) which were drag dropped.
Is there any way out for this problem ?

bar code ?

Mr.Kode9-May-07 20:26

Mr.Kode

9-May-07 20:26

i'm working with pharmacy appliucation , i had performed the most database and GUI work , excpt the portion of bar code which will read the code from any medicine box and display the item properties like price , expiration date , and so on ..
how can i do that ?
may any help in code please ?

many regards

Christian Graus9-May-07 21:15

9-May-07 21:15

You can buy a barcode scanner, but you need to build or buy a database that turns the numbers that a bar code represents, into the details of the product that carries it.

Mr.Kode9-May-07 22:38

Mr.Kode

9-May-07 22:38

please i need more details..
do you mean that barcode scanner automatically with application to read codes and all i nned here is tp attach this application with my database

regards

Arun.Immanuel9-May-07 22:44

Arun.Immanuel

9-May-07 22:44

The barcode reader will only scan the code of the product.
You have to interface it with the PC.

You should have a database with columns like

Barcode,ProductName,Cost,Weight and so on.

And create an application that reads the scanned Barcode(from the barcode reader)
and fetch the corresponding properties from the database
and display them in the UI.

Regards,
Arun Kumar.A

How to create a function that does not return a value?

klaydze10-May-07 17:20

klaydze

10-May-07 17:20

the only stuff you need is barcode reader. just install the barcode reader to the computer then he can read now the code in the box. thats to easy. Smile | :)

if you scan the barcode in the box then the barcode reader will paste the code to your textbox or even in notepad.

Don't block the drive way of all the newbies in programming. Smile | :)

Vivek Narayanan9-May-07 20:05

Re: How to create a function that does not return a value?

9-May-07 20:05

i want to create a function that utilizes a String and does just about the same thing as a Sub,but does not return a value ,can any one help me out?

Christian Graus9-May-07 20:11

Re: How to create a function that does not return a value?

9-May-07 20:11

A function returns a value, a sub does not. This is another VB disaster, IMO. But, the void return type is a sub. If it's a function, it returns something. Otherwise, there's no difference, AFAIK.

Steven J Jowett9-May-07 23:28

Steven J Jowett

9-May-07 23:28

A function that does the same as a sub ??? I would have thought the solution to be obvious; use a sub

Steve Jowett

Re: How to create a function that does not return a value?

Vivek Narayanan10-May-07 2:57

Re: How to create a function that does not return a value?

10-May-07 2:57

I meant a function that does the same as a sub ,but like all functions do,utilizes an Object or a Component but does not return any value

Vivek Narayanan10-May-07 3:04

Re: How to create a function that does not return a value?

10-May-07 3:04

Let me make it clear,its something like this

Function str() as String<br />
<br />
'code related with str ,which does something to the form,just like code in an event sub<br />
<br />
RETURN<br />
'I've got nothing to return<br />
<br />
End Function

Say if i choose null as the return value,will the code above it be processed,irrespective of the fact that the function will always return null

Steven J Jowett10-May-07 3:17

Steven J Jowett

10-May-07 3:17

You could do this :-

Function str() as string<br />
<br />
'your code here<br />
<br />
Return Nothing<br />
<br />
End Function

but surely that is the same as :-

Sub str()<br />
<br />
'your code here<br />
<br />
End Sub

Or is it you what to provide an object for the "function" to work with and change, in which case :-

Sub str(ByRef myObject as Object)<br />
<br />
'do something to myObject<br />
<br />
End Sub

This would receive the memory address the the object and change it directly, without the need to passing back the result

Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'

Re: How to create a function that does not return a value?

Vivek Narayanan10-May-07 3:31