Visual Basic

im_hoser26-Oct-05 10:59

im_hoser

26-Oct-05 10:59

Checked it out. Doesn't seem to do the trick. It will return in days but I need to count down.

IE(10/22/2005 to 11/22/2006 is 1 year 1 month 0 weeks and 0 days)

Wink | ;)

rwestgraham26-Oct-05 13:03

rwestgraham

26-Oct-05 13:03

You can easily do this with just DateDiff and DateAdd.

Just create a function that first calculates the difference in years using DateDiff. Subtract that value from the original End date using DateAdd. Then calculate the difference left in months from the new temp End Date. Subtract that value from the new temp date to recalculate a new value for the temp end date, which should now only be different by days. Take the days left and split them into weeks and residual days left.

George B Gilbert27-Oct-05 7:45

27-Oct-05 7:45

im_hoser...

The message displayed at the end of the below code displays the correct 2 years, 8 months, 2 weeks and 3 days. The only protection missing is checking, before this code is executed, whether or not the from date is after the to date; but, I'm sure you have that covered already.

This looks like a very useful routine. Think I'll put it into a Double Text library so I have it whenever I need it.

George

Dim Years As Integer
Dim Months As Integer
Dim Weeks As Integer
Dim Days As Integer

'** Create a couple of dates to play with
Dim TempDate As Date ' Working date
Dim FDate As Date = Now ' The first, or from date
Dim LDate As Date = DateAdd(DateInterval.Year, 2, FDate)
LDate = DateAdd(DateInterval.Month, 8, LDate)
LDate = DateAdd(DateInterval.Day, 17, LDate) ' The last, or to date

'** Determine the number of years in the interval
Years = DateDiff(DateInterval.Month, FDate, LDate)
Years = (Years - (Years Mod 12)) / 12
'** Advance the first date up by the number of years
FDate = DateAdd(DateInterval.Year, Years, FDate)

'** Determine the number of whole months
'** Calculate the raw number of months
Months = DateDiff(DateInterval.Month, FDate, LDate)
'** Set up a temporary date that is the first date advanced by
'** the number of raw months
TempDate = DateAdd(DateInterval.Month, Months, FDate)
'** If the raw number of months is too many, back off by 1 month
If DateDiff(DateInterval.Day, TempDate, LDate) < 0 Then
Months -= 1
End If
'** Advance the first date by the number of months
FDate = DateAdd(DateInterval.Month, Months, FDate)

'** Determine the number of weeks and days
Weeks = DateDiff(DateInterval.Day, FDate, LDate)
Days = Weeks Mod 7
Weeks = (Weeks - Days) / 7

MsgBox(Years & ControlChars.CrLf & _
Months & ControlChars.CrLf & _
Weeks & ControlChars.CrLf & _
Days & ControlChars.CrLf)

George B Gilbert27-Oct-05 8:25

27-Oct-05 8:25

im_hoser...

As part of preparing this code for saving in a Double Text library, I reworked it a bit. It's should now be more accurate. If you would prefer the revised code, please download this text file from my web site.

http://www.2goodsoftware.com/snippets/intervalcalc.txt

Installation on a remote computer.

im_hoser27-Oct-05 14:20

im_hoser

27-Oct-05 14:20

Thanks George. Very nice code.

Jim Wilcox26-Oct-05 8:07

Jim Wilcox

26-Oct-05 8:07

Does anyone know a good way to install an application on a remote computer. Our company has 4 locations and right now I am having to remote desktop in to each to load updates. I was wondering if there was a installation utility or code for one that allows you to install an app on remote computers from a central location.

Jim

Jim Wilcox

Re: Installation on a remote computer.

rwestgraham26-Oct-05 14:48

rwestgraham

26-Oct-05 14:48

There is no one answer for all situations.

Try these links for ideas on how to approach this:

http://www.microsoft.com/windows2000/techinfo/planning/management/swinstall.asp[^]

http://www.appdeploy.com/[^]

sql problem

microuser_200026-Oct-05 6:09

26-Oct-05 6:09

hellow to all..
i am writeing a code that works on database in sqlserver ..
i wrote the following code

Dim sSQL As String
sSQL = "Select * From Cities"

Try

conSQL.Open()
Dim MyDataReader As SqlClient.SqlDataReader
Dim MySqlCommand As SqlClient.SqlCommand

