I am using the following code in my project. I want to find the number of days by given the last date and now.[code] for example, when BorrowDate is "01/Jul/2011" then the result is 7 days which it should be 10 to now.
View 1 Repliesthis code always return '0' i don't know why
Dim cur_month = DatePart(DateInterval.Month, Now).ToString()
Dim cur_date As String = "01/" + cur_month + "/" + (DatePart(DateInterval.Year, Now).ToString)
[Code]....
cnb_mnth is ComboBox for Month
txt_year is Text Box For Entering Year
i have a problem on my DateDiff result. For example the result is 3.5, it will only show 3. How can i control that?
View 1 RepliesIf DateDiff(DateInterval.Day, moDoBooking.m_CurrentDay, moDoBooking.m_BaseDay) _
> DateDiff(DateInterval.Day, DateAdd(DateInterval.Day, _
Convert.ToDouble(moDoBooking.oBooking.oFacility.ADAYS), moDoBooking.m_BaseDay), _
moDoBooking.m_BaseDay) Then
This condition won't satisfy with these values:
moDobooking.m_CurrentDay = 2/3/2011
moDobooking.m_BaseDay = 22/02/2011
moDoBooking.oBooking.oFacility.ADAYS = 1
You might say this is dead-easy but honestly it's late here and my head is not working at all! Could AnyOne tell me why is that?
I have five text boxes & one button there in my form. I have written this code to get user`s current age. But problem is that I have to get user`s age with months.
My code to get age :
Private Sub Command1_Click()
BDate = Text1.Text & "-" & Text2.Text & "-" & Text3.Text
CurDate = Now
[Code].....
I have the following value 48.81, it comes as a string from the database, I need to convert it to decimal, I'm using:
Dim Seconds As Decimal = Convert.ToDecimal((Coordinate.Substring(4, 5)), CultureInfo.InvariantCulture)
I'm receiving 4881D and I need 48,81
I thought CultureInfo.InvariantCulture was going to help me with that
EDIT:The coordinate value is 675900.244.I'm "spliting" it like this:
Dim Degress As Integer = Coordinate.Substring(0, 2),
Dim Minutes As Integer = Coordinate.Substring(2, 2),
Dim Seconds As Decimal = Convert.ToDecimal((Coordinate.Substring(4, 5)), CultureInfo.InvariantCulture),
[code]....
This is the value of the coordinate in the database?
I had some trouble specifying Monday as the first day of week in the DateDiff function.
The following syntax does not work: Dim myWeekNumber as Int32 = DateDiff("ww",date1,date2,2)
Compiler Error Message: BC30519: Overload resolution failed because no accessible 'DateDiff' can be called without a narrowing conversion
However, using the enumeration value (FirstDayOfWeek.Monday) instead of the value (2) does work. I wonder why.
I tested every example I found but it doens't work in vb 2010 express... Do I need to install anything moor to make it work?
View 2 RepliesOne of the problems with datediff function is that even if the two dates are 31-12-2011 and 01-01-2012,it will show the difference as 1 year.How to overcome this problem?
View 17 RepliesDateDiff for the interval Day gives expected results for days past until present, but if the first date is further in time than the second date, it gives the difference +1. Is there something I'm doing wrong? For example, if I put in today for both, the difference is 0. If I put in yesterday and today, I get 1. This is all expected, but if I put in tomorrow and today, I get 0, and two days from now and today give -1. Why is the function giving altered results if the date is negative?
Here is the specific code.
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
TextBox1.Text = DateDiff(DateInterval.Day, DateTimePicker1.Value, Date.Now)
End Sub
I have a project, a database with employee information (name, town, birthday, HireDate, etc). I have add custom TextBox (on fly), and on that TextBox a
TexBox1.text = DateDiff("d", HireDateDateTimePicker.value, Now)
.
Which is calculating how many days worker is working in company from HireDate,and Now.I have put code on event TextBox1_TextChanged. But, this means that I need to move cursor in TextBox1 to apply changes. I have also try with MouseMove. It works, but if I would have a huge database, then application will all the time reading script on MouseMove, and by that will slow down entire program.
I am currently writing a scalar valued function and I'm having a few issue with the returned result. I have narrowed the problem down to a calculation that convert the difference between two dates as a percentage/decimal. No matter what I try the return value is always a whole number
set @earnedpremium = (@premium * @pretripearnings) + ((@premium - (@premium * @pretripearnings)) * cast((datediff(day, @outdate, @experiencedate) / datediff(day, @outdate, @returndate))as decimal(5,2)))
The cast section needs to return the percentage, I know the rest is working fine through some elimination and testing.
I'm currently working with a client's VB.Net code, which was developed for them by a small development shop a few years ago and which they purchased and have been maintaining and uprgrading since. This client's primary developer is out on indefinite (likely permanent) medical leave and I'm now filling in until they bring in a full timer (as I'm a contractor here). My current task is to add some functionality to a the VB.Net code they purchased. I'm finding practices and techniques in the code that absolutely baffle me and can't make the code do what I want. I'm starting to wonder if it's me and was hoping to get some thoughts on the code I've encountered.
For example: Setting a variable to accept the result of a function by calling the function with many parameters, clearing the parameters in the function, setting them to some value, calling another function with those new values, then never using the values returned by the functions. I'll add a code snippet in the first comment since this is already getting long.
Having problem understanding Delegate error. Error says expression expected, How do I fix?Here is the offending line (#259)....
mylist.ForEach(Delegate Function(P As linkItem) As System.Char[] )
Here is the entire code.
<script language="VB" runat="server">
Function sectionTitle(ByRef f As String)
'Open a file for reading
[code]....
I am having trouble with using sumifs excel function in vb.net. I can use sum function with "cells" but I could not get result from sumifs function with "columns".
It is giving "OleAut reported a type mismatch." error.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim oExcel As Object
[Code].....
I have a problem with Asc() function as a blow picture,I will explain each step as I do.First I convert some values to ASCII code and store in value variable, then retrieve 3rd position of variable (4th line of the picture.)
and use Asc() function to find result which it show 63. (like 5th and 6th line).But I try to manually use Chr() function, the result become 2nd and 3rd line.So for the Asc("ˆ") func. result should be 63 or 136?
I would expect the following vb.net function to return a value of Nothing, but instead its returning a value of 0.
[Code]...
When I was coding a program, I was able to find the result of a function in the Immediate Window by using:
View 3 RepliesI have something that I want to do and what looks very simple, but I cannot get it to work. I want to build a function that gets as input a xdocument and some other strings. It should have a return that contains a filtered part of the xdocument in a way that I can use it as input for a new Linq function. This is what I mean:
Private Function fncGetFilteredDecendantsOfNode(ByVal xdocDoc As XDocument, _
[Code]...
I am working on a project that requires me to hop into to separate DB's. So I have figured that I need to have multiple functions inside of my VB page. The only problem I am having,is I am not to sure how to get this all accomplished. So far I have figured out the overall structure, just need to implement that structure.
Here is my idea:
The main Function would call two other functions. We can Call them Sub Function 1 and Sub Function 2. So, the main Function takes the saved sessions information for the E-mail address and dumps in into Sub Function 1. It needs to open up a new connection to the db/stored procedure and RUN the following procedure and then return the result. Here is the stored procedure and what I think is correct.
CREATE PROCEDURE WEB_User
(@EMAIL_ADDRESS varchar(80) = [EMAIL_ADDRESS])
AS SELECT MEMBER_NUMBER
FROM WEB_LOGIN
WHERE EMAIL_ADDRESS = @EMAIL_ADDRESS
So my question is, what is the function suppose to look like? how do I send the session information to the procedure? and finally, how do I return the stored procedure results and push back into the main function so it can be carried into sub function 2?
This is just an efficiency question really.. I'm interested to know if there is a more efficient or logical way that people use to handle this sort of scenario.
In my asp.net application I am running a script to generate a new project my code at the top level looks like this:
Dim ok As Boolean = True
ok = createFolderStructure()
If ok Then ok = createMDB()
[Code]....
I create a boolean and each function returns a boolean result, the next function in this chain will only run if the previous one was successful. I do this because an asp.net application will continue to run through the page life cycle unless there is an unhandled exception and I don't want my whole application to be screwed up if something in the chain goes wrong (there is a lot of copying and deleting of files etc.. in this example).
I need to hash a number (about 22 digits) and the result length must be less than 12 characters. It can be a number or a mix of characters, and must be unique. (The number entered will be unique too). For example, if the number entered is 000000000000000000001, the result should be something like 2s5As5A62s. I looked at the typical, like MD5, SHA-1, etc., but they give high length results.
View 5 RepliesI am trying to format a Function Code so that it returns a 4 digit result no matter the entry by the user (i.e. they enter 540, stores 0540 in the database). While looking online, I've found the format function, but when I use it, it returns 540, regardless if I enter 540 or 0540. [Code]
View 2 RepliesCan someone on the VB language team explain why a function result type is not part of the parameter signature?If it were then function overloads would also work for functions that only differ by the result type. In some cases, this is useful (aka cleaner code) especially when you have strongly typed data.
Other languages have this and implement it by considering the function result as an OUT parameter either as param 0 or at the end of the param list (stack) so existing type matching verification can be performed by the compiler.
In VB, the workaround is just messy and would be easily fixed by a language change. This example is overly simplified and not meant as a solid justification for the request Say you have a parse requiirement that takes a comma delimited string in the form: "31,32,33,34" or "bob,carol,ted,alice"
In you code,
[Code]...
I am interested in developing a multi-language program that will have a main .NET GUI but will perform calculations by calling procedures from a Fortran95 dynamic link library file. Right now I am just playing around with a very simple project in order to get the interoperability between the .NET framework and a Fortran95 (*.dll) file working correctly. So far, I've been able to pass the Fortran95 (*.dll) file an array from VB, sum all the elements of the array using an intrinsic Fortran function, and pass the scalar result back to the .NET framework with no problem. However, if I try passing Fortran the exact same array, construct the transpose of that array using another intrinsic Fortran function, and try passing the transposed array back to the .NET framework I keep throwing an exception. I am not a programming wiz, but it appears that when Fortran stores an array in memory, the .NET framework doesn't know how to read that. I am looking for some guidance on how to pass an array from the Fortran95 (*.dll) file back to the .NET framework.
View 9 RepliesI have a whole slew of database access functions which assume a particular connection string. Within my application I call
[Code]...
I have a function in a module that returns a datatable.I need to call that function asynchronously and get the results in the Main thread (Main Form) in vb.net.
View 2 RepliesI would like to allow my users to decide where they want their data to reside. I have created a data source which is referenced by crystal reports. I would like to replace the |DataDirectory| to point to a path the user selects. or if possible substitute it with vb function.
Below is the line in xml that point to my db. I would like to allow it to call a vb function that will return my db path I am not sure how to replace the connection string by using a vb function in xml.
<Connection ConnectionStringObject="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|MY_DB.mdb;Persist Security Info=True;Jet OLEDB:Database Password=pass" IsAppSettingsProperty="false" Modifier="Assembly" Name="MY_DB.mdb" Provider="System.Data.OleDb" />
I would like to replace |DataDirectory| with the result of a function called MyDBPath(), can anyone assist.
I have following error in my code,how to remove it from code
Protected Sub addListItems()
Dim now As DateTime = DateTime.Now
Dim past As DateTime = now.AddDays(-20)
[code]....
The error is in last line on function "Expression Expected"
ConvertAll(Function(dt)
I am working in excel trying to setup a function involving multiplying a cell by a set number and then having the result round to the nearest 10. Here's the beginning of my function statement fx=e3*1.026. say the result is 8654, I need it to round to 8650. Also if it comes back 8655, I need it to round to 8660. I have about 2,000 records I need to do this to so I was hoping that one formula or statement could be used for all my data.
View 2 Replies