VBA-Web'e tarih gönderme

[aisyarr]

Merhaba arkadaşlar,

sitedeki kutulara tarih aralığını şu kodlarla yazdırıyorum.

Dim tarihbugun As Date, tarih As String
tarihbugun = Format(Now, "dd.mm.yyyy")

xxx.SendKeys tarihbugun - 1
yyy.SendKeys tarihbugun

Bu kodlar Salı-çarşamba-perşembe-cuma çalışıyor. Problem yok.

Sorum Şu;
Bugünün tarihi; Eğer hafta sonu ise cuma günkü tarihi yazılsın.

xxx.SendKeys tarihbugun - 1 (PERŞEMBE tarihi olacak)
yyy.SendKeys tarihbugun (CUMA tarihi olacak)

Bugünün tarihi; Eğer Pazartesi ise cuma günkü tarihi yazılsın.

xxx.SendKeys tarihbugun - 1 (CUMA tarihi olacak)
yyy.SendKeys tarihbugun (PAZARTESİ tarihi olacak)

 

[Asri]

Merhaba arkadaşlar,

sitedeki kutulara tarih aralığını şu kodlarla yazdırıyorum.

Dim tarihbugun As Date, tarih As String
tarihbugun = Format(Now, "dd.mm.yyyy")

xxx.SendKeys tarihbugun - 1
yyy.SendKeys tarihbugun

Bu kodlar Salı-çarşamba-perşembe-cuma çalışıyor. Problem yok.

Sorum Şu;
Bugünün tarihi; Eğer hafta sonu ise cuma günkü tarihi yazılsın.

xxx.SendKeys tarihbugun - 1 (PERŞEMBE tarihi olacak)
yyy.SendKeys tarihbugun (CUMA tarihi olacak)

Bugünün tarihi; Eğer Pazartesi ise cuma günkü tarihi yazılsın.

xxx.SendKeys tarihbugun - 1 (CUMA tarihi olacak)
yyy.SendKeys tarihbugun (PAZARTESİ tarihi olacak)

Bu şekilde deneyiniz.

Sub Deneme()
   bugun = gunduzenle(Date)
   'bugun = gunduzenle(CDate("26.12.2021"))
End Sub

Function gunduzenle(tarih) As Date
 hgun = Weekday(CDate(tarih), vbMonday)
 If hgun >= 2 And hgun <= 5 Then
    gunduzenle = CDate(tarih)
 ElseIf hgun = 1 Then
    gunduzenle = CDate(tarih) - 3
 ElseIf hgun = 7 Then
    gunduzenle = CDate(tarih) - 2
 ElseIf hgun = 6 Then
    gunduzenle = CDate(tarih) - 1
 End If
End Function

 

[aisyarr]

Asri Bey çok teşekkürler