Dim MyDataSet As DataSet = New DataSet
Dim MySqlDataAdapter As SqlClient.SqlDataAdapter
MySqlDataAdapter.SelectCommand = New SqlClient.SqlCommand(sSQL,conSQL)
MySqlDataAdapter.Fill(MyDataSet)
MySqlCommand.Connection = (conSQL)
MySqlCommand.CommandText = sSQL

MyDataReader = MySqlCommand.ExecuteReader

Do While MyDataReader.Read

cmbCity.Items.Add(MyDataReader(0))

Loop

MyDataReader.Close()
conSQL.Close()
conSQL.Dispose()

i get the following error
"Object refrence not set to an instance of an object"

thank's for the help ..

Joshua Quick26-Oct-05 8:14

Joshua Quick

26-Oct-05 8:14

The problem is with "MySqlCommand".
You need to have it reference an object before using it.

microuser_200026-Oct-05 8:25

26-Oct-05 8:25

u mean to make it like this ?
Dim MySqlCommand As SqlClient.SqlCommand = New SqlClient.SqlCommand

Joshua Quick26-Oct-05 9:01

Joshua Quick

26-Oct-05 9:01

Right. But from the looks of things, your code needs to be cleaned up a bit more.

First of all, you're trying to execute the same SQL command twice. Was this the intent? (I don't think so.)

You're reading it once here...
MySqlDataAdapter.SelectCommand = New SqlClient.SqlCommand(sSQL,conSQL)
MySqlDataAdapter.Fill(MyDataSet)

And the other here...
MySqlCommand.ExecuteReader

I think you should get rid of the Adapter and DataSet and stick to MySqlCommand since I didn't see your code really using them anyways. Also, you need to dispose MySqlCommand and its DataReader once you're done using them. Not doing so would cause a database connection "leak" (for a database like Access, there are only a finite number of connections that can be made so this is important). Dispose them before you dispose the connection.

[edit]
Oops. I just noticed that you are closing the DataReader. You just need to dispose the MySqlCommand then.
[/edit]
-- modified at 15:04 Wednesday 26th October, 2005

microuser_200026-Oct-05 11:09

26-Oct-05 11:09

that's great ..
thank u for ur support

Remove Duplications

stevelam26-Oct-05 5:27

stevelam

26-Oct-05 5:27

Hi,

I need a hand. What I need to do is to read a word from a file (this I can do). Then I need to get my program to remove all duplicates from the word. After that I need to load that into a string of textboxes and then to add the alphabet starting from the last letter of the word.

e.g

1. Load the word mememe
2. Strip the duplicates so the final word would be me
3. Insert into textboxes and add alphabet e.g mefghijklnopqrstuvwxyzabcd

Thanks in advance

Stevelam

George B Gilbert26-Oct-05 7:02

26-Oct-05 7:02

Steve...

You didn't specify in the specs whether or not the removal of duplicate letters, and the appending of the alphabet was to be case sensitive. The functions I wrote are both case sensitive.

Download this Visual Studio project from my web site.

http://www.2goodsoftware.com/snippets/duplicate letters.zip

When you run the project in VS, type any string into the textbox and click the button (neither control is appropriately named or initialized since the project is just a test bed). The modified string will be displayed in a message box.

There are two functions ... RemoveDupLetters and AddAlphabet. Copy both functions and paste them into a module (for global scope) in your project.

If I can be of further help, please let me know.

George

stevelam26-Oct-05 8:21

stevelam

26-Oct-05 8:21

Thats great, thanks. The only problem is the fact that if I put in hello it gives me helopqrstuvwxyz but really I could do with helopqrstuvwxyzacbdfgijkmn

Thanks again for the quick responce.

Steve

George B Gilbert26-Oct-05 8:30

26-Oct-05 8:30

I though the idea was to remove duplicate letters ... as in the second L in hello? Mayhe I missed something. Anyway, your welcome.

stevelam26-Oct-05 8:35

stevelam

26-Oct-05 8:35

Sorrry I should have said that I needed the whole alphabet in the end, just that it started after the last letter and didnt have any duplicates. Hope you can help. Thanks once again.

Steve

-- modified at 14:35 Wednesday 26th October, 2005

George B Gilbert27-Oct-05 6:15

Overriding the Built-In Menus and Commands in Microsoft Word

27-Oct-05 6:15

Steve...

The plot thickens. To ensure that I fully understand what the specs are, please reply with the entire string you expect to get when you enter "hello".

microuser_200025-Oct-05 23:40