Google Analytics Blog: YouTube now offers more analytics
http://analytics.blogspot.com/2008/04/new-graphing-options-by-week-and-by.html
http://analytics.blogspot.com/2008/03/youtube-now-offers-more-analytics.html
http://analytics.blogspot.com/2008/03/new-help-articles-from-google-analytics.html
http://analytics.blogspot.com/2008/03/introducing-google-analytics-seminars.html
http://analytics.blogspot.com/2008/03/how-you-start-is-as-important-as-how.html
http://analytics.blogspot.com/2008/03/google-analytics-integrates-with-google.html
http://googleblog.blogspot.com/2008/04/sharing-gadgets-just-got-better.html
http://googleblog.blogspot.com/2008/04/last-call-for-scalability-papers.html
http://googleblog.blogspot.com/2008/04/gadgets-for-cause.html
http://googleblog.blogspot.com/2008/04/developers-start-your-engines.html
http://googleblog.blogspot.com/2008/04/new-c-span-channel-on-youtube.html
http://googleblog.blogspot.com/2008/04/cone-of-silence-finally-lifts-on.html
http://googleblog.blogspot.com/2008/04/happy-birthday-google-grants.html
This will help you to change the computer name.
Works with VB6 and .net
The Code:
Declare Function SetComputerName Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpComputerName As String) As _
Long
Public Function ChangeComputerName(sNewComputerName As String) _
As Boolean
On Error Resume Next
Dim nReturn As Long
nReturn = SetComputerName(sNewComputerName)
If Err.Number = 0 Then
ChangeComputerName = nReturn <> 0
End If
End Function
Works with VB6 and .net
The Code:
Declare Function SetComputerName Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpComputerName As String) As _
Long
Public Function ChangeComputerName(sNewComputerName As String) _
As Boolean
On Error Resume Next
Dim nReturn As Long
nReturn = SetComputerName(sNewComputerName)
If Err.Number = 0 Then
ChangeComputerName = nReturn <> 0
End If
End Function
This will help you to change the computer name.
Works with VB6 and .net
The Code:
Declare Function SetComputerName Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpComputerName As String) As _
Long
Public Function ChangeComputerName(sNewComputerName As String) _
As Boolean
On Error Resume Next
Dim nReturn As Long
nReturn = SetComputerName(sNewComputerName)
If Err.Number = 0 Then
ChangeComputerName = nReturn <> 0
End If
End Function
Works with VB6 and .net
The Code:
Declare Function SetComputerName Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpComputerName As String) As _
Long
Public Function ChangeComputerName(sNewComputerName As String) _
As Boolean
On Error Resume Next
Dim nReturn As Long
nReturn = SetComputerName(sNewComputerName)
If Err.Number = 0 Then
ChangeComputerName = nReturn <> 0
End If
End Function
This is a simple utility to calculate age. e.g, if the age is 4 months then it will display in months, if age is 2 years it will display in years. Example of the DateDiff funtion in VB.
'Just place a command button and text box controls on your form.
'Enter a date of birth in the text box and it will calculate age based on the current date.
Private Sub Command1_Click()
If (Int(DateDiff("y", CDate(Text1.Text), Date)) / 365.25) > 1 Then
MsgBox Round((Int(DateDiff("y", CDate(Text1.Text), Date)) / 365.25)) & " Years"
Else
MsgBox (Mid((Int(DateDiff("y", CDate(Text1.Text), Date)) / 365.25), 1, 3)) * 10 & " Months"
End If
End Sub
'Just place a command button and text box controls on your form.
'Enter a date of birth in the text box and it will calculate age based on the current date.
Private Sub Command1_Click()
If (Int(DateDiff("y", CDate(Text1.Text), Date)) / 365.25) > 1 Then
MsgBox Round((Int(DateDiff("y", CDate(Text1.Text), Date)) / 365.25)) & " Years"
Else
MsgBox (Mid((Int(DateDiff("y", CDate(Text1.Text), Date)) / 365.25), 1, 3)) * 10 & " Months"
End If
End Sub
Subscribe to:
Posts (Atom)