Fa تغییر شکل نمایش تاریخ

[mmb4us]

دوستان سلام

می خواستم بدونم تو فایلی که پیوست کردم چطوری می تونیم شکل تاریخ که به این شکل هست 2/6/1390 به این شکل در اورد 02/06/1390 یعنی قسمت روز و ماه که یک رقمی هستن قبلش صفر باشه

یک دنیا ممنون میشم راهنمایی کنین

 

[Shahim]

این کد رو توی دکمه جایگزین کن

y = VAL(Y$)
m = VAL(M$)
d = VAL(D$) + 5
If (m<=06 & d>31) Then
  m = m + 01
  d= d-31
End
If (m>06 & m<=11 & d>30) Then
  m = m + 01
  d= d-30
End
If (m=12 & d>29) Then
  y = y + 01
  m = 01
  d= d-29
End
y$=CHAR(y)
If (m<10) Then
  m$='0'+CHAR(m)
Else
  m$=CHAR(m)
End
If (d<10) Then
  d$='0'+CHAR(d)
Else
  d$=CHAR(d)
End
date$ = y$ + '/' + m$ + '/' + d$
DisplayValue("back date","date$")