By default all computer have number grouping of 1000 separator system, like ###,###,###. But we Indians follow 1000 and 100 separator system like ##,##,###. We can change this default setting to the Indian System in Windows 7. I have not checked in Windows XP.
Follow the below steps to change the default settings
An easy way by means of Windows Search
1. Press Windows Button
2. Type "Regional Settings" in the search box
3. select "Change the date, time and number format"
4. In the "Formats" tab select "Additional settings"
5. Under the "Numbers" tab see Digits Grouping" and change it to the Indian system.
Manual steps if you don't have Windows Search
1. Go to "Control Panel"
2. Select "Region and Language" or if you have a Categorized view select "Clock, Language, and Region" and "Change the date, time and Number format".
3. Go to Step 4 above
Number system grouping in Indian system in Excel
Working as a software engineer, started blogging to share the information. My posts usually includes, tips and tricks on daily computer use, and how to series on MS Office.
How to To Turn Off Automatic Log On and remove welcome screen
How to To Turn Off Automatic Log On and remove the welcome screen? This is applicable to Microsoft Windows 7.
1. Switch on your computer or Laptop
2. Press Windows Key + R, or go running in the Start Menu
1. Switch on your computer or Laptop
2. Press Windows Key + R, or go running in the Start Menu
3. and in the search bar type netplwiz, press enter
You can see the bellow window.
4. Go to the advanced tab.
5. check the checkbox at the end
Working as a software engineer, started blogging to share the information. My posts usually includes, tips and tricks on daily computer use, and how to series on MS Office.
How to disable or enable fn keys in HP laptops?
I have been struggling with fn keys with my new HP laptop. In all (many) new HP laptops these keys are mapped to action keys by default. Action Keys are nothing but special function keys that can be used to up/down the volume, brightness projector, etc. And this is not only with HP Laptops but almost all new PC makers have this as a default behavior. This may be useful if the PC or the Laptop is used for home entertainment, where most of the function keys are used for controlling the audio and video. But if the PC is being used for other purposes, function keys should have their original action associated.
But if you want to use the F1 key for Help you have to press Fn+F1. This is the default behavior and this is annoying at times as it requires one more key to pressed and held, and we are not used to it with the earlier version of Windows. I checked with HP service center, they said it cannot be changed. I guess they did not want to help me, I was shocked. Later I came to know from a friend that it can be changed in BIOS settings. It was as simple as 1,2, 3.
Follow this procedure
1. restart the pc
2. keep tapping ESC (or the key which takes you to bios settings )
3.go to system configurations
4. there find the Action Key Mode
5. Disable it
That's it...
But if you want to use the F1 key for Help you have to press Fn+F1. This is the default behavior and this is annoying at times as it requires one more key to pressed and held, and we are not used to it with the earlier version of Windows. I checked with HP service center, they said it cannot be changed. I guess they did not want to help me, I was shocked. Later I came to know from a friend that it can be changed in BIOS settings. It was as simple as 1,2, 3.
Follow this procedure
1. restart the pc
2. keep tapping ESC (or the key which takes you to bios settings )
3.go to system configurations
4. there find the Action Key Mode
5. Disable it
That's it...
Working as a software engineer, started blogging to share the information. My posts usually includes, tips and tricks on daily computer use, and how to series on MS Office.
Listing details of files and folders in a Directory in c#
You can get the list of files and folders in WIndows explorer or in a DOS prompt. It's often useful to get content of a folder dynamically using some scripts or programs, especially if you need these details in some applications. Below is a chunk of C# code which gives you the details for files and folders of a given path. You can add additional fields to your out based on your need.
Make an executable file, i.e exe, and use it in your application or run it from the command prompt. Results can be redirected to a text file or csv file.
using System;
Make an executable file, i.e exe, and use it in your application or run it from the command prompt. Results can be redirected to a text file or csv file.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
namespace WinConsole
{
class ListFilesOfDirectory
{
public static long size = 0;
public static long totalSizeInMB = 0;
public static long maxSizeInMB = 0;
public static void listFiles(string path)
{
DirectoryInfo di = new DirectoryInfo(path);
DirectoryInfo[] folders = di.GetDirectories();
long[] listOfDir = new long[folders.Length];
int i=0;
foreach (DirectoryInfo d in folders)
{
size = 0;
listOfDir[i] = GetSizeOdDirectory(d);
i += 1;
totalSizeInMB += size / (1024 * 1024);
if (maxSizeInMB <>
maxSizeInMB = size / (1024 * 1024);
}
// display results in tab separated txt file
Console.WriteLine("**\t**\t**\t**\t**");
Console.WriteLine("File\t\t\t\t Size in MB");
for(int j=0;j
{
Console.WriteLine(folders[j].Name + "\t \t \t"+listOfDir[j].ToString());
}
Console.WriteLine("**\t**\t**\t**\t**");
// Console.ReadKey();
}
public static long GetSizeOdDirectory(DirectoryInfo directory)
{
DirectoryInfo[] dir = directory.GetDirectories();
foreach (DirectoryInfo d in dir)
{
GetSizeOdDirectory(d);
}
FileInfo[] files = directory.GetFiles();
foreach (FileInfo f in files)
{
size += f.Length;
}
return size;
}
public static void Main(string[] args)
{
string path=args[0].ToString();
listFiles(path);
}
}
}
Working as a software engineer, started blogging to share the information. My posts usually includes, tips and tricks on daily computer use, and how to series on MS Office.
The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT)) MS Word automation solution
I was frustrated by this error every time I run the below code. I did a lot of googling nothing worked. Even Microsoft said it a known issue we don't recommend this.
Then later just to try I just put one try-catch block and it worked perfectly. To date I have not seen that error.
Working as a software engineer, started blogging to share the information. My posts usually includes, tips and tricks on daily computer use, and how to series on MS Office.
Convert currency to word ( text ) in excel 2.0
Thank you guys for reported bugs in the code (Convert currency to word in excel 1.0) in my earlier post Convert currency to word in excel.
Your comments helped me a lot in fixing this error. There is a new version 2.0 which not only has bug fixes but also can convert up to 1,234,567,890.00.
Download
Working as a software engineer, started blogging to share the information. My posts usually includes, tips and tricks on daily computer use, and how to series on MS Office.
Convert currency to word in excel
There are plenty of online resources to convert Numeric currencies to Text- from $200 to Dollar Two Hundred.
But this is applicable only ###,###,### (comma at every third number)format. This is not suitable for India numbering system, because we follow ##,##,###(....22,22,222) format.
So I have create a excel function to over come this. You can use this function to to convert number up to 10,00,00,000(ten crores).
How to do it
Open Excel
Press Alt + F11
From Menu Bar Insert Module
Copy paste the This Module there.
Exit from VBA window by pressing Alt + F11 again
In excel sheet, Insert Function,
Under user defined find ConvertCurrencyToEnglish
select it and provide the number as a parameter
thats all you are done
----------------------------------------------------------------------
Code (alternatively you can download the module from here)
----------------------------------------------------------------------
' **** Author : Krishna S
' **** Tittle : Converting Hindu Arabic Currency(Indian System) to Words
' **** Description : This utility converts currencies in Indian numbering system to words.
' **** Limitations : Converts only upto 10,00,00,000( Ten Crores)
Function ConvertCurrencyToEnglish(ByVal MyNumber)
Dim Temp
Dim Rupees, Paise
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lac "
Place(4) = " Core "
' Place(5) = " Hundred Core "
' Convert MyNumber to a string, trimming extra spaces.
MyNumber = Trim(Str(MyNumber))
' Find decimal place.
DecimalPlace = InStr(MyNumber, ".")
' If we find decimal place...
If DecimalPlace > 0 Then
' Convert Paise
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
Paise = ConvertTens(Temp)
' Strip off Paise from remainder to convert.
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
If Count = 1 Then
Temp = ConvertHundreds(Right(MyNumber, 3))
If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
' Remove last 3 converted digits from MyNumber.
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Else
' Convert last 3 digits of MyNumber to English Rupees.
Temp = ConvertTens(Right(MyNumber, 2))
If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
' Remove last 3 converted digits from MyNumber.
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = ""
End If
Count = Count + 1
End If
Loop
' Clean up Rupees.
Select Case Rupees
Case ""
Rupees = ""
Case "One"
Rupees = "One Rupee"
Case Else
Rupees = Rupees & " Rupees"
End Select
' Clean up Paise.
Select Case Paise
Case ""
Paise = ""
Case "One"
Paise = " And One Cent"
Case Else
Paise = " And " & Paise & " Paise"
End Select
ConvertCurrencyToEnglish = Rupees & Paise
End Function
Private Function ConvertHundreds(ByVal MyNumber)
Dim Result As String
' Exit if there is nothing to convert.
If Val(MyNumber) = 0 Then Exit Function
' Append leading zeros to number.
MyNumber = Right("000" & MyNumber, 3)
' Do we have a hundreds place digit to convert?
If Left(MyNumber, 1) <> "0" Then
Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "
End If
' Do we have a tens place digit to convert?
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & ConvertTens(Mid(MyNumber, 2))
Else
' If not, then convert the ones place digit.
Result = Result & ConvertDigit(Mid(MyNumber, 3))
End If
ConvertHundreds = Trim(Result)
End Function
Private Function ConvertTens(ByVal MyTens)
Dim Result As String
' Is value between 10 and 19?
If Val(Left(MyTens, 1)) = 1 Then
Select Case Val(MyTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
' .. otherwise it's between 20 and 99.
Select Case Val(Left(MyTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
' Convert ones place digit.
Result = Result & ConvertDigit(Right(MyTens, 1))
End If
ConvertTens = Result
End Function
Private Function ConvertDigit(ByVal MyDigit)
Select Case Val(MyDigit)
Case 1: ConvertDigit = "One"
Case 2: ConvertDigit = "Two"
Case 3: ConvertDigit = "Three"
Case 4: ConvertDigit = "Four"
Case 5: ConvertDigit = "Five"
Case 6: ConvertDigit = "Six"
Case 7: ConvertDigit = "Seven"
Case 8: ConvertDigit = "Eight"
Case 9: ConvertDigit = "Nine"
Case Else: ConvertDigit = ""
End Select
End Function
-----------------------------------------------------------
But this is applicable only ###,###,### (comma at every third number)format. This is not suitable for India numbering system, because we follow ##,##,###(....22,22,222) format.
So I have create a excel function to over come this. You can use this function to to convert number up to 10,00,00,000(ten crores).
How to do it
Open Excel
Press Alt + F11
From Menu Bar Insert Module
Copy paste the This Module there.
Exit from VBA window by pressing Alt + F11 again
In excel sheet, Insert Function,
Under user defined find ConvertCurrencyToEnglish
select it and provide the number as a parameter
thats all you are done
----------------------------------------------------------------------
Code (alternatively you can download the module from here)
----------------------------------------------------------------------
' **** Author : Krishna S
' **** Tittle : Converting Hindu Arabic Currency(Indian System) to Words
' **** Description : This utility converts currencies in Indian numbering system to words.
' **** Limitations : Converts only upto 10,00,00,000( Ten Crores)
Function ConvertCurrencyToEnglish(ByVal MyNumber)
Dim Temp
Dim Rupees, Paise
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lac "
Place(4) = " Core "
' Place(5) = " Hundred Core "
' Convert MyNumber to a string, trimming extra spaces.
MyNumber = Trim(Str(MyNumber))
' Find decimal place.
DecimalPlace = InStr(MyNumber, ".")
' If we find decimal place...
If DecimalPlace > 0 Then
' Convert Paise
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
Paise = ConvertTens(Temp)
' Strip off Paise from remainder to convert.
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
If Count = 1 Then
Temp = ConvertHundreds(Right(MyNumber, 3))
If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
' Remove last 3 converted digits from MyNumber.
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Else
' Convert last 3 digits of MyNumber to English Rupees.
Temp = ConvertTens(Right(MyNumber, 2))
If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
' Remove last 3 converted digits from MyNumber.
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = ""
End If
Count = Count + 1
End If
Loop
' Clean up Rupees.
Select Case Rupees
Case ""
Rupees = ""
Case "One"
Rupees = "One Rupee"
Case Else
Rupees = Rupees & " Rupees"
End Select
' Clean up Paise.
Select Case Paise
Case ""
Paise = ""
Case "One"
Paise = " And One Cent"
Case Else
Paise = " And " & Paise & " Paise"
End Select
ConvertCurrencyToEnglish = Rupees & Paise
End Function
Private Function ConvertHundreds(ByVal MyNumber)
Dim Result As String
' Exit if there is nothing to convert.
If Val(MyNumber) = 0 Then Exit Function
' Append leading zeros to number.
MyNumber = Right("000" & MyNumber, 3)
' Do we have a hundreds place digit to convert?
If Left(MyNumber, 1) <> "0" Then
Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "
End If
' Do we have a tens place digit to convert?
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & ConvertTens(Mid(MyNumber, 2))
Else
' If not, then convert the ones place digit.
Result = Result & ConvertDigit(Mid(MyNumber, 3))
End If
ConvertHundreds = Trim(Result)
End Function
Private Function ConvertTens(ByVal MyTens)
Dim Result As String
' Is value between 10 and 19?
If Val(Left(MyTens, 1)) = 1 Then
Select Case Val(MyTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
' .. otherwise it's between 20 and 99.
Select Case Val(Left(MyTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
' Convert ones place digit.
Result = Result & ConvertDigit(Right(MyTens, 1))
End If
ConvertTens = Result
End Function
Private Function ConvertDigit(ByVal MyDigit)
Select Case Val(MyDigit)
Case 1: ConvertDigit = "One"
Case 2: ConvertDigit = "Two"
Case 3: ConvertDigit = "Three"
Case 4: ConvertDigit = "Four"
Case 5: ConvertDigit = "Five"
Case 6: ConvertDigit = "Six"
Case 7: ConvertDigit = "Seven"
Case 8: ConvertDigit = "Eight"
Case 9: ConvertDigit = "Nine"
Case Else: ConvertDigit = ""
End Select
End Function
-----------------------------------------------------------
Working as a software engineer, started blogging to share the information. My posts usually includes, tips and tricks on daily computer use, and how to series on MS Office.
Subscribe to:
Posts (Atom)
-
On my Youtube channel, I have posted a video that shows how to mirror your mobile screen onto LED or LCD TV which is equipped with Wi-Fi and...
-
There are plenty of online resources to convert Numeric currencies to Text- from $200 to Dollar Two Hundred. But this is ...
-
A normal phone Bluetooth headset can be easily connected to a laptop and it can be used as earphones or headphones while us...
