मधुमेह ( Diabetes )

मधुमेह या चीनी की बीमारी एक खतरनाक रोग है। यह बीमारी में हमारे शरीर में अग्नाशय द्वारा इंसुलिन का स्त्राव कम हो जाने के कारण होती है। रक्त ग्लूकोज स्तर बढ़ जाता है, साथ ही इन मरीजों में रक्त कोलेस्ट्रॉल, वसा के अवयव भी असामान्य हो जाते हैं। धमनियों में बदलाव होते हैं। इन मरीजों में आँखों, गुर्दों, स्नायु, मस्तिष्क, हृदय के क्षतिग्रस्त होने से इनके गंभीर, जटिल, घातक रोग का खतरा बढ़ जाता है।

मधुमेह होने पर शरीर में भोजन को ऊर्जा में परिवर्तित करने की सामान्य प्रक्रिया तथा होने वाले अन्य परिवर्तनों का विवरण इस प्रकार से है। किया गया भोजन पेट में जाकर एक प्रकार के ईंधन में बदलता है जिसे ग्लूकोज कहते हैं। यह एक प्रकार की शर्करा होती है। ग्लूकोज रक्त धारा में मिलता है और शरीर की लाखों कोशिकाओं में पहुंचता है। अग्नाशय वह अंग है जो रसायन उत्पन्न करता है और इस रसायन को इंसुलिन कहते हैं। इनसुलिन भी रक्तधारा में मिलता है और कोशिकाओं तक जाता है। ग्लूकोज से मिलकर ही यह कोशिकाओं तक जा सकता है। शरीर को ऊर्जा देने के लिए कोशिकाएं ग्लूकोज को उपापचित (जलाती) करती है। ये प्रक्रिया सामान्य शरीर में होती हैं।

मधुमेह होने पर शरीर को भोजन से ऊर्जा प्राप्त करने में कठिनाई होती है। पेट फिर भी भोजन को ग्लूकोज में बदलता रहता है। ग्लूकोज रक्त धारा में जाता है। किन्तु अधिकांश ग्लूकोज कोशिकाओं में नही जा पाते

• जिन रोगियों को बार-बार पेशाब आना, अधिक प्यास लगना, घाव धीरे-धीरे भरना ऐसे लक्षण हो उन रोगियों को वजन घटाना चाहिये
• नीम की सात से आठ हरी मुलायम पत्तियां सुबह हर रोज खाली पेट चबाकर उसका रस निगल जाये ऐसा नियमित करते रहने से शुगर पर नियन्त्रण बना रहता है
• शुगर वाला रोगी कपालभाति प्राणायाम  एवं मण्डुकासन करे

घृत कुमारी या एलोवेरा

घृत कुमारी या एलोवेरा के अर्क का प्रयोग बड़े स्तर पर सौंदर्य प्रसाधन और वैकल्पिक औषधि उद्योग जैसे चिरयौवनकारी (त्वचा को युवा रखने वाली क्रीम), आरोग्यी या सुखदायक के रूप में प्रयोग किया जाता है, लेकिन घृत कुमारी के औषधीय प्रयोजनों के प्रभावों की पुष्टि के लिये बहुत कम ही वैज्ञानिक साक्ष्य मौजूद है और अक्सर एक अध्ययन दूसरे अध्ययन की काट करता प्रतीत होता है। इस सबके बावजूद, कुछ प्रारंभिक सबूत है कि घृत कुमारी मधुमेह के इलाज में काफी उपयोगी हो सकता है साथ ही यह मानव रक्त में लिपिड का स्तर काफी घटा देता है। माना जाता है ये सकारात्मक प्रभाव इसमे उपस्थिति मन्नास, एंथ्राक्युईनोनेज़ और लिक्टिन जैसे यौगिकों के कारण होता है। इसके अलावा मानव कल्याण संस्थान के निदेशक और सेवानिवृत्त चिकित्सा अधिकारी डॉ॰गंगासिंह चौहान ने काजरी के रिटायर्ड वैज्ञानिक डॉ॰ए पी जैन के सहयोग से एलोविरा और मशरूम के कैप्सूल तैयार किए हैं, जो एड्स रोगियों के लिए बहुत लाभदायक हैं। यह रक्त शुद्धि भी करता है।

