Algorithm for Nepali date conversion

If you are looking for code to put in your website visit http://nepalidateconve.sourceforge.net/ to download php code.

.....i don't have time to read..download NepaliDateConverterAddIn.xlsm now.

The codes

Nepali date conversion consists of two parts

A. Data of number of days that occur in each month in each year. This is the reason why all the Nepali date conversion programs have its limitations

B. Algorithm to convert the date from AD to BS or vice versa.

This is explained with the code in VBA (in Excel) below with the required steps.

1. Open MS Excel

2. Open Visual Basic editor (short cut Alt + F11)

3. Insert a class module

4. Rename the class module to Nepali_Calender in Properties window (F4)

5. Paste the code 1 given at the end of this article

6. Insert a Module (normal module not class module!) and Paste the code 2 . It consists of two functions :

a. nepaliToEnglish(y,m,d,formateCode)

b. englishToNepali(y,m,d,formateCode)

where y,m,d=year, month and day and formate code will display the desired output format

Formate code	Formate
0	20671/25
1	2067-Mangsir-25
2	2067-Mangsir-25-Saturday

7. Now close the editor

8. Save your file as *.xlsm (macro enabled)

9. Now you can use two functions made in step 6

10. To make these functions available to all the worksheets

a. save this sheet as add-ins *.xlam format

b. then enable it at Excel Options>Add in>Manage

c. the function will be available as user defined function under Insert functions

11. . In this code the limits are

a. AD 1944-2033

b. BS 2000-2089

c. if date is out of range then output is string "Out of range"

The readymade file is also available. Download NepaliDateConverterAddIn.xlsm now.

If you are looking for code to put in your website visit http://nepalidateconve.sourceforge.net/ to download php code.

Code1

Option Explicit

'the original sorce code of this program is found in sourceforge.net

'the code in php was translated to VBA

'this add-in is copyfree and can be distributed freely in multiple copies

'the user should be responsible for the use of this add in

'the author is not liable for any damage that may occur by using this add-in

'modification to the code is welcome. Any additional data in the code if notified over the internet will be usefull to all

'***********************************************************************************************************

'*******currently can only calculate the date between BS 2000-2089 and AD 1944-2033*************************

'***********************************************************************************************************

'Coder: Nirmal Raj Joshi

'@copyfree nirmaljoshi.com.np,2010

'joshi.amn@gmail.com

Private bs As Variant

Public nep_date As Dictionary

Public eng_date As Dictionary

Public debug_info

Sub initilizeClass()

ReDim bs(90)

bs(0) = Array(2000, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31)

