Check if you have Router and Internet Connection.

Am I on the Internet?

During the last 15 years have I had some periodes with a flaky internet connection. Both as an avid internet user and a professional, there is nothing more annoying than an unstable internet connection.
Calling the ISP hotline.

 

Initially one gets these two initial questions from the friendly hotline person a) Are you currently connected to the internet. b) are you sure you are connected to your router? (is it turned on?)
At one stage the hotline people asked “do you have connection to router” and if you uttered “mmmm” for more that 2 seconds- they would say “fine we will send you a new router – have a nice day.. beep beep beep”
If you survive the first set of questions – the hotline person would like to know the extend of the problem, how often does it happen? , when?

Since early on, I have started keeping a log for  a couple of days before contacting the ISP- so as to add to the uncovering of the problem (and sometimes just to counter questions – trying to make it a “just a-once-off” or me coming off as an unreasonable customer).

In short a simple application to check your internet connection.

 

 

This first version of my application answers the questions put above and can be used in the initial talk with the ISP.
(currently I have not put in an auto logging functionality ..)

 

Using the application.
When you start the application it will check the connection, then you will have to push the button the check the current status.

You can download the application here:

https://drive.google.com/file/d/0BxTN7r4eULMLd0hVT0lIbTg5ak0/view?usp=sharing

Please read the policy before using the application:

This SOFTWARE PRODUCT is provided by THE PROVIDER as is and with all faults.THE PROVIDER makes no representations or warranties of any kind concerning the safety, suitability, lack of viruses, inaccuracies, typographical errors, or other harmful components of this SOFTWARE PRODUCT. There are inherent dangers in the use of any software, and you are solely responsible for determining whether this SOFTWARE PRODUCT is compatible with your equipment and other software installed on your equipment. You are also solely responsible for the protection of your equipment and backup of your data, and THE PROVIDER will not be liable for any damages you may suffer in connection with using, modifying, or distributing this SOFTWARE PRODUCT -Jorgen Hede -2017 www.hede.org”

 

 

Calculating age from Danish Social security number (CPR Nummer)

This VBA code is designed to calculate the age of a person in an indicated year.COGWHEELS
The danish social security number (CPR -nummer ) a  relatively complex 12 digit generated number representing the identity of an individual Danish Citizen.

In E.g Excel (TM Microsoft)  the problem about using the 5+6 number in order to figure out a persons age is that the following 4 digits places the age in the 19th,  the 20th century or  in the new millennium.
(for more information on the makeup of the number – please go to https://en.wikipedia.org/wiki/Personal_identification_number_(Denmark).

Public Function CPRAGE(InCPR As String, InpYear As String)
 Dim TAge As String
 Dim IAge As Integer
 Dim Placing As String
 Dim Pla As Integer
 Dim FinY As Integer
 'converting
 'extracting the right integers and converting integers into numbers
 'year of birth
 IAge = Mid(InCPR, 5, 2)
 TAge = CInt(IAge)
 'indicator of millenium of birth
 PlacingA = Mid(InCPR, 7, 4)
 Placing = CInt(PlacingA)
 'converting year string into integer
 FinY = CInt(InpYear)

If ((Placing >= 4000 And Placing <= 4999) And (TAge >= 0 And TAge <= 36)) Then
Pla = 2000
End If
 If ((Placing >= 4000 And Placing <= 4999) And (TAge >= 37 And TAge <= 99)) Then
Pla = 1900
End If
If ((Placing >= 5000 And Placing <= 5999) And (TAge >= 0 And TAge <= 57)) Then
Pla = 1900
End If
If ((Placing >= 1 And Placing <= 999) And (TAge >= 1 And TAge <= 150)) Then
Pla = 1900
End If
 If ((Placing >= 1000 And Placing <= 3999) And (TAge >= 1 And TAge <= 150)) Then
Pla = 1900
End If
If ((Placing >= 5000 And Placing <= 8999) And (TAge >= 0 And TAge <= 57)) Then
Pla = 2000
End If
 CPRAGE = FinY - (Pla + TAge)
'Jorgen Hede -All rights reserved 2016
 End Function

how to send an Email via Default Email Client Using C#

This code creates an email and  fetches the email address in Form 1 – textBox3.

 

 private void button2_Click(object sender, EventArgs e)
        {
            mailadr = textBox3.Text;
            String MM;
            MM = “Mailto:” + mailadr + “?subject= headlinetext& body=bodytext”;
            System.Diagnostics.Process proc = new System.Diagnostics.Process();
            proc.StartInfo.FileName = MM;
            proc.Start();
        }

Excel- VBA Script – for adding a “0” in Excel.

For Danish users of Excel ™ it often happens that when pasting 10 digit social security numbers – an initial “0” may be lost.

Below is a simple solution- this VBA – checks if the number has 9 digits- if so it adds a “0” by using a & in front of the number

Function Addone(cprin As String)
Dim INS As String
If Len(cprin) = 9 Then
INS = “0”& cprin
Addone = INS
End If
Addone = INS
If Len(cprin) = 10 Then
INS = cprin
Addone = INS
End If
Addone = INS
End Function