Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

serg1980serg

By: a guest on Sep 16th, 2012  |  syntax: VisualBasic  |  size: 0.48 KB  |  hits: 80  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Private Sub Form_Load()
  2.  
  3. Dim den(1 To 7) As String, i As Long, dt As String
  4. dt = "02.01.2000"
  5. For i = 1 To 7 Step 1
  6. den(i) = Format$(DateAdd("d", i, dt), "dddd")
  7. Label3.Caption = den(i)
  8. Next i
  9.  
  10. Dim mesic(1 To 12) As String, im As Long, dtm As String
  11. dtm = "02.01.2000"
  12. For im = 1 To 12 Step 1
  13. mesic(im) = Format$(DateAdd("m", im, dtm), "mmmm")
  14. Label1.Caption = mesic(im)
  15. Next im
  16.  
  17. Chislo = Day(Date)
  18. Label2.Caption = Chislo
  19.  
  20. God = Year(Date)
  21. Label4.Caption = God
  22.  
  23. End Sub
create a new version of this paste RAW Paste Data