Have you decided to develop .NET applications with c#? Are you missing some handy functions you know from VBScript? This article shows how to implement them in VBScript.
| Abs |
| VBScript Example |
C# Equivalent |
Dim x
x = Abs(-7)
|
int x;
x = System.Math.Abs(-7);
|
| Array |
| VBScript Example | C# Equivalent |
Dim a, b
a = Array("a", "b", "c")
b = a(1)
|
string[] a = new string[] {"a", "b", "c"};
string b = a[1];
|
| Asc |
| VBScript Example | C# Equivalent |
Dim asciiCode
asciiCode = Asc("A")
|
Byte[] myBytes = System.Text.Encoding.ASCII.GetBytes("A");
Byte asciiCode = myBytes[0];
|
| Atn |
| VBScript Example | C# Equivalent |
Dim pi
pi = 4 * Atn(1)
|
Double pi;
pi = 4 * System.Math.Atan(1);
|
| CBool |
| VBScript Example | C# Equivalent |
Dim bRes
bRes = CBool("true")
|
Boolean bRes;
bRes = Boolean.Parse("true");
Boolean bRes;
bRes = System.Convert.ToBoolean("true");
|
| CByte |
| VBScript Example | C# Equivalent |
Dim btVal
btVal = CByte("123")
|
Byte btVal;
btVal = Byte.Parse("123");
Byte btVal;
btVal = System.Convert.ToByte("123");
|
| CCur |
| VBScript Example | C# Equivalent |
Dim curVal
curVal = CCur("13.99")
|
// The Currency data type is not supported in .NET
// Use of Decimal is recommended.
Decimal curVal;
curVal = Decimal.Parse("13.99");
Decimal curVal;
curVal = System.Convert.ToDecimal("13.99");
|
| CDate |
| VBScript Example | C# Equivalent |
Dim dtFoo
dtFoo = CDate("17.03.1976")
|
DateTime dtFoo;
dtFoo = DateTime.Parse("17.03.1976");
DateTime dtFoo;
dtFoo = System.Convert.ToDateTime("17.03.1976");
|
| CDbl |
| VBScript Example | C# Equivalent |
Dim dblVal
dblVal = CDbl("30.5")
|
Double dblVal;
dblVal = Double.Parse("30.5");
Double dblVal;
dblVal = System.Convert.ToDouble("30.5");
|
| Chr |
| VBScript Example | C# Equivalent |
Dim myStr
myStr = Chr(99)
|
Byte[] myBytes2 = {99};
string myStr = System.Text.Encoding.ASCII.GetString(myBytes2);
|
| CInt |
| VBScript Example | C# Equivalent |
Dim intVal
intVal = CInt("31")
|
Int16 intVal;
intVal = Int16.Parse("31");
Int16 intVal;
intVal = System.Convert.ToInt16("31");
|
| CLng |
| VBScript Example | C# Equivalent |
Dim lngVal
lngVal = CLng("125")
|
Int32 lngVal;
lngVal = Int32.Parse("125");
Int32 lngVal;
lngVal = System.Convert.ToInt32("125");
|
| Cos |
| VBScript Example | C# Equivalent |
Dim myCos
myCos = Cos(1.5)
|
Double myCos;
myCos = Math.Cos(1.5);
|
| CSng |
| VBScript Example | C# Equivalent |
Dim sngVal
sngVal = CSng("2.5")
|
Single sngVal;
sngVal = Single.Parse("2.5");
Single sngVal;
sngVal = System.Convert.ToSingle("2.5");
|
| Date |
| VBScript Example | C# Equivalent |
Dim dtToday
dtToday = Date
|
DateTime dtToday;
dtToday = DateTime.Today;
|
| DateAdd |
| VBScript Example | C# Equivalent |
Dim dtTomorrow
dtTomorrow = DateAdd("d", 1, Date)
|
DateTime dtTomorrow;
dtTomorrow = DateTime.Today.AddDays(1);
DateTime dtTomorrow;
TimeSpan tsOneDay;
tsOneDay = new TimeSpan(1, 0, 0, 0);
dtTomorrow = DateTime.Today.Add(tsOneDay);
|
| DateDiff |
| VBScript Example | C# Equivalent |
Dim intDuration
intDuration = DateDiff("d",
CDate("2002-02-10"), CDate("2002-02-15"))
|
int intDuration;
TimeSpan tsDuration;
tsDuration = new DateTime(2002, 2, 15)
- new DateTime(2002, 2, 10);
intDuration = tsDuration.Days;
|
| DatePart |
| VBScript Example | C# Equivalent |
Dim intMinute
intMinute = DatePart("n", Now())
|
int intMinute;
intMinute = DateTime.Now.Minute;
|
| DateSerial |
| VBScript Example | C# Equivalent |
Dim dtBday
dtBday = DateSerial(2002, 05, 16)
|
DateTime dtBday;
dtBday = new DateTime(2002, 05, 16);
|
| DateValue |
| VBScript Example | C# Equivalent |
Dim dtFoo
Dim dtNow
dtNow = Now()
dtFoo = DateValue(dtNow)
|
DateTime dtFoo;
DateTime dtNow;
dtFoo = dtNow.Date;
|
| Day |
| VBScript Example | C# Equivalent |
Dim intDay
intDay = Day(Now())
|
int intDay;
intDay = DateTime.Now.Day;
|
| Exp |
| VBScript Example | C# Equivalent |
Dim dblFoo
dblFoo = Exp(3)
|
Double dblFoo;
dblFoo = Math.Exp(3);
|