आँवला, एक स्वास्थ्यवर्धक फल

आँवला दाह, खाँसी, श्वास रोग, कब्ज, पाण्डु, रक्तपित्त, अरुचि, त्रिदोष, दमा, क्षय, छाती के रोग, हृदय रोग, मूत्र विकार आदि अनेक रोगों को नष्ट करने की शक्ति रखता है। वीर्य को पुष्ट करके पौरुष बढ़ाता है, चर्बी घटाकर मोटापा दूर करता है। सिर के केशों को काले, लम्बे व घने रखता है। दाँत-मसूड़ों की खराबी दूर होना, कब्ज, रक्त विकार, चर्म रोग, पाचन शक्ति में खराबी, नेत्र ज्योति बढ़ना, बाल मजबूत होना, सिर दर्द दूर होना, चक्कर, नकसीर, रक्ताल्पता, बल-वीर्य में कमी, बेवक्त बुढ़ापे के लक्षण प्रकट होना, यकृत की कमजोरी व खराबी, स्वप्नदोष, धातु विकार, हृदय विकार, फेफड़ों की खराबी, श्वास रोग, क्षय, दौर्बल्य, पेट कृमि, उदर विकार, मूत्र विकार आदि अनेक व्याधियों के घटाटोप को दूर करने के लिए आँवला काफी उपयोगी है।

Excel Function Formula to Convert Rupees in Figure to Word in Excel Sheet

Following function convert ( Rupees in figure ) numeric value in a Microsoft Excel worksheet cell into its equivalent in (Rupees in Word ) English words.
e.g.  =SpellNumber(5678) will display as Rupees Five Thousand Six Hundred SeventyEight Only

After copying following code, Enable macro and use above function.

How to create the sample function Called SpellNumber

Start Microsoft Excel.
Press ALT+F11 to start the Visual Basic Editor.
On the Insert menu, click Module.
Type the following code into the module sheet.

Function SpellNumber(amt As Variant) As Variant
Dim FIGURE As Variant
Dim LENFIG As Integer
Dim i As Integer
Dim WORDs(19) As String
Dim tens(9) As String
WORDs(1) = "One"
WORDs(2) = "Two"
WORDs(3) = "Three"
WORDs(4) = "Four"
WORDs(5) = "Five"
WORDs(6) = "Six"
WORDs(7) = "Seven"
WORDs(8) = "Eight"
WORDs(9) = "Nine"
WORDs(10) = "Ten"
WORDs(11) = "Eleven"
WORDs(12) = "Twelve"
WORDs(13) = "Thirteen"
WORDs(14) = "Fourteen"
WORDs(15) = "Fifteen"
WORDs(16) = "Sixteen"
WORDs(17) = "Seventeen"
WORDs(18) = "Eighteen"
WORDs(19) = "Nineteen"
tens(2) = "Twenty"
tens(3) = "Thirty"
tens(4) = "Fourty"
tens(5) = "Fifty"
tens(6) = "Sixty"
tens(7) = "Seventy"
tens(8) = "Eighty"
tens(9) = "Ninety"
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)
If FIGLEN < 12 Then
FIGURE = Space(12 - FIGLEN) & FIGURE
End If
If Val(Left(FIGURE, 9)) > 1 Then
SpellNumber = "Rupees "
ElseIf Val(Left(FIGURE, 9)) = 1 Then
SpellNumber = "Rupee "
End If
For i = 1 To 3
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Crore "
ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Lakh "
ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Thousand "
End If
FIGURE = Mid(FIGURE, 3)
Next i
If Val(Left(FIGURE, 1)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred "
End If
FIGURE = Mid(FIGURE, 2)
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
FIGURE = Mid(FIGURE, 4)
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Paise "
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
End If
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Only "
End If
End Function