Format İşlevi

Örnekler

İfadede Format işlevini kullanma    İfadeleri kullanabileceğiniz her yerde Biçim'i kullanabilirsiniz. Örneğin, bir sorguda alan diğer adının parçası olarak veya form veya rapordaki bir metin kutusunun Denetim Kaynağı özelliğinde kullanabilirsiniz. Aşağıdaki örneklerde, bir raporun Filter özelliğinde, çıktıyı önceki haftanın kayıtlarıyla sınırlamak için kullanabileceğiniz bir ifade gösterilmektedir.

Format([Date],"ww")=Format(Now(),"ww")-1

Bu örnekte, raporun kayıt kaynağında her bir kaydın değiştirildiği tarihi ve raporda kullanılan Tarih adlı bir alan vardır. Raporu çalıştırdığınızda, sonuçları yalnızca Tarih alanındaki değerin haftasının (Biçim([Tarih],"ww")) önceki haftaya eşit olduğu kayıtları gösterecek şekilde filtrelenir (Biçim(Şimdi(),"ww")-1).

VBA kodunda Format işlevini kullanma    

Bu örnekte, hem adlandırılmış biçimleri hem de kullanıcı tanımlı biçimleri kullanarak değerleri biçimlendirmek için Format işlevinin çeşitli kullanımları gösterilmektedir. Tarih ayırıcısı (/), zaman ayırıcısı (:) ve AM/ PM değişmez değeri için, sisteminiz tarafından görüntülenen gerçek biçimlendirilmiş çıkış, kodun çalıştığı bilgisayarın yerel ayar ayarlarına bağlıdır. Geliştirme ortamında saatler ve tarihler görüntülendiğinde, kod yerel ayarının kısa saat biçimi ve kısa tarih biçimi kullanılır. Kod çalıştırılarak görüntülendiğinde, sistem yerel ayarının kısa saat biçimi ve kısa tarih biçimi kullanılır ve bu biçim kod yerel ayarından farklı olabilir. Bu örnekte ABD İngilizcesi yerel ayarı varsayılmıştır.

MyTime ve MyDate , geçerli sistem kısa saat ayarı ve kısa tarih ayarı kullanılarak geliştirme ortamında görüntülenir.

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
' Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")
' Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s")    ' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM")    ' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy")    ' Returns "Wednesday,
    ' Jan 27 1993".
' If format is not supplied, a string is returned.
MyStr = Format(23)    ' Returns "23".
' User-defined formats.
MyStr = Format(5459.4, "##,##0.00")    ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00")    ' Returns "334.90".
MyStr = Format(5, "0.00%")    ' Returns "500.00%".
MyStr = Format("HELLO", "<")    ' Returns "hello".
MyStr = Format("This is it", ">")    ' Returns "THIS IS IT".

Sıfır uzunluklu dizelerle Biçim kullanma

Microsoft Access sürüm 2.0 ve önceki sürümlerinde Format işlevini kullanarak bir sıfır uzunlukta dize için bir değer, bir değer için de başka bir değer döndürebilirsiniz. Örneğin, koddan uygun dize değerini döndürmek için Format işleviyle aşağıdaki gibi bir biçim ifadesi kullanabilirsiniz:

Dim varX As Variant
Dim varStrX As Variant
' Assign some value to varStrX and pass to Format function.
varX = Format(varStrX, "@;ZLS;Null")

Microsoft Access 97 ve sonraki sürümlerde Null durum için ayrı ayrı test etmeniz ve ardından sonuca göre uygun değeri döndürmeniz gerekir. Örneğin, IIf işlevini aşağıdaki gibi Format işleviyle bir ifadede kullanabilirsiniz:

varX = IIf(IsNull(varStrX),"Null", Format(varStrX, "@;ZLS"))

Bu değişiklik yalnızca sıfır uzunluklu dize veya Null değer olmasına bağlı olarak bir dizeyi biçimlendirmek için Format işlevini kullandığınızda geçerlidir. Format işleviyle kullanılan diğer biçim ifadeleri önceki sürümlerde olduğu gibi çalışmaya devam eder.

Bir veritabanını Microsoft Access sürüm 2.0 ve önceki sürümlerinden Microsoft Access 2002 veya sonraki bir sürümüne dönüştürürseniz, null durum için ayrı olarak test etmek üzere kodu değiştirmeniz gerekir.