bs(1) = Array(2001, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(2) = Array(2002, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(3) = Array(2003, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(4) = Array(2004, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31)

bs(5) = Array(2005, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(6) = Array(2006, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(7) = Array(2007, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(8) = Array(2008, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 29, 31)

bs(9) = Array(2009, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(10) = Array(2010, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(11) = Array(2011, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(12) = Array(2012, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 30, 30)

bs(13) = Array(2013, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(14) = Array(2014, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(15) = Array(2015, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(16) = Array(2016, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 30, 30)

bs(17) = Array(2017, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(18) = Array(2018, 31, 32, 31, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(19) = Array(2019, 31, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31)

bs(20) = Array(2020, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30)

bs(21) = Array(2021, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(22) = Array(2022, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 30)

bs(23) = Array(2023, 31, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31)

bs(24) = Array(2024, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30)

bs(25) = Array(2025, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(26) = Array(2026, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(27) = Array(2027, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31)

bs(28) = Array(2028, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(29) = Array(2029, 31, 31, 32, 31, 32, 30, 30, 29, 30, 29, 30, 30)

bs(30) = Array(2030, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(31) = Array(2031, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31)

bs(32) = Array(2032, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(33) = Array(2033, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(34) = Array(2034, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(35) = Array(2035, 30, 32, 31, 32, 31, 31, 29, 30, 30, 29, 29, 31)

bs(36) = Array(2036, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(37) = Array(2037, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(38) = Array(2038, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(39) = Array(2039, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 30, 30)

bs(40) = Array(2040, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(41) = Array(2041, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(42) = Array(2042, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(43) = Array(2043, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 30, 30)

bs(44) = Array(2044, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(45) = Array(2045, 31, 32, 31, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(46) = Array(2046, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(47) = Array(2047, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30)

bs(48) = Array(2048, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(49) = Array(2049, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 30)

bs(50) = Array(2050, 31, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31)

bs(51) = Array(2051, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30)

bs(52) = Array(2052, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(53) = Array(2053, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 30)

bs(54) = Array(2054, 31, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31)

bs(55) = Array(2055, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(56) = Array(2056, 31, 31, 32, 31, 32, 30, 30, 29, 30, 29, 30, 30)

bs(57) = Array(2057, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(58) = Array(2058, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31)

bs(59) = Array(2059, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(60) = Array(2060, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(61) = Array(2061, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(62) = Array(2062, 30, 32, 31, 32, 31, 31, 29, 30, 29, 30, 29, 31)

bs(63) = Array(2063, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(64) = Array(2064, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(65) = Array(2065, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(66) = Array(2066, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 29, 31)

bs(67) = Array(2067, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(68) = Array(2068, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(69) = Array(2069, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(70) = Array(2070, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 30, 30)

bs(71) = Array(2071, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(72) = Array(2072, 31, 32, 31, 32, 31, 30, 30, 29, 30, 29, 30, 30)

bs(73) = Array(2073, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31)

bs(74) = Array(2074, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30)

bs(75) = Array(2075, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(76) = Array(2076, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 30)

bs(77) = Array(2077, 31, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31)

bs(78) = Array(2078, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30)

bs(79) = Array(2079, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30)

bs(80) = Array(2080, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 30)

bs(81) = Array(2081, 31, 31, 32, 32, 31, 30, 30, 30, 29, 30, 30, 30)

bs(82) = Array(2082, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 30, 30)

bs(83) = Array(2083, 31, 31, 32, 31, 31, 30, 30, 30, 29, 30, 30, 30)

bs(84) = Array(2084, 31, 31, 32, 31, 31, 30, 30, 30, 29, 30, 30, 30)

bs(85) = Array(2085, 31, 32, 31, 32, 30, 31, 30, 30, 29, 30, 30, 30)

bs(86) = Array(2086, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 30, 30)

bs(87) = Array(2087, 31, 31, 32, 31, 31, 31, 30, 30, 29, 30, 30, 30)

bs(88) = Array(2088, 30, 31, 32, 32, 30, 31, 30, 30, 29, 30, 30, 30)

bs(89) = Array(2089, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 30, 30)

bs(90) = Array(2090, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 30, 30)

Set nep_date = New Dictionary

nep_date.Add "year", 0

nep_date.Add "month", 0

nep_date.Add "date", 0

nep_date.Add "day", 0

nep_date.Add "nmonth", 0

nep_date.Add "num_day", 0

Set eng_date = New Dictionary

eng_date.Add "year", 0

eng_date.Add "month", 0

eng_date.Add "date", 0

eng_date.Add "day", 0

eng_date.Add "emonth", 0

eng_date.Add "num_day", 0

End Sub

' /**

' * Calculates wheather english year is leap year or not

' *

' * @param integer $year

' * @return boolean

' */'

Public Function is_leap_year(year) As Boolean

Dim a, returnVal

a = year

If a Mod 100 = 0 Then

If a Mod 400 = 0 Then

returnVal = True

Else

returnVal = False

End If

Else

If a Mod 4 = 0 Then

returnVal = True

Else

returnVal = False

End If

End If

is_leap_year = returnVal

End Function

Public Function get_nepali_month(m)

Dim n_month

n_month = False

Select Case m

Case 1:

n_month = "Baishak"

Case 2:

n_month = "Jestha"

Case 3:

n_month = "Ashad"

Case 4:

n_month = "Shrawn"

Case 5:

n_month = "Bhadra"

Case 6:

n_month = "Ashwin"

Case 7:

n_month = "Kartik"

Case 8:

n_month = "Mangshir"

Case 9:

n_month = "Poush"

Case 10:

n_month = "Magh"

Case 11:

n_month = "Falgun"

Case 12:

n_month = "Chaitra"

End Select

get_nepali_month = n_month

End Function

Public Function get_english_month(m)

Dim eMonth

eMonth = False

Select Case m

Case 1

eMonth = "January"

Case 2:

eMonth = "February"

Case 3:

eMonth = "March"

Case 4:

eMonth = "April"

Case 5:

eMonth = "May"

Case 6:

eMonth = "June"

Case 7:

eMonth = "July"

Case 8:

eMonth = "August"

Case 9:

eMonth = "September"

Case 10:

eMonth = "October"

Case 11:

eMonth = "November"

Case 12:

eMonth = "December"

End Select

get_english_month = eMonth

End Function

Public Function get_day_of_week(d)

Dim day

day = False

Select Case d

Case 1:

day = "Sunday"

Case 2:

day = "Monday"

Case 3:

day = "Tuesday"

Case 4:

day = "Wednesday"

Case 5:

day = "Thursday"

Case 6:

day = "Friday"

Case 7:

day = "Saturday"

End Select

get_day_of_week = day

End Function

Public Function is_range_eng(yy, mm, dd)

Dim returnVal

returnVal = True

If (yy < 1944 Or yy > 2033) Then

debug_info = "Supported only between 1944-2022"

returnVal = False

End If

If (mm < 1 Or mm > 12) Then

debug_info = "Error! value 1-12 only"

returnVal = False

End If

If (dd < 1 Or dd > 31) Then

debug_info = "Error! value 1-31 only"

returnVal = False

End If

is_range_eng = returnVal

End Function

Public Function is_range_nep(yy, mm, dd)

Dim returnVal

returnVal = True

If (yy < 2000 Or yy > 2089) Then

debug_info = "Supported only between 2000-2089"

returnVal = False

End If

If (mm < 1 Or mm > 12) Then

debug_info = "Error! value 1-12 only"

returnVal = False

End If

If (dd < 1 Or dd > 32) Then

debug_info = "Error! value 1-31 only"

returnVal = False

End If

is_range_nep = returnVal

End Function

' /**

' * currently can only calculate the date between AD 1944-2033...

' *

' * @param unknown_type $yy

' * @param unknown_type $mm

' * @param unknown_type $dd

' * @return unknown

' */

Public Sub eng_to_nep(yy, mm, dd)

If (is_range_eng(yy, mm, dd) = False) Then

debug_info = "Out of range"

Else

' // english month data.

Dim month, lmonth

month = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

lmonth = Array(31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

Dim def_eyy, def_nyy, def_nmm, def_ndd

Dim total_eDays, total_nDays, a, day

Dim m, y, i, j

Dim numDay

def_eyy = 1944 ' //spear head english date...

def_nyy = 2000: def_nmm = 9: def_ndd = 17 - 1 ' //spear head nepali date...

total_eDays = 0: total_nDays = 0: a = 0: day = 7 - 1 ' //all the initializations...

m = 0: y = 0: i = 0: j = 0

numDay = 0

'// count total no. of days in-terms of year

For i = 0 To yy - def_eyy - 1 ' //total days for month calculation...(english)

If (is_leap_year(def_eyy + i) = True) Then

For j = 0 To 12 - 1

total_eDays = total_eDays + lmonth(j)

Next j

Else

For j = 0 To 12 - 1

total_eDays = total_eDays + month(j)

Next j

End If

Next i

'// count total no. of days in-terms of month

For i = 0 To (mm - 1) - 1

If (is_leap_year(yy) = True) Then

total_eDays = total_eDays + lmonth(i)

Else

total_eDays = total_eDays + month(i)

End If

Next i

' // count total no. of days in-terms of date

total_eDays = total_eDays + dd

i = 0: j = def_nmm

total_nDays = def_ndd

m = def_nmm

y = def_nyy

'// count nepali date from array

Do While (total_eDays <> 0)

a = bs(i)(j)

total_nDays = total_nDays + 1 ' //count the days

day = day + 1 ' //count the days interms of 7 days

If (total_nDays > a) Then

m = m + 1

total_nDays = 1

j = j + 1

End If

If (day > 7) Then

day = 1

End If

If (m > 12) Then

y = y + 1

m = 1

End If

If (j > 12) Then

j = 1: i = i + 1

End If

total_eDays = total_eDays - 1

Loop

numDay = day

nep_date("year") = y

nep_date("month") = m

nep_date("date") = total_nDays

nep_date("day") = get_day_of_week(day)

nep_date("nmonth") = get_nepali_month(m)

nep_date("num_day") = numDay

End If

End Sub

'

' /**

' * currently can only calculate the date between BS 2000-2089

' *

' * @param unknown_type $yy

' * @param unknown_type $mm

' * @param unknown_type $dd

' * @return unknown

' */

Public Sub nep_to_eng(yy, mm, dd)

Dim def_eyy, def_emm, def_edd

Dim def_nyy, def_nmm, def_ndd

Dim total_eDays, total_nDays, a, day

Dim m, y, i, j

Dim k, numDay

Dim month, lmonth

def_eyy = 1943: def_emm = 4: def_edd = 14 - 1 '// init english date.

def_nyy = 2000: def_nmm = 1: def_ndd = 1 ' // equivalent nepali date.

total_eDays = 0: total_nDays = 0: a = 0: day = 4 - 1 ' // initializations...

m = 0: y = 0: i = 0

k = 0: numDay = 0

month = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

lmonth = Array(0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

If (is_range_nep(yy, mm, dd) = False) Then

debug_info = "Out of range"

Else

'// count total days in-terms of year

For i = 0 To yy - def_nyy - 1

For j = 1 To 12

total_nDays = total_nDays + bs(k)(j)

Next j

k = k + 1

Next i

'// count total days in-terms of month

For j = 1 To mm - 1

total_nDays = total_nDays + bs(k)(j)

Next j

'// count total days in-terms of dat

total_nDays = total_nDays + dd

'//calculation of equivalent english date...

total_eDays = def_edd

m = def_emm

y = def_eyy

Do While (total_nDays <> 0)

If (is_leap_year(y)) Then

a = lmonth(m)

Else

a = month(m)

End If

total_eDays = total_eDays + 1

day = day + 1

If (total_eDays > a) Then

m = m + 1

total_eDays = 1

If (m > 12) Then

y = y + 1

m = 1

End If

End If

If (day > 7) Then day = 1

total_nDays = total_nDays - 1

Loop

numDay = day

eng_date("year") = y

eng_date("month") = m

eng_date("date") = total_eDays

eng_date("day") = get_day_of_week(day)

eng_date("emonth") = get_english_month(m)

eng_date("num_day") = numDay

End If

End Sub

Code 2

Public Function nepaliToEnglish(yy, mm, dd, formate)

' this function depends on Nepali_calander class

'@copyfree nirmaljoshi.com.np,2010

'formateType default=2010/1/25

'formateType 1=2010-jan-25

'formateType 2=2010-jan-25-saturday

If IsMissing(formate) Then formateType = 0

'MsgBox formateType

Dim a As Nepali_Calender

Set a = New Nepali_Calender

Call a.initilizeClass

Call a.nep_to_eng(yy, mm, dd)

If a.debug_info = "" Then

Select Case formate

Case 1:

output = a.eng_date("year") & "-" & a.eng_date("emonth") & "-" & a.eng_date("date")

Case 2:

output = a.eng_date("year") & "-" & a.eng_date("emonth") & "-" & a.eng_date("date") & "-" & a.eng_date("day")

Case Else:

output = a.eng_date("year") & "/" & a.eng_date("month") & "/" & a.eng_date("date")

End Select

Else

output = a.debug_info

End If

nepaliToEnglish = output

End Function

Public Function englishToNepali(yy, mm, dd, formate)

' this function depends on Nepali_calander class

'@copyfree nirmaljoshi.com.np,2010

'formateType default=20671/25

'formateType 1=2067-mangsir-25

'formateType 2=2067-mangsir-25-saturday

If IsMissing(formate) Then formateType = 0

'MsgBox formateType

Dim a As Nepali_Calender

Set a = New Nepali_Calender

Call a.initilizeClass

Call a.eng_to_nep(yy, mm, dd)

If a.debug_info = "" Then

Select Case formate

Case 1:

output = a.nep_date("year") & "-" & a.nep_date("nmonth") & "-" & a.nep_date("date")

Case 2:

output = a.nep_date("year") & "-" & a.nep_date("nmonth") & "-" & a.nep_date("date") & "-" & a.nep_date("day")

Case Else:

output = a.nep_date("year") & "/" & a.nep_date("month") & "/" & a.nep_date("date")

End Select

Else

output = a.debug_info

End If

englishToNepali = output

End Function

Hydrological stations of Nepal

Here is list of hydrological station of Nepal installed by department of hydrology and meterology. The location of these places can be seen by downloading this google earth file "hydrologicalStationOfNepal.kml".

The data listed below can be downloaded as excel file here.

SN	Station No.	Name of the River	Location Name	Latitude			Longitude			Elevation m	Drainage Area sq. km	Start of Record	End of Record
1	120	Chamelia River	Karkale Gaon	29	40	20	80	33	30	724	1150	01/01/65
2	169	Surnaya Gad	Gujar Gaon	29	31	0	80	35	0	1275
3	170	Sumagad River	Patan near Baitadi	29	27	30	80	33	10	1110	188	23/05/69
4	220	Tila Nala	Nagma	29	19	0	81	55	0	1935	1870	19/03/64
5	225	Sinja Khola	Diware	29	19	0	81	55	0	1943	824	17/03/64
6	240	Kamali River	Asara Ghat	28	57	10	81	26	30	629	19260	01/01/61
7	250	Karnali River	Benighat	28	57	40	81	7	10	320	21240	01/02/63
8	260	Seti River	Banga Near Bel Gaon	28	57	40	81	8	40	328	7460	06/02/63
9	262	Thuli Gad	Khanayatal Near Bel Gaon	28	56	10	80	58	0	314	896	17/06/65
10	265	Thulo Bheri River	Rimna	28	42	30	82	17	30	550	6720	18/06/72
11	270	Bheri River	Jamii	28	45	20	81	21	0	246	12290	23/01/63
12	280	Kamali River	Chisa Pani	28	38	40	81	17	30	191	42890	01/01/62
13	286	Sarada Khola	Daredhunga	28	17	58	82	1	30	579		26299
14	290	Babai River	bargadha	28	25	20	81	22	10	192	3000	16/07/66
15	330	Mari Khola	Naya Gaon	28	4	20	82	48	0	536	1980	01/01/64
16	339.5	Jhimruk Khola	Tigra Gaon	28	3	0	82	49	40	762	683	22/05/71
17	340	Jhrimruk Khola	Kalimati Ghat	28	2	10	82	53	0	692	696	01/01/65	21/05/71
18	350	Rapti River	Bagasoti Gaon	27	54	0	82	51	0	381	3380	08/05/75
19	360	Rapti River	Jalkundi	27	56	50	82	13	30	218	5150	08/04/64
20	375	Rapti River	Kusum	28	0	27	82	5	35	235		21/12/2002
21	390	Tinau Khola	Butwal	27	42	10	83	27	50	184	554	09/12/63
22	395	Banganga River	Bangachia	27	49	50	83	6	40	571	347	01/01/66	omitted
23	404.7	Myagdi Khola	Mangia Ghat	28	21	30	83	32	0	914	1112	19/05/75
24	410	Kali Gandaki	Seti Beni	28	0	30	83	36	10	546	6630	21/02/64
25	415	Andhi Khola	Duinrichaur, Andhimuhan	27	58	20	83	35	20	543	476	06/04/64
26	417	Badigad Khola	Rudrabeni, Gulmi	27	58	20	83	28	10	731	1990	24/05/67
27	419	Kali Gandaki	Angsing	27	53	24	83	48	0	351.05		13/04/1989
28	420	Kali Gandaki	Kota Gaon	27	45	0	84	20	50	198	11400	15/04/64
29	428	Mardi Khola	Lahachok	28	18	30	84	20	50	915	160	07/06/70
30	430	Seli River	Phoolbari	28	14	0	84	0	0	830	582	01/01/64	omitted
31	438	Madi Khola	Shisa Ghat	28	6	0	84	14	0	457	858	08/02/73
32	439	Marsandi River	Bimalnagar	27	57	0	84	25	48	354		31/03/87
33	439.3	Khudi Kliola	Kliudi Bazar	28	17	15	84	21	45	990	151	04/07/81
34	439.7	Marsyangdi River	Bimal Nagar	27	57	0	84	25	48	354	3774	31/03/87
35	439.8	Marsyangdi River	Gopling Ghat	27	55	35	84	29	42	320	3850	01/06/73	24/06/88
36	440	Chepe Khola	Garani Besi	28	3	41	84	29	23	442	308	20/11/63
37	445	Burhi Gandaki	Aru Ghat	28	2	37	84	48	59	485	4270	28/11/63
38	446	Phalanku Khola	Betrawati	27	58	25	85	11	15	630		24/2/69
39	446.8	Phalandu Khola	Betrawati	27	58	25	85	11	15	630	162	24/04/69
40	447	Trisuli River	Betrawati	27	58	8	85	11	0	600	4110	01/04/67
41	448	Tadi Kliola	Tadi Pool, Belkot	27	51	35	85	8	18	475	653	14/06/68
42	450	Narayani River	Narayan Ghat	27	42	30	84	25	50	180	31100	10/02/62
43	460	Rapli River	Rajaiya	27	26	30	84	58	15	332	579	01/01/63
44	465	Manahari River	Manahari	27	33	0	84	48	10	305	427	13/06/63
45	470	Lotliar Kliola	Lothar	27	35	40	84	43	0	336	169	30/11/63
46	475	Kliageri Kliola	Tikauli	27	37	20	84	30	0	195	118	01/08/64	omitted
47	480	Kair Kliola	Jurrpani	27	40	40	84	33	40	241	80	01/01/64	omitted
48	485	Buri Rapti	Chitrasari	27	37	0	84	29	15	189	184	01/01/64	20/07/88
49	505	Bagamati River	Sundarijal	27	6	30	85	27	10	1600	17	07/12/62
50	507	Nagmati River	Sundarijal	27	46	20	85	26	10	1660	13	01/11/63	27/08/92
51	510	Sialmati	Shyamdado	27	46	10	85	25	10	1660	3	01/11/63	28/08/92
52	530	Bagmati River	Gaurighat	27	42	30	85	21	0	1300	68	15/11/64
53	536.2	Bislmumati Kliola	Budhanilkantha	27	46	49	85	21	32	1454	4	27/05/68	27/08/92
54	540	Nakliu Khola	Tika Bhairab	27	34	30	85	18	50	1400	43	23/11/62	18/04/88
55	550	Bagmati River	Chovar	27	39	40	85	17	50	1280	585	08/07/62	omitted
56	560	Thado Khola	Darkot- Markhu	27	36	20	85	9	0	1830	14	01/01/64	omitted
57	565	Kulekhani Khola	Lamichaur	27	36	13	85	9	39	1514	122	17/07/75	09/12/78
58	570	Kulekhani Khola	Kulekhani	27	35	10	85	9	30	1480	126	01/12/62	15/11/77
59	589	Bagamati River	Pandhera Dovan	27	6	20	85	28	30	180	2700	28/01/79
60	590	Bagmati River	Kamiaiya, Mangalpur	27	6	20	85	28	30	177	2720	21/06/64	17/10/84
61	600	Arun River	Uwa Goan	27	36	0	87	20	6	1294		26608
62	600.1	Arun River	Uwa Gaon	27	36	0	87	20	6	1294	26750	11/05/72
63	602	Sabhaya Khola	Tumlingtar	27	18	20	87	13	15	305	375	02/01/74
64	604	Arun River	Turkeghat	27	20	0	87	11	30	414		23/05/75
65	604.5	Arun River	Turkeghat	27	20	0	87	11	30	414	28200	23/05/75
66	606	Arun River	Simie	26	55	30	87	9	30	152	30380
67	610	Bhote Koshi	Barabise	27	47	10	85	53	20	840	2410	17/02/65
68	620	Balaphi Khola	Jalbire	27	48	20	85	46	10	793	629	25/12/63
69	625	Sunkoshi River	Dolalghat	28	38	30	85	43	0
70	627	Melanchi Khola	Helambu	28	2	30	85	32	0	2134
71	627.5	Melamchi Khola	Helambu	28	2	30	85	32	0	2134	84
72	629	Indrawati River	Dolalghat	27	38	20	85	42	30			26559
73	630	Sun Koshi	Pachuar Ghat	27	33	30	85	45	10	589	4920	26/03/64
74	640	Roshi Khola	Panauti	27	34	50	85	30	50	1480	87	17/10/63
75	647	Tama Koshi	Busti	27	38	5	86	5	12	849	2753	14/01/70
76	650	Khimti Khoal	Rasnalu Village	27	34	30	86	11	50	1520	313	06/04/64
77	652	Sun Koshi	Khurkot	27	20	0	86	0	0	455	10000	01/07/67
78	660	Likhu Kliola	Sangutar	27	20	10	86	13	10	543	823	24/03/64
79	665	Sunkoshi River	Tokselghat	27	10	30	86	22	0			20/02/1986
80	668.4	Taktor Kliola	Beni	27	31	45	86	33	30	2350	87	/76
81	670	Dudli Koslii	Rabuwa Bazar	27	16	0	86	39	50	460	4100	10/03/64
82	680	Sun Koslii	Hampuachuwar	26	52	30	86	49	20	200	17600	28/06/65
83	684	Tamur Majliitar		27	9	30	87	42	45	533	4076
84	690	Tamur River	Mulghat	26	55	50	87	19	45	276	5640	11/03/65
85	695	Sapta Koshi	Chatara-Kothu	26	52	0	87	9	30	140	54100	01/01/77
86	728	Mai Khola	Rajdwil	26	52	45	87	55	45	609	377	01/01/83
87	730	Puwa Kliola	Sajbote Ham	26	55	0	87	54	40	802	107	18/01/65
88	738	Maikhola	Rajdwali	26	52	45	87	55	45	609		30317
89	770	Kankai Mai River	Chepti	26	43	50	87	52	30	140	1150	21/02/64	29/08/74
90	795	Kankai Mai Khola	Mainachuli	26	41	12	87	52	44	125	1148	01/05/71

Autocad calculation using fields and blocks

While drafting in AutoCAD, sometimes we come to situation where we need to upadate some text based on values of other text (similar to using formulas as in excel). In such case we can use FIELDS of Autocad to do our calculations and update the drawings automatically.

Basics:

The basic method to use field is very easy. Try following steps to get the idea.

>>MTEXT (type some number say 151) and click ok

>>MTEXT>Instert Field (or directly use FIELD command) : a dialog box will appear as shown below

-Select Field category: Objects

-Field names: Formula

-In Formula filed: right click >insert field : this will open new field window (the idea is use field value within another field)

-In this new Filed dialog box choose

-Filed names: Objects

-Objet type:Select the Mtext with the input number

-Property:Contents

-Click Ok

Now in the original window there will be some value like 151 at the end type *2 so the content will look like 151*2

-Click ok

The new Mtext will change to value showing 302.

-To edit the formula, double click the field.

Now if the first Mtext value is changed to 100 from 151 then after REGENERATEing the drawing. The field will show 200.

For blocks

The fields will work not only in Mtext but also in Block attributes, hence making life easy to create blocks which has multiple values based on some formula of few input parameters. For eg a scale block (as shown below). However, there are few differences. A sample method is given below using example of scale block:

- Draw the shapes (lines, hatch etc)

-Define block attributes (name them L1, R1,R2,R3,R4,R5,SCALE) (i made SCALE as hidden so that it will not be visible and will be used for calculation only) also i made all tags prompting to "DO NOT EDIT" as you will see later as these values should be updated automatically).

-Create block using BLOCK command

Now double click the box to change attibute value (say for value of L1).

-in Value field >right click>edit field

Now the field dialog box appears as discussed above.

-Select formula in field name

-in formula right click >Add fileds

New field dialog box appears

-select Object in field names

-select the Block that you had just created in Object type

-all tags will appear in the property (L1, R1,R2,R3,R4,R5,SCALE)

-Chose the tag that you want to use (here SCALE). Click ok

Back in the formula write the required formula using this variable (eg 1000*50)

-Click ok

Close all the dialog box

Now if you change value of SCALE tag and regenerate, the value of L1 will change according to the formula specified.

Repeat the process for all the tags to get required value.