Posted by: runruncloth | July 23, 2010

Dasar Pemrograman Visual Basic


Visual Basic adalah salah satu bahasa pemrograman yang cukup terkenal akan kemampuannya dalam berbagai pembuatan suatu aplikasi.

Bekerja dengan variabel “Date”
Variabel Tanggal dan Jam (Date) disimpan dalam bentuk IEEE 64-bit (8-byte) floating-point numbers yang
mewakili tanggal antara 1 January 100 s.d 31 December 9999 dan Jam dari 0:00:00 to 23:59:59.
pemuatan/initialisasi variabel date harus diapit oleh tanda (#),

contohnya: #January 1, 1993# atau #1 Jan
93# atau #11/17/96 6:12:33 PM#.
a Array
b Boolean
c Currency
d Double
f Float/Single
h Handle
i Index
l Long
n Integer
s String
vnt Variant
w Word

Sufiks Tipe Variabel
int Integer
wrd Word
cur Currency
sgl single
dbl double
str String
bool Boolean
byt Byte
dt Date
vnt Variant

Date Function
mengembalikan nilai Tanggal dan Jam (dalam bentuk variable Variant) dari sistem.
Contoh:
Dim MyDate
MyDate = Date ‘ MyDate contains the current system date.
Date Statement
Men-set tanggal sistem dengan nilai yang kita masukkan
Tanggal yang valid adalah dari January 1, 1980 s.d December 31, 2099. Untuk Microsoft Windows NT, dari
January 1, 1980 s.d December 31, 2079.
Contoh:
Date = #04/01/2009#
DateSerial dan DateValue Function (TimeSerial dan TimeValue)
DateSerial = untuk mengkombinasikan baik tanggal maupun jam ke variabel date (Tahun, Bulan, Tanggal)
DateValue = untuk memuat variabel Date dari suatu representasi string.
Contoh:
D = DateSerial(2000, 12, 31)
atau bisa digunakan untuk kalkulasi:
D = DateSerial(2000 – 10, 12 – 10, 1 – 1) ‘menghasilkan = 31 September 1990
T = TimeSerial(23, 59, 00)
D = DateValue(“11/17/2000”)
T = TimeValue(“18:20:59”)
DT = DateValue(“11/17/2000”) + TimeValue(“18:20:59”)
Formatting Date and Time
Dim D As Date
D = #04/29/2009 12:30:59 PM#
Print Format(D, “General Date”) ’04/29/2009 12:30:59 PM
Print Format(D, “Long Date”) ‘Tuesday, April 29, 2009
Print Format(D, “Medium Date”) ’29-Apr-2009
Print Format(D, “Short Date”) ’04/29/2009
Print Format(D, “Long Time”) ’12:30:59 PM
Print Format(D, “Medium Time”) ’12:30 PM
Print Format(D, “Short Time”) ’12:30
Selain format bernama, kita dapat membuat format ciptaan sendiri:
D$ = Format(D, “dd/mm/yyyy hh:mm AM/PM”) ’29/04/2009 12:30 PM
M$ = Format(D, “mmmm”) ‘April
‘Lihat di MSDN untuk bentuk format yang lain
Mengekstraksi Rincian Variabel Date
Dim D As Date
D = #04/29/2009 12:30:59 PM#
Print Month(D) ‘4
Print Day(D) ’29
Print Year(D) ‘2009
Print Hour(D) ’12
Print Minute(D) ’30
Print Second(D) ’59
Print WeekDay(D) ‘1 = vbSunday
DateDiff Function
Mengembalikan nilai antara dua interval tanggal (Date)
Syntax:
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
Settings:
interval :
yyyy year
q quarter
m month
y Day of year
d Day
w Weekday
ww Week
h Hour
n Minute
s Second
Contoh:
Dim D As Date
D = #4/29/2009 12:00:00 PM#
Print DateDiff(“d”, D, #4/30/2009#) ‘1 (hari)
Print DateDiff(“m”, D, #3/30/2009#) ‘-1 (bulan)
Print DateDiff(“yyyy”, D, #4/30/2014#) ‘5 (tahun)
DateAdd Function
Menambahkan variabel tanggal (Date)
Syntax:
DateAdd(interval, number, date)
Contoh:
Print DateAdd(“d”, 1, #4/29/2009#) ’30 April 2009
Print DateAdd(“m”, 1, #4/29/2009#) ’29 Mei 2009
DatePart Function
Mengambil nilai yang terdapat didalam variabel Tanggal (Date)
Syntax:
DatePart(interval, date[,firstdayofweek[, firstweekofyear]])
Contoh:
Print DatePart(“q”, #4/29/2009#) ‘2 (quarter ke-2)
Print DatePart(“m”, #4/29/2009#) ‘4 (bulan ke-4)

source : ilmukomputer.com

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

w

Connecting to %s

Categories

%d bloggers like this: