CodeWidgets.com Online Source Code Library -ASP, ASP.NET, VB, VB.Net,
Microsoft® Access, Javascript, VBScript, Website Design, Web Applications,
Custom Programming Services Available.
|
|
ASP, ASP.NET, VB, VB.Net,
Microsoft® Access, Javascript, VBScript,
Website Design, Web Applications |
|
|
Shopping Cart
(0) Items $0.00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Website Stats to Date
|
|
Pages Viewed 4,401,732
|
|
Visitors
1,206,536
|
|
Widgets Viewed
3,009,755
|
| Since January 1/2003 |
| |
Active Users: 17
|
|
|
|
|
|
 |
|
|
| |
| Widget
#CS0043 |
Age Function VB.Net using DateDiff()Age Function VB.Net using DateDiff() |
|
| Click Here for Demo! |
|
|
|
| Widget Info
|
Asp.Net, VB.Net
Enter birthdate, returns age in years.
Not applicable to infants under 1 year where age is measured in weeks or months
Public Function
Age(ByVal Birthdate As
System.DateTime) As Long
Try
Dim CurrentDate As
System.DateTime = System.DateTime.Today
Select Case
Month(Birthdate)
Case Is <
Month(System.DateTime.Today)
Age = DateDiff("YYYY", Birthdate, Now())
Case Is =
Month(CurrentDate)
Select Case
Day(Birthdate)
Case Is <
Day(CurrentDate)
Age = DateDiff("YYYY", Birthdate, Now())
Case Is =
Day(CurrentDate)
Age = DateDiff("YYYY", Birthdate, Now())
Case Is >
Day(CurrentDate)
Age = DateDiff("YYYY", Birthdate, Now()) - 1
End Select
Case Is >
Month(CurrentDate)
Age = DateDiff("YYYY", Birthdate, Now()) - 1
Case Else
Age = 0
End Select
Catch ex As
System.Exception
'Error
handling code does here
End Try
End Function
|
|
| Licensing |
| Format:
Download |
| Online Purchase And Pickup |
| Licencing Terms:
Developer Re-Use: Programming Experience Required |
Project Development Use Only. Re-Distribution Permitted only as part of a compiled Application. This source code is provided to you "as is" without warranty.
CLICK HERE FOR TERMS OF USE
Copyright 2002-2006 Comrie Software Solutions |
|
| Related Widgets |
|
|
| ShoppingCart Empty |
|
|
|
| Featured Widgets |
| WebStore |
| Online Store Application
Template (ASP.NET) |
| More... |
|
| ShoppingCart |
| WebUserControl (ASP.NET) |
| More... |
|
| Calendar Reports |
| (Monthly View) |
| For Microsoft® Access |
| More... |
|
Online Voting/Survey
Web-App |
 |
|
More... |
|
|
|
|
|
.. this is one site that believes in Customer Service. I had questions, I had answers quickly. No "wait for days", No "buy this and
find out". Just courteous and HELPFUL answers.
It is refreshing to find a site that really cares about their products and
stands behind them!
And their products perform as they promote them.
John L. |
When I received my ASP.NET E-Commerce application it was for the purpose of marketing my software inventory via the internet. It took a minimal amount of time to launch it and offers host of traffic tracking options for further market study and analysis. Overall an excellent product.
Richard G.
|
|
|
|
|
|
|
|
|