تبدیل تاریخ



تبدیل تاریخ میلادی سیستم به شمسی ::

Function MiladiToShamsi(ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer) As String
Dim A As Date = Year & "/" & Month & "/" & Day
Dim B As New System.Globalization.PersianCalendar
Return B.GetYear(A) & "/" & B.GetMonth(A) & "/" & B.GetDayOfMonth(A)
End Function

جملات نقض

اَللّهُمَّ کُنْ لِوَلِیِّکَ الْحُجَّةِ بْنِ الْحَسَنِ صَلَواتُکَ عَلَیْهِ وَعَلى آبائِهِ فی هذِهِ السّاعَةِ وَفی کُلِّ ساعَةٍ وَلِیّاً وَحافِظاً وَقائِداً وَناصِراً وَدَلیلاً وَعَیْناً حَتّى تُسْکِنَهُ أَرْضَکَ طَوْعاً وَتُمَتِّعَهُ فیها طَویلاً

آموختن بدون اندیشیدن رنجی است بیهوده و اندیشیدن بدون آموختن کاری است بس خطرناک

امانوئل کانت : در به کار گیری فهم خویش دلیر باش !!!

برای شنا کردن به سمت مخالف رودخانه، قدرت و جرات لازم است . وگرنه هر ماهی مرده ای هم می تواند از طرف موافق جریان آب حرکت کند . دکتر علی شریعتی

هرچه داناتر بشوی، از دست دادن وقت برایت آزار دهنده تر است.

هر روز در اطراف ما هزاران سیب از درخت به زمین می افتد اما آنچه وجود ندارد دیدگاه نیوتنی است.

زندگی مثل دوچرخه سواری می مونه ..واسه حفظ تعادلت همیشه باید در حرکت باشی ....آلبرت انیشت

بدترین گناه این است که به کسی که تو را راستگو می پندارد دروغ بگویی.
شکسپیر

تغییر زبان صفحه کلید



Dim c As New System.Globalization.CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